TCP/IP client/host error (Advanced question, need help)

[keybone]

Ok, not so long ago FellippeHeitor made a client/host networking demo, I talked to him on IRC about the gui I'm working on (for probably the 50 millionth time). So he modified the version he posted in sample programs to show how it would work to have a client program update a displayed window in the host program. So long story short, I went hacking crazy on it, and it works great for localhost connections (see screenshot). But... when I try to run the host on one LAN node, and the client on a different node, it never works properly and gives me this error:

Critical Error #300

Line: 334 (In main module)
Memory region out of range

See attachment for picture of error message...

Now I have my theories on why its not working, but i have yet to figure it out and fix it.
(LINE 334 is _MEMPUT, the error has something to do with _MEM, I think. I think the issue is that the client and host programs might be assuming that they share the same computer, so I think one of the programs isn't allocating it's memory properly)

If someone knows alot about TCP/IP and can point me in the right direction for fixing this issue, let me know.

Here is the code:

Code: QB64: [Select]

1. TYPE aDisplayOption
2.     isFullscreen AS _BYTE
3.     isScaled AS _BYTE
4.     isSmoothed AS _BYTE
5. END TYPE
6.  
7. TYPE aDisplay
8.     sizeX AS _UNSIGNED INTEGER
9.     sizeY AS _UNSIGNED INTEGER
10.     aspectRatio AS SINGLE
11.     Options AS aDisplayOption
12.     Handle AS _UNSIGNED LONG
13. END TYPE
14.  
15. TYPE aBackgroundOption
16.     isCentered AS _BYTE
17.     isScaled AS _BYTE
18.     isTiled AS _BYTE
19.     isSolidColour AS _BYTE
20.     theColour AS _UNSIGNED LONG
21. END TYPE
22.  
23. TYPE aBackground
24.     Options AS aBackgroundOption
25.     Handle AS _UNSIGNED LONG
26. END TYPE
27.  
28. TYPE aLimit
29.     Maximum AS _UNSIGNED _INTEGER64
30.     Minimum AS _UNSIGNED _INTEGER64
31. END TYPE
32.  
33. TYPE aSize
34.     Titles AS _UNSIGNED _INTEGER64
35.     Canvases AS _UNSIGNED _INTEGER64
36.     Windows AS _UNSIGNED _INTEGER64
37.     Zones AS _UNSIGNED _INTEGER64
38. END TYPE
39.  
40. TYPE aGrayscale
41.     Black AS _UNSIGNED LONG
42.     Darkest AS _UNSIGNED LONG
43.     Darker AS _UNSIGNED LONG
44.     Dark AS _UNSIGNED LONG
45.     Neutral AS _UNSIGNED LONG
46.     Light AS _UNSIGNED LONG
47.     Lighter AS _UNSIGNED LONG
48.     Lightest AS _UNSIGNED LONG
49.     White AS _UNSIGNED LONG
50. END TYPE
51.  
52. TYPE aPrimaryColour
53.     Red AS _UNSIGNED LONG
54.     Green AS _UNSIGNED LONG
55.     Blue AS _UNSIGNED LONG
56. END TYPE
57.  
58. TYPE aSecondaryColour
59.     Cyan AS _UNSIGNED LONG
60.     Magenta AS _UNSIGNED LONG
61.     Yellow AS _UNSIGNED LONG
62. END TYPE
63.  
64. TYPE aTertiaryColour
65.     Azure AS _UNSIGNED LONG
66.     Violet AS _UNSIGNED LONG
67.     Rose AS _UNSIGNED LONG
68.     Orange AS _UNSIGNED LONG
69.     Chartreuse AS _UNSIGNED LONG
70.     springGreen AS _UNSIGNED LONG
71. END TYPE
72.  
73. TYPE aPalette
74.     Grayscale AS aGrayscale
75.     Primary AS aPrimaryColour
76.     Secondary AS aSecondaryColour
77.     Tertiary AS aTertiaryColour
78. END TYPE
79.  
80. TYPE aThemePalette
81.     activeTitlebar AS _UNSIGNED LONG
82.     inactiveTitlebar AS _UNSIGNED LONG
83.     resizeBox AS _UNSIGNED LONG
84. END TYPE
85.  
86. TYPE aCursor
87.     positionX AS INTEGER
88.     positionY AS INTEGER
89.     leftClicked AS _BYTE
90.     rightClicked AS _BYTE
91.     imageHandle AS _UNSIGNED LONG
92. END TYPE
93.  
94. TYPE CLIENT
95.     id AS LONG
96.     handle AS LONG
97.     active AS _BYTE
98.     image AS LONG
99.     x AS INTEGER
100.     y AS INTEGER
101.     w AS INTEGER
102.     h AS INTEGER
103.     ping AS SINGLE
104. END TYPE
105.  
106. DIM SHARED theLimit AS aLimit
107. theLimit.Minimum = 0
108. theLimit.Maximum = 0 - 1
109.  
110. DIM SHARED theSize AS aSize
111. theSize.Titles = theLimit.Minimum
112. theSize.Canvases = theLimit.Minimum
113. theSize.Windows = theLimit.Minimum
114. theSize.Zones = theLimit.Minimum
115.  
116. DIM SHARED theDisplay AS aDisplay
117. theDisplay.Options.isScaled = 0
118. theDisplay.Options.isSmoothed = -1
119.  
120. DIM SHARED theBackground AS aBackground
121.  
122. ' Declare RGB Colors (Primary, Secondary, and Tertiary)
123. DIM SHARED thePalette AS aPalette
124.  
125. ' Initialize Grayscales (8 Brightnesses)
126. thePalette.Grayscale.Black = _RGBA32(0, 0, 0, 255)
127. thePalette.Grayscale.Darkest = _RGBA32(31, 31, 31, 255)
128. thePalette.Grayscale.Darker = _RGBA32(63, 63, 63, 255)
129. thePalette.Grayscale.Dark = _RGBA32(95, 95, 95, 255)
130. thePalette.Grayscale.Neutral = _RGBA32(127, 127, 127, 255)
131. thePalette.Grayscale.Light = _RGBA32(159, 159, 159, 255)
132. thePalette.Grayscale.Lighter = _RGBA32(191, 191, 191, 255)
133. thePalette.Grayscale.Lightest = _RGBA32(223, 223, 223, 255)
134. thePalette.Grayscale.White = _RGBA32(255, 255, 255, 255)
135.  
136. ' Initialize Colors (Primary, Secondary, and Tertiary)
137. thePalette.Primary.Red = _RGBA32(255, 0, 0, 255)
138. thePalette.Primary.Green = _RGBA32(0, 255, 0, 255)
139. thePalette.Primary.Blue = _RGBA32(0, 0, 255, 255)
140. thePalette.Secondary.Cyan = thePalette.Primary.Green + thePalette.Primary.Blue
141. thePalette.Secondary.Magenta = thePalette.Primary.Red + thePalette.Primary.Blue
142. thePalette.Secondary.Yellow = thePalette.Primary.Red + thePalette.Primary.Green
143. thePalette.Tertiary.Azure = thePalette.Primary.Blue + thePalette.Secondary.Cyan
144. thePalette.Tertiary.Violet = thePalette.Primary.Blue + thePalette.Secondary.Magenta
145. thePalette.Tertiary.Rose = thePalette.Primary.Red + thePalette.Secondary.Magenta
146. thePalette.Tertiary.springGreen = thePalette.Primary.Green + thePalette.Secondary.Cyan
147. thePalette.Tertiary.Orange = thePalette.Primary.Red + thePalette.Secondary.Yellow
148. thePalette.Tertiary.Chartreuse = thePalette.Primary.Green + thePalette.Secondary.Yellow
149.  
150. ' Declare Theme colors
151. DIM SHARED theTheme AS aThemePalette
152.  
153. ' Initialize Theme colors
154. theTheme.activeTitlebar = thePalette.Tertiary.Azure + thePalette.Secondary.Magenta
155. theTheme.inactiveTitlebar = thePalette.Tertiary.Azure + thePalette.Tertiary.springGreen
156. theTheme.resizeBox = thePalette.Grayscale.Light
157.  
158. DIM SHARED overlayColor AS _UNSIGNED LONG: overlayColor = _RGBA32(255, 100, 0, 100)
159.  
160. ' Declare global arrays
161. REDIM SHARED theTitle(theSize.Titles) AS STRING
162.  
163. ' Declare mouse cursor variable
164. DIM SHARED theMouse AS aCursor
165.  
166. DIM SHARED aspectRatio AS _FLOAT
167.  
168. DISPLAY_aspectRatio 1.33, 1
169. DISPLAY_init INT((_DESKTOPHEIGHT * aspectRatio)), _DESKTOPHEIGHT, -1
170.  
171. BACKGROUND_init thePalette.Primary.Red, thePalette.Tertiary.Orange, "CBOX"
172. BACKGROUND_image "ggravity.jpg", "CENTER"
173. BACKGROUND_put
174. CONST false = 0, true = NOT false
175.  
176. DO
177.     IF attempts > 1000 THEN PRINT "Unable to start as host.": END
178.     host = _OPENHOST("TCP/IP:65535")
179.     attempts = attempts + 1
180. LOOP UNTIL host
181.  
182. Status "Listening on port 65535..."
183.  
184. maxConnections = 65535 - 1024
185. DIM SHARED client(1 TO maxConnections) AS CLIENT
186. DIM SHARED stream(1 TO maxConnections) AS STRING
187. DIM SHARED totalClients AS INTEGER, totalIDs AS LONG
188.  
189. DO
190.     MOUSE_probe
191.     'detect which client is being hovered
192.     IF theMouse.positionX <> oldMx OR theMouse.positionY <> oldMy THEN
193.         hover = 0
194.         oldMx = theMouse.positionX
195.         oldMy = theMouse.positionY
196.         FOR i = totalClients TO 1 STEP -1
197.             IF theMouse.positionX >= client(i).x AND theMouse.positionX <= client(i).x + client(i).w AND theMouse.positionY >= client(i).y AND theMouse.positionY <= client(i).y + client(i).h THEN
198.                 IF client(i).active THEN
199.                     hover = i
200.                     EXIT FOR
201.                 END IF
202.             END IF
203.         NEXT
204.     END IF
205.  
206.     IF theMouse.leftClicked THEN
207.         IF NOT mouseDown THEN
208.             mouseDown = true
209.             IF hover < totalClients THEN
210.                 SWAP client(hover), client(totalClients)
211.                 hover = totalClients
212.             END IF
213.             IF hover > 0 THEN
214.                 dragging = hover: dragX = theMouse.positionX: dragY = theMouse.positionY
215.                 originalX = theMouse.positionX: originalY = theMouse.positionY
216.                 Status "Dragging client #" + STR$(dragging)
217.             END IF
218.         ELSE
219.             IF dragging THEN
220.                 client(dragging).x = client(dragging).x + (theMouse.positionX - dragX)
221.                 client(dragging).y = client(dragging).y + (theMouse.positionY - dragY)
222.                 dragX = theMouse.positionX
223.                 dragY = theMouse.positionY
224.             END IF
225.         END IF
226.     ELSE
227.         IF mouseDown THEN
228.             IF dragging THEN
229.                 IF theMouse.positionX = originalX AND themousepositiony = originalY THEN
230.                     'just a click
231.                     b$ = "CLICK>" + MKI$(theMouse.positionX - client(dragging).x) + MKI$(theMouse.positionY - client(dragging).y)
232.                     Send client(dragging).handle, b$
233.                 END IF
234.                 dragging = false
235.             END IF
236.             Status "Idle."
237.             mouseDown = false
238.         END IF
239.     END IF
240.  
241.     IF theMouse.rightClicked THEN
242.         IF NOT mouse2down THEN mouse2down = true
243.     ELSE
244.         IF mouse2down THEN
245.             mouse2down = false
246.             IF hover > 0 THEN
247.                 'close this client
248.                 closeClient hover
249.             END IF
250.         END IF
251.     END IF
252.  
253.     IF totalClients < UBOUND(client) THEN
254.         'look for new clients until limit is reached
255.         newClient = _OPENCONNECTION(host)
256.         IF newClient THEN
257.             Status "new client connected; handshaking..."
258.             _DISPLAY
259.  
260.             totalClients = totalClients + 1
261.  
262.             client(totalClients).handle = newClient
263.             Send newClient, "MSG>HELLO!"
264.  
265.             start! = TIMER
266.             reply = false
267.             DO
268.                 GET newClient, , incomingData$
269.                 stream(totalClients) = stream(totalClients) + incomingData$
270.                 IF INSTR(stream(totalClients), "<END>") THEN reply = true: EXIT DO
271.             LOOP UNTIL TIMER - start! > 5 'timeout
272.  
273.             IF reply THEN
274.                 thisData$ = LEFT$(stream(totalClients), INSTR(stream(totalClients), "<END>") - 1)
275.                 stream(totalClients) = MID$(stream(totalClients), INSTR(stream(totalClients), "<END>") + 5)
276.                 thisCommand$ = LEFT$(thisData$, INSTR(thisData$, ">") - 1)
277.                 IF thisCommand$ = "" THEN
278.                     thisCommand$ = thisData$
279.                 ELSE
280.                     thisData$ = MID$(thisData$, LEN(thisCommand$) + 2)
281.                 END IF
282.  
283.                 IF thisCommand$ = "HELLO" THEN
284.                     client(totalClients).x = RND * (_WIDTH / 3)
285.                     client(totalClients).y = RND * (_HEIGHT / 3)
286.                     client(totalClients).w = CVI(LEFT$(thisData$, 2))
287.                     client(totalClients).h = CVI(RIGHT$(thisData$, 2))
288.                     client(totalClients).active = true
289.                     client(totalClients).ping = TIMER
290.                     totalIDs = totalIDs + 1
291.                     client(totalClients).id = totalIDs
292.                 ELSE
293.                     GOTO failed
294.                 END IF
295.             ELSE
296.                 failed:
297.                 Status "Connection failed!"
298.                 totalClients = totalClients - 1
299.             END IF
300.         END IF
301.     END IF
302.  
303.     CLS
304.     BACKGROUND_put
305.     COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
306.     PRINT "total clients:"; totalClients
307.  
308.     Status ""
309.  
310.     FOR i = 1 TO totalClients
311.         IF client(i).active THEN
312.             b$ = "PING>"
313.             Send client(i).handle, b$
314.  
315.             GET client(i).handle, , incomingData$
316.             stream(i) = stream(i) + incomingData$
317.  
318.             DO WHILE INSTR(stream(i), "<END>")
319.                 thisData$ = LEFT$(stream(i), INSTR(stream(i), "<END>") - 1)
320.                 stream(i) = MID$(stream(i), INSTR(stream(i), "<END>") + 5)
321.                 thisCommand$ = LEFT$(thisData$, INSTR(thisData$, ">") - 1)
322.                 IF thisCommand$ = "" THEN
323.                     thisCommand$ = thisData$
324.                 ELSE
325.                     thisData$ = MID$(thisData$, LEN(thisCommand$) + 2)
326.                 END IF
327.  
328.                 SELECT CASE thisCommand$
329.                     CASE "IMAGE"
330.                         IF client(i).image < -1 THEN _FREEIMAGE client(i).image
331.                         client(i).image = _NEWIMAGE(client(i).w, client(i).h, 32)
332.                         DIM imgMem AS _MEM
333.                         imgMem = _MEMIMAGE(client(i).image)
334.                         _MEMPUT imgMem, imgMem.OFFSET, thisData$
335.                         _MEMFREE imgMem
336.                     CASE "BYE!"
337.                         IF client(i).image < -1 THEN _FREEIMAGE client(i).image
338.                         client(i).active = false
339.                         totalClients = totalClients - 1
340.                         GOTO nextClient
341.                     CASE "PONG"
342.  
343.                         'show ping:
344.                         FOR c = 1 TO 20 STEP 2
345.                             IF TIMER - client(i).ping >= 20 THEN
346.                                 CIRCLE (client(i).x, client(i).y), c, _RGB32(255, 0, 0)
347.                             ELSEIF TIMER - client(i).ping >= 10 AND TIMER - client(i).ping < 20 THEN
348.                                 CIRCLE (client(i).x, client(i).y), c, _RGB32(255, 255, 0)
349.                             ELSEIF TIMER - client(i).ping < 10 THEN
350.                                 CIRCLE (client(i).x, client(i).y), c, _RGB32(0, 255, 0)
351.                             END IF
352.                         NEXT
353.                         client(i).ping = TIMER
354.                 END SELECT
355.             LOOP
356.  
357.             box client(i).x, client(i).y, client(i).w - 1, client(i).h - 1, 1
358.             Titlebar client(i).x + 2, client(i).y + 2, client(i).w - 5, 23, thePalette.Grayscale.Black
359.             box2 client(i).x + (client(i).w - 48), client(i).y + 3, 20, 20, 1, 7
360.             box2 client(i).x + (client(i).w - 25), client(i).y + 3, 20, 20, 1, 2
361.             box3 client(i).x + 4, client(i).y + 3, 20, 20, 1, 1, 7
362.             LINE (client(i).x, client(i).y)-(client(i).x + client(i).w - 1, client(i).y + client(i).h - 1), mycolor~&, BF
363.  
364.             'window title
365.             t$ = "Client #" + LTRIM$(STR$(client(i).id))
366.             COLOR _RGB32(0, 0, 0), 0
367.             _PRINTSTRING (client(i).x + 31, client(i).y + 5), t$
368.             COLOR _RGB32(255, 255, 255), 0
369.             _PRINTSTRING (client(i).x + 30, client(i).y + 5), t$
370.  
371.             'window contents
372.             IF client(i).image < -1 THEN
373.                 _PUTIMAGE (client(i).x + 2, client(i).y + 26)-(client(i).x + client(i).w - 2, client(i).y + client(i).h - 2), client(i).image
374.             END IF
375.  
376.             IF TIMER - client(i).ping > 30 THEN
377.                 closeClient i
378.             END IF
379.         END IF
380.         nextClient:
381.     NEXT
382.  
383.     _DISPLAY
384.     _LIMIT 30
385. LOOP UNTIL LEN(INKEY$)
386. SYSTEM
387.  
388. SUB DISPLAY_aspectRatio (inWidth AS _FLOAT, inHeight AS _FLOAT)
389.     aspectRatio = inWidth / inHeight
390. END SUB
391.  
392. SUB DISPLAY_init (inSizeX AS _UNSIGNED INTEGER, inSizeY AS _UNSIGNED INTEGER, inIsFullscreen AS _BYTE)
393.     theDisplay.sizeX = inSizeX
394.     theDisplay.sizeY = inSizeY
395.     theDisplay.Options.isFullscreen = inIsFullscreen
396.     theDisplay.Handle = _NEWIMAGE(theDisplay.sizeX, theDisplay.sizeY, 32)
397.     SCREEN theDisplay.Handle
398.     IF inIsFullscreen THEN
399.         DISPLAY_fullscreen theDisplay.Options.isScaled, theDisplay.Options.isSmoothed
400.     END IF
401. END SUB
402.  
403. SUB DISPLAY_fullscreen (inScaled AS _BYTE, inSmoothed AS _BYTE)
404.     IF inScaled THEN
405.         IF inSmoothed THEN
406.             theDisplay.Options.isScaled = -1
407.             theDisplay.Options.isSmoothed = -1
408.             IF theDisplay.Options.isScaled = -1 AND theDisplay.Options.isSmoothed = -1 THEN
409.                 _FULLSCREEN _STRETCH , _SMOOTH
410.             END IF
411.         ELSE
412.             theDisplay.Options.isScaled = -1
413.             theDisplay.Options.isSmoothed = 0
414.             IF theDisplay.Options.isScaled = -1 AND theDisplay.Options.isSmoothed = 0 THEN
415.                 _FULLSCREEN _STRETCH
416.             END IF
417.         END IF
418.     ELSE
419.         IF inSmoothed THEN
420.             theDisplay.Options.isScaled = 0
421.             theDisplay.Options.isSmoothed = -1
422.             IF theDisplay.Options.isScaled = 0 AND theDisplay.Options.isSmoothed = -1 THEN
423.                 _FULLSCREEN _SQUAREPIXELS , _SMOOTH
424.             END IF
425.         ELSE
426.             theDisplay.Options.isScaled = 0
427.             theDisplay.Options.isSmoothed = 0
428.             IF theDisplay.Options.isScaled = 0 AND theDisplay.Options.isSmoothed = 0 THEN
429.                 _FULLSCREEN _SQUAREPIXELS
430.             END IF
431.         END IF
432.     END IF
433. END SUB
434.  
435. SUB BACKGROUND_add
436.     IF NOT theBackground.Handle THEN
437.         theBackground.Handle = _NEWIMAGE(_WIDTH(theDisplay.Handle), _HEIGHT(theDisplay.Handle), 32)
438.     END IF
439. END SUB
440.  
441. SUB BACKGROUND_init (inColor1 AS _UNSIGNED LONG, inColor2 AS _UNSIGNED LONG, inOption AS STRING)
442.     BACKGROUND_add
443.     SELECT CASE inOption
444.         CASE "HLINE"
445.             BACKGROUND_horizontalLines inColor1, inColor2
446.         CASE "VLINE"
447.             BACKGROUND_verticalLines inColor1, inColor2
448.         CASE "CBOX"
449.             BACKGROUND_checkerBox inColor1, inColor2
450.         CASE "COLOR"
451.             BACKGROUND_colour inColor1: inColor2 = 0
452.     END SELECT
453. END SUB
454.  
455. SUB BACKGROUND_image (inFilename AS STRING, inOption AS STRING)
456.     inFilename = LTRIM$(RTRIM$(inFilename))
457.     IF LEN(inFilename) THEN
458.         IF _FILEEXISTS(inFilename) THEN
459.             DIM Temporary AS _UNSIGNED LONG
460.             Temporary = _LOADIMAGE(inFilename, 32)
461.         ELSE
462.             EXIT SUB
463.         END IF
464.     END IF
465.     _DEST theBackground.Handle
466.     inOption = LTRIM$(RTRIM$(UCASE$(inOption)))
467.     SELECT CASE inOption
468.         CASE "CENTER"
469.             DIM centeredX AS _UNSIGNED INTEGER: centeredX = (_WIDTH(theDisplay.Handle) - _WIDTH(Temporary)) / 2
470.             DIM centeredY AS _UNSIGNED INTEGER: centeredY = (_HEIGHT(theDisplay.Handle) - _HEIGHT(Temporary)) / 2
471.             _PUTIMAGE (centeredX, centeredY)-(_WIDTH(Temporary) + centeredX, _HEIGHT(Temporary) + centeredY), Temporary, theBackground.Handle
472.             theBackground.Options.isCentered = -1
473.         CASE "SCALE"
474.             _PUTIMAGE (0, 0)-(_WIDTH(theDisplay.Handle), _HEIGHT(theDisplay.Handle)), Temporary, theBackground.Handle
475.             theBackground.Options.isScaled = -1
476.         CASE "TILE"
477.             DIM numberWide AS SINGLE: numberWide = _WIDTH / _WIDTH(Temporary)
478.             DIM numberHigh AS SINGLE: numberHigh = _HEIGHT / _HEIGHT(Temporary)
479.             DIM currentTileY AS _UNSIGNED INTEGER: FOR currentTileY = 0 TO numberHigh
480.                 DIM currentTileX AS _UNSIGNED INTEGER: FOR currentTileX = 0 TO numberWide
481.                     _PUTIMAGE (_WIDTH(Temporary) * currentTileX, _HEIGHT(Temporary) * currentTileY), Temporary, theBackground.Handle
482.                 NEXT currentTileX
483.             NEXT currentTileY
484.             theBackground.Options.isTiled = -1
485.     END SELECT
486.     _DEST theDisplay.Handle
487.     _FREEIMAGE Temporary
488. END SUB
489.  
490. SUB BACKGROUND_colour (inColour AS _UNSIGNED LONG)
491.     _DEST theBackground.Handle
492.     LINE (0, 0)-(_WIDTH(theBackground.Handle), _HEIGHT(theBackground.Handle)), inColour, BF
493. END SUB
494.  
495. SUB BACKGROUND_checkerBox (inColor1 AS _UNSIGNED LONG, inColor2 AS _UNSIGNED LONG)
496.     _DEST theBackground.Handle
497.     FOR j = 1 TO _HEIGHT
498.         IF j MOD 2 = 1 THEN
499.             FOR i = 1 TO _WIDTH
500.                 IF i MOD 2 = 1 THEN
501.                     PSET (i, j), inColor2
502.                 ELSE
503.                     PSET (i, j), inColor1
504.                 END IF
505.             NEXT i
506.         ELSE
507.             FOR i = 1 TO _WIDTH
508.                 IF i MOD 2 = 0 THEN
509.                     PSET (i, j), inColor2
510.                 ELSE
511.                     PSET (i, j), inColor1
512.                 END IF
513.             NEXT i
514.         END IF
515.     NEXT j
516. END SUB
517.  
518. SUB BACKGROUND_verticalLines (inColor1 AS _UNSIGNED LONG, inColor2 AS _UNSIGNED LONG)
519.     _DEST theBackground.Handle
520.     FOR j = 1 TO _HEIGHT
521.         FOR i = 1 TO _WIDTH
522.             IF i MOD 2 = 1 THEN
523.                 PSET (i, j), inColor2
524.             ELSE
525.                 PSET (i, j), inColor1
526.             END IF
527.         NEXT i
528.     NEXT j
529. END SUB
530.  
531. SUB BACKGROUND_horizontalLines (inColor1 AS _UNSIGNED LONG, inColor2 AS _UNSIGNED LONG)
532.     _DEST theBackground.Handle
533.     FOR j = 1 TO _HEIGHT
534.         FOR i = 1 TO _WIDTH
535.             IF j MOD 2 = 1 THEN
536.                 PSET (i, j), inColor2
537.             ELSE
538.                 PSET (i, j), inColor1
539.             END IF
540.         NEXT i
541.     NEXT j
542. END SUB
543.  
544. SUB BACKGROUND_put
545.     IF theBackground.Handle THEN
546.         _PUTIMAGE , theBackground.Handle, theDisplay.Handle
547.     END IF
548. END SUB
549.  
550. SUB Titlebar (titlebarPositionX AS _UNSIGNED INTEGER, titlebarPositionY AS _UNSIGNED INTEGER, titlebarWidth AS _UNSIGNED INTEGER, titlebarHeight AS _UNSIGNED INTEGER, titlebarColor AS _UNSIGNED LONG)
551.     LINE (titlebarPositionX, titlebarPositionY)-(titlebarPositionX + titlebarWidth, titlebarPositionY + titlebarHeight), theTheme.activeTitlebar, BF
552. END SUB
553.  
554. SUB box (boxPositionX AS _UNSIGNED INTEGER, boxPositionY AS _UNSIGNED INTEGER, boxWidth AS _UNSIGNED INTEGER, boxHeight AS _UNSIGNED INTEGER, boxDepth AS _UNSIGNED INTEGER)
555.     LINE (boxPositionX, boxPositionY)-(boxPositionX + boxWidth, boxPositionY + boxHeight), thePalette.Grayscale.Lighter, BF
556.     LINE (boxPositionX + boxDepth, boxPositionY + boxDepth)-(boxPositionX + boxWidth, boxPositionY + boxHeight), thePalette.Grayscale.Darker, BF
557.     LINE (boxPositionX + boxDepth, boxPositionY + boxDepth)-((boxPositionX + boxWidth) - boxDepth, (boxPositionY + boxHeight) - boxDepth), thePalette.Grayscale.Neutral, BF
558. END SUB
559.  
560. SUB box2 (boxPositionX AS _UNSIGNED INTEGER, boxPositionY AS _UNSIGNED INTEGER, boxWidth AS _UNSIGNED INTEGER, boxHeight AS _UNSIGNED INTEGER, boxDepth AS _UNSIGNED INTEGER, interiorDepth AS _UNSIGNED INTEGER)
561.     interiorDepth = interiorDepth * boxDepth
562.     LINE (boxPositionX, boxPositionY)-(boxPositionX + boxWidth, boxPositionY + boxHeight), thePalette.Grayscale.Darker, BF
563.     LINE (boxPositionX + boxDepth, boxPositionY + boxDepth)-(boxPositionX + boxWidth, boxPositionY + boxHeight), thePalette.Grayscale.Lighter, BF
564.     LINE (boxPositionX + boxDepth, boxPositionY + boxDepth)-((boxPositionX + boxWidth) - boxDepth, (boxPositionY + boxHeight) - boxDepth), thePalette.Grayscale.Neutral, BF
565.     LINE (boxPositionX + boxDepth + interiorDepth, boxPositionY + boxDepth + interiorDepth)-(boxPositionX + boxWidth - boxDepth - interiorDepth, boxPositionY + boxHeight - boxDepth - interiorDepth), thePalette.Grayscale.Lighter, BF
566.     LINE (boxPositionX + (boxDepth * 2) + interiorDepth, boxPositionY + (boxDepth * 2) + interiorDepth)-(boxPositionX + boxWidth - boxDepth - interiorDepth, boxPositionY + boxHeight - boxDepth - interiorDepth), thePalette.Grayscale.Darker, BF
567.     LINE (boxPositionX + (boxDepth * 2) + interiorDepth, boxPositionY + (boxDepth * 2) + interiorDepth)-(boxPositionX + boxWidth - (boxDepth * 2) - interiorDepth, boxPositionY + boxHeight - (boxDepth * 2) - interiorDepth), thePalette.Grayscale.Neutral, BF
568. END SUB
569.  
570. SUB box3 (boxPositionX AS _UNSIGNED INTEGER, boxPositionY AS _UNSIGNED INTEGER, boxWidth AS _UNSIGNED INTEGER, boxHeight AS _UNSIGNED INTEGER, boxDepth AS _UNSIGNED INTEGER, interiorDepthX AS _UNSIGNED INTEGER, interiorDepthY AS _UNSIGNED INTEGER)
571.     interiorDepthX = interiorDepthX * boxDepth
572.     interiorDepthY = interiorDepthY * boxDepth
573.     LINE (boxPositionX, boxPositionY)-(boxPositionX + boxWidth, boxPositionY + boxHeight), thePalette.Grayscale.Darker, BF
574.     LINE (boxPositionX + boxDepth, boxPositionY + boxDepth)-(boxPositionX + boxWidth, boxPositionY + boxHeight), thePalette.Grayscale.Lighter, BF
575.     LINE (boxPositionX + boxDepth, boxPositionY + boxDepth)-((boxPositionX + boxWidth) - boxDepth, (boxPositionY + boxHeight) - boxDepth), thePalette.Grayscale.Neutral, BF
576.     LINE (boxPositionX + boxDepth + interiorDepthX, boxPositionY + boxDepth + interiorDepthY)-(boxPositionX + boxWidth - boxDepth - interiorDepthX, boxPositionY + boxHeight - boxDepth - interiorDepthY), thePalette.Grayscale.Lighter, BF
577.     LINE (boxPositionX + (boxDepth * 2) + interiorDepthX, boxPositionY + (boxDepth * 2) + interiorDepthY)-(boxPositionX + boxWidth - boxDepth - interiorDepthX, boxPositionY + boxHeight - boxDepth - interiorDepthY), thePalette.Grayscale.Darker, BF
578.     LINE (boxPositionX + (boxDepth * 2) + interiorDepthX, boxPositionY + (boxDepth * 2) + interiorDepthY)-(boxPositionX + boxWidth - (boxDepth * 2) - interiorDepthX, boxPositionY + boxHeight - (boxDepth * 2) - interiorDepthY), thePalette.Grayscale.Neutral, BF
579. END SUB
580.  
581. SUB MOUSE_probe
582.     DO
583.         theMouse.positionX = _MOUSEX
584.         theMouse.positionY = _MOUSEY
585.         theMouse.leftClicked = _MOUSEBUTTON(1)
586.         theMouse.rightClicked = _MOUSEBUTTON(2)
587.     LOOP WHILE _MOUSEINPUT
588. END SUB
589.  
590. SUB closeClient (ID AS LONG)
591.     b$ = "BYE!>"
592.     Send client(ID).handle, b$
593.     _DELAY .1 'give time for BYE! to be sent
594.     CLOSE client(ID).handle
595.     client(ID).active = false
596.     IF client(ID).image < -1 THEN _FREEIMAGE client(ID).image: client(ID).image = 0
597.     FOR i = ID + 1 TO totalClients
598.         client(i - 1) = client(i)
599.     NEXT
600.     totalClients = totalClients - 1
601. END SUB
602.  
603. SUB Send (channel, __theData$)
604.     theData$ = __theData$ + "<END>"
605.     PUT #channel, , theData$
606. END SUB
607.  
608. SUB Status (__text$)
609.     STATIC lastStatus$
610.  
611.     IF LEN(__text$) THEN lastStatus$ = __text$
612.     IF LEN(lastStatus$) = 0 THEN EXIT SUB
613.  
614.     LINE (0, _HEIGHT - 2 - _FONTHEIGHT)-(_WIDTH, _HEIGHT), _RGB32(194, 194, 194), BF
615.     COLOR _RGB32(0, 0, 0), _RGB32(194, 194, 194)
616.     _PRINTSTRING (5, (_HEIGHT - _FONTHEIGHT - 1)), lastStatus$
617. END SUB

