TCP dilemna

BlitzMax Forums/BlitzMax Programming/TCP dilemna

Chroma

(Posted 2007) [#1]

Bah! nm it works now. :) Just doing some preliminary socket stuffs. I had the test socket not created correctly.

Graphics 800,600,0,0

Local socket:TSocket = CreateTCPSocket()
socket.bind( 16789 )
socket.listen(0)

While Not KeyHit(KEY_ESCAPE)
Cls

If KeyHit(KEY_SPACE)
	test:TSocket = CreateTCPSocket()
	ConnectSocket(test,HostIp(Null),16789)
EndIf

If socket.Accept(0) Then Notify "Accept"

Flip
Wend
End