QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Calloway on July 23, 2017, 02:20:22 am

Title: TCP/IP Messenger not Working?
Post by: Calloway on July 23, 2017, 02:20:22 am

Can anyone help me find the problem as to why TCP/IP will connect but won't send messages?
Here's the code

Code: QB64: [Select]

1.  
2. _TITLE "Messenger"
3. $CHECKING:OFF
4.  
5.  
6. PRINT "Welcome to Messenger"
7. LOCATE , , 1
8. client = _OPENCLIENT("TCP/IP:23456:96.37.234.146")
9. IF client THEN
10.     PRINT "[connected to host]"
11.     _TITLE "Client"
12.     INPUT "Enter your name: ", myname$
13.     PRINT #client, myname$ + " connected!"
14.     PRINT "To Exit, press the Escape key"
15.     DO
16.         GetMessage client
17.         SendMessage myname$, mymessage$, client
18.         _DELAY 0.01
19.     LOOP
20. ELSE
21.     PRINT "Server wasn't found, hosting on LAN"
22.     host = _OPENHOST("TCP/IP:23456")
23.     IF host THEN
24.         _TITLE "Host"
25.         PRINT "[Beginning new chat session!]"
26.         DIM Users(1 TO 10000)
27.         numclients = 1
28.         client = _OPENCLIENT("TCP/IP:23456:96.37.234.146")
29.         IF client = 0 THEN PRINT "ERROR: could not attach host's personal client to host!"
30.         INPUT "Enter your name:", myname$
31.         PRINT #client, myname$ + " connected!"
32.         PRINT "To Exit, press the Escape key"
33.         PRINT "[Chat session active!]"
34.         DO ' host main loop
35.             newclient = _OPENCONNECTION(host)
36.             IF newclient THEN
37.                 numclients = numclients + 1
38.                 Users(numclients) = newclient
39.                 PRINT #Users(numclients), "Welcome!"
40.             END IF
41.             FOR i = 1 TO numclients
42.                 IF Users(i) THEN
43.                     INPUT #Users(i), message$
44.                     IF message$ <> "" THEN
45.                         FOR p = 1 TO numclients
46.                             IF Users(p) THEN PRINT #Users(p), message$
47.                         NEXT p
48.                     END IF
49.                 END IF
50.             NEXT i
51.             GetMessage client
52.             SendMessage myname$, mymessage$, client
53.             _DELAY 0.01
54.         LOOP
55.     END IF
56.     PRINT "ERROR: Could not begin new host!"
57. END IF
58. SLEEP
59. SYSTEM
60.  
61.  
62. 'Frontend below
63.  
64.  
65.  
66.  
67. SUB GetMessage (client)
68. INPUT #client, newmessage$
69. IF newmessage$ <> "" THEN
70.     VIEW PRINT 1 TO 23
71.     LOCATE 23, 1
72.     PRINT newmessage$
73.     VIEW PRINT 1 TO 24
74. END IF
75. END SUB
76.  
77.  
78. SUB SendMessage (myname$, mymessage$, client)
79. k$ = INKEY$
80. IF LEN(k$) THEN
81.     IF k$ = CHR$(8) AND LEN(mymessage$) <> 0 THEN
82.         mymessage$ = LEFT$(mymessage$, LEN(mymessage$) - 1)
83.     ELSE
84.         IF LEN(k$) = 1 AND ASC(k$) >= 32 THEN mymessage$ = mymessage$ + k$
85.     END IF
86. END IF
87. LOCATE 24, 1: PRINT SPACE$(80);
88. LOCATE 24, 1: PRINT myname$ + ": "; mymessage$;
89. IF k$ = CHR$(13) THEN ' [Enter] sends the message
90.     IF mymessage$ = "" THEN SYSTEM ' [Enter] with no message ends program
91.     PRINT #client, myname$ + ": " + mymessage$
92.     mymessage$ = ""
93. END IF
94. IF k$ = CHR$(27) THEN SYSTEM ' [Esc] key ends program
95. END SUB
96.  

I know that $CHECKING is off but when it's on it doesn't display any errors

Title: Re: TCP/IP Messenger not Working?
Post by: Petr on July 23, 2017, 03:24:04 pm

Hi. Try insert "SHARED mymessage$" to first position in SUB SendMessage. I think, its return as empty string from DO LOOP. Please write us if this help or not.

Title: Re: TCP/IP Messenger not Working?
Post by: FellippeHeitor on July 23, 2017, 09:25:31 pm

Forget about PRINT and INPUT for TCP/IP. They are buggy in the current version.

Use PUT and GET instead.

Read this article for extensive reference and ideal methods: https://qb64.org/articles/articletcpip.txt

Title: Re: TCP/IP Messenger not Working?
Post by: Cobalt on July 24, 2017, 12:15:02 am

yeah, print # and input # work great in the SDL version of QB but not the GL.
so if your using the current build change your Print # to Put # and your Input # to Get #.

and make sure that variables are all shared between SUBs or returned by Functions.(get message would be better as a function in my option but I guess it depends on where in the program the message gets displayed)

Text Only | Text with Attachments