www.FiveTechSoft.com
https://forums.fivetechsupport.com/
Daniel Garcia-Gil wrote:With a nonblocking socket, the connection attempt cannot be completed immediately. In this case, connect will return SOCKET_ERROR, and WSAGetLastError will return WSAEWOULDBLOCK. ( you can call after connect, will see )
Code: Select all | Expand
// Socket server connection sample
#include "FiveWin.ch"
#define nWaitTime 10000
static oWnd, oSocket, oTimer, nTry
function Main()
local oBar
DEFINE WINDOW oWnd TITLE "Client socket"
DEFINE BUTTONBAR oBar OF oWnd _3D
DEFINE BUTTON OF oBar ACTION Client() TOOLTIP "Connect"
DEFINE BUTTON OF oBar ;
ACTION oSocket:SendData( "MSG This is a test" ) ;
TOOLTIP "Send data"
DEFINE BUTTON OF oBar ;
ACTION SendFile() TOOLTIP "Send file"
ACTIVATE WINDOW oWnd
return nil
function Client()
if oSocket != NIL
oSocket:End()
endif
oSocket = TSocket():New( 5000 )
if oTimer != NIL
oTimer:End()
endif
nTry := 1
oSocket:bRead = { | oSocket | HandleRecived( oSocket, oWnd ) }
// Never use a MsgInfo() here because it hangs Windows!!!
oSocket:bConnect = { || oWnd:SetText( "Socked Opened!" ) }
oSocket:bClose = { || MsgInfo( "Server has closed!" ) }
Timer_Connect()
Define Timer oTimer Interval nWaitTime Action Timer_Connect() OF oWnd
Activate Timer oTimer
return nil
function Timer_Connect()
IF nTry<4
oWnd:SetText("Connection Try : "+ALLTRIM(STR(nTry)))
oSocket:Connect( "127.0.0.1" )
nTry++
ELSE
oTimer:End()
oSocket:End()
oWnd:SetText( "Socket Closed" )
MsgInfo("Connection can NOT be ESTABLISHED")
ENDIF
return
function SendFile()
local cFileName := cGetFile( "*.*", "Select a file to send by Internet" )
if ! Empty( cFileName ) .and. File( cFileName )
oSocket:SendData( "SENDFILE " + cFileName( cFileName ) )
oSocket:SendFile( cFileName )
MsgInfo( "File sent" )
endif
return nil
function HandleRecived( oSocket, oWnd )
local cData := oSocket:GetData()
if cData = "ok"
oWnd:SetText( "Connected!!" )
oTimer:End()
else
MsgInfo( cData )
endif
return nil
Code: Select all | Expand
function HandleRecived( oSocket, oWnd )
local cData := oSocket:GetData()
if cData = "ok"
oWnd:SetText( "Connected!!" )
oTimer:End()
oSocket:cargo:=.t. // it is connected.
else
MsgInfo( cData )
endif
return nil