Code: QB64: [Select]

1. 'client
2. 'run several copies of this client to see the interaction
3. 'with the host
4. $SCREENHIDE
5. CONST false = 0, true = NOT false
6.  
7. RANDOMIZE TIMER
8.  
9. myWidth% = RND * 400
10. IF myWidth% < 150 THEN myWidth% = 150
11. myHeight% = RND * 250
12. IF myHeight% < 150 THEN myHeight% = 150
13. myColor~& = _RGBA32(RND * 255, RND * 255, RND * 255, 50)
14.  
15. SCREEN _NEWIMAGE(myWidth%, myHeight%, 32)
16.  
17. PRINT "Looking for host..."
18. host = _OPENCLIENT("TCP/IP:65535:localhost")
19. IF host = 0 THEN SYSTEM
20.  
21. PRINT "Connected to host; handshaking..."
22.  
23. start! = TIMER
24. reply = false
25. DO
26.     GET host, , incomingData$
27.     stream$ = stream$ + incomingData$
28.     IF INSTR(stream$, "<END>") THEN reply = true: EXIT DO
29. LOOP UNTIL TIMER - start! > 5 'timeout
30.  
31. IF reply THEN
32.     thisData$ = LEFT$(stream$, INSTR(stream$, "<END>") - 1)
33.     stream$ = MID$(stream$, INSTR(stream$, "<END>") + 5)
34.     thisCommand$ = LEFT$(thisData$, INSTR(thisData$, ">") - 1)
35.     IF thisCommand$ = "" THEN
36.         thisCommand$ = thisData$
37.     ELSE
38.         thisData$ = MID$(thisData$, LEN(thisCommand$) + 2)
39.     END IF
40.  
41.     IF thisCommand$ = "MSG" AND thisData$ = "HELLO!" THEN
42.         'we're in! let's send our dimensions
43.         b$ = "HELLO>" + MKI$(myWidth%) + MKI$(myHeight%)
44.         Send host, b$
45.     ELSE
46.         GOTO failed
47.     END IF
48. ELSE
49.     failed:
50.     SYSTEM
51. END IF
52.  
53. 'connection established; wait for input and send the client's screen
54. ping = TIMER
55. DO
56.     IF _EXIT THEN
57.         b$ = "BYE!>"
58.         Send host, b$
59.         CLOSE host
60.         SYSTEM
61.     END IF
62.  
63.     GET host, , incomingData$
64.     stream$ = stream$ + incomingData$
65.  
66.     DO WHILE INSTR(stream$, "<END>")
67.         thisData$ = LEFT$(stream$, INSTR(stream$, "<END>") - 1)
68.         stream$ = MID$(stream$, INSTR(stream$, "<END>") + 5)
69.         thisCommand$ = LEFT$(thisData$, INSTR(thisData$, ">") - 1)
70.         IF thisCommand$ = "" THEN
71.             thisCommand$ = thisData$
72.         ELSE
73.             thisData$ = MID$(thisData$, LEN(thisCommand$) + 2)
74.         END IF
75.  
76.         SELECT CASE thisCommand$
77.             CASE "BYE!"
78.                 SYSTEM
79.             CASE "CLICK"
80.                 FOR i = 1 TO 30
81.                     CIRCLE (CVI(LEFT$(thisData$, 2)), CVI(RIGHT$(thisData$, 2))), i, _RGB32(255, 255, 255)
82.                 NEXT
83.             CASE "PING"
84.                 ping = TIMER
85.                 b$ = "PONG>"
86.                 Send host, b$
87.         END SELECT
88.     LOOP
89.  
90.     LINE (0, 0)-(_WIDTH, _HEIGHT), myColor~&, BF
91.     FOR i = 1 TO 1000
92.         PSET (RND * _WIDTH, RND * _HEIGHT), _RGB32(RND * 255, RND * 255, RND * 255)
93.     NEXT
94.     LOCATE 2, 2: PRINT RND
95.  
96.     myCanvas& = _COPYIMAGE(0)
97.     DIM imgMem AS _MEM
98.     imgMem = _MEMIMAGE(myCanvas&)
99.     b$ = SPACE$(imgMem.SIZE)
100.     _MEMGET imgMem, imgMem.OFFSET, b$
101.     _MEMFREE imgMem
102.     _FREEIMAGE myCanvas&
103.  
104.     IF prevImage$ <> b$ THEN
105.         prevImage$ = b$
106.         b$ = "IMAGE>" + b$
107.         Send host, b$
108.     END IF
109.  
110.     _DISPLAY
111.     _LIMIT 30
112. LOOP UNTIL TIMER - ping > 30
113. SYSTEM
114.  
115. SUB Send (channel, __theData$)
116.     theData$ = __theData$ + "<END>"
117.     PUT #channel, , theData$
118. END SUB
119.  

