FiveTech Support Forums

// 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

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