FiveTech Software tech support forums

Ya ubique el servidor socket en fivewin..

Pero si alguien tiene una mejor idea para transferir segun la necesidad----

Buenos dias...

1. Requiero enviar tablas dbfcdx desde el movil al servidor via internet
2. He probado el ejemplo que anexo :
3. La pregunta es como recojo este archivo en el servidor...recuerden que soy nuevo el tema de socket

Gracias ..

JOHNSON RUSSI TELLO
Colombia
/*********
FUNCTION Transfiere(cModOri)

local oBtn1, oBtn2, oBtn3, oBtn4


DEFINE WINDOW oWnd TITLE "Client socket"

@ 2, 2 BUTTON oBtn1 PROMPT "Socket Window" ;
ACTION Socket1() SIZE 120, 30

@ 8, 2 BUTTON oBtn4 PROMPT "End" ;
ACTION oWnd:End() SIZE 120, 30

ACTIVATE WINDOW oWnd

return nil
******************************************************************************************

function Socket1()

local oBtn1, oBtn2, oBtn3, oBtn4 ,oBtn5


DEFINE WINDOW oWnd2 TITLE "Client socket"

@ 1, 2 BUTTON oBtn1 PROMPT "Connect" ;
ACTION Client( oBtn1, oBtn2, oBtn3, oBtn4, oWnd2 ) SIZE 80, 20

@ 3, 2 BUTTON oBtn2 PROMPT "SendData" ;
ACTION oSocket:SendData( "MSG This is a test" ) SIZE 80, 20

@ 4, 2 BUTTON oBtn3 PROMPT "SendFile" ;
ACTION SendFile() SIZE 80, 20

@ 5, 2 BUTTON oBtn4 PROMPT "HostName" ;
ACTION MsgInfo( GetHostName() ) SIZE 80, 20

@ 7, 2 BUTTON oBtn5 PROMPT "Close" ;
ACTION ( oSocket:End() , oWnd2:End()) SIZE 80, 20

oBtn2:Disable()
oBtn3:Disable()
oBtn4:Disable()

ACTIVATE WINDOW oWnd2

return nil

********************************************************************************************

function Client( oBtn1, oBtn2, oBtn3, oBtn4 )

oSocket = TSocket():New( 2000 )


oSocket:bRead = { | oSocket | MsgInfo( oSocket:GetData() ) }


// Never use a MsgInfo() here because it hangs Windows!!!
oSocket:bConnect = { || oBtn1:Disable(), oBtn2:Enable(), oBtn3:Enable(), oBtn4:Enable() }


oSocket:bClose = { || MsgInfo( "Server se cierra y espera transferencia" ) }


oSocket:Connect( "192.168.2.15" ) // use the server IP address here


return nil

******************************************************************************************


function SendFile()

MemoWrit( CurDir() + "\Mytest.txt", "This is a file test de prueba "+ time() )
oSocket:SendData( "SENDFILE test.txt" )
SysRefresh()
oSocket:SendFile( CurDir() + "\Mytest.txt" )
mymen( "Archivo transferido" )

return nil
********************************************************************************