You must also download the background image as an attachment or reconfigure to use another or no image.

Thank you,
-Keybone

[Petr]

Hi. In the real network it occasionally reports this error, but in localhost it works correctly? I'm very curious what FellippeHeitor will answer you. I would recommend testing if client (i) .w, client (i) .h and thisData$ contains the expected data, I would bet not. I also had a lot of problems working on the real network and I after many tryings without correct output in real network stop working on it. In localhost mode, they were always working without problems, but the behavior in the real network was totally different, and the program sometimes sent me data that has never coming to second site....

[keybone]

Hi. In the real network it occasionally reports this error, but in localhost it works correctly? I'm very curious what FellippeHeitor will answer you. I would recommend testing if client (i) .w, client (i) .h and thisData$ contains the expected data, I would bet not. I also had a lot of problems working on the real network and I after many tryings without correct output in real network stop working on it. In localhost mode, they were always working without problems, but the behavior in the real network was totally different, and the program sometimes sent me data that has never coming to second site....

Well, I'm glad to know i'm not the only one having issues :D

On the real network it *never* works... The window pops up on the host screen (like it should) then the message pops up and the host crashes. Well for now localhost connectivity is the main priority anyways... the LAN stuff can wait til later. :)

[Petr]

Next ask is, if b$ lenght (image data lenght) is the same on both sides?

[keybone]

Next ask is, if b$ lenght (image data lenght) is the same on both sides?

I'll let you know the status of those tests later... thanks man!

[FellippeHeitor]

RhoSigma recently pushed a patch into the repository which is already available in the latest development build that addresses a faulty behavior of _MEMIMAGE and related functions. Try the latest dev build from www.qb64.org and see if you still get those.