2013-04-11 01:07:29 -07:00
|
|
|
INSTALL @lib$+"SOCKLIB"
|
|
|
|
|
PROC_initsockets
|
|
|
|
|
|
|
|
|
|
socket% = FN_tcpconnect("localhost", "256")
|
2015-11-18 06:14:39 +00:00
|
|
|
IF socket% <=0 ERROR 100, "Failed to open socket"
|
2013-04-11 01:07:29 -07:00
|
|
|
|
|
|
|
|
REM Don't use FN_writesocket since an error is expected
|
|
|
|
|
msg$ = "hello socket world"
|
|
|
|
|
SYS `send`, socket%, !^msg$, LEN(msg$), 0 TO result%
|
|
|
|
|
|
|
|
|
|
PROC_closesocket(socket%)
|
|
|
|
|
PROC_exitsockets
|
