FiveTech Software tech support forums

Code: Select all

#include "FiveWin.Ch"

STATIC oWnd, oSocket, oClient, oSay, cLog

//------------------------------------------------------------------------//
Function main(cModo)
   ModoServidor()
RETURN NIL

#DEFINE PUERTO      2019

#define ST_COMMAND  1
#define ST_SENDFILE 2
#define FILE_BLOCK 8000

//------------------------------------------------------------------------//
FUNCTION GetIpMaquina()
Local cIp

If WSAStartup() != 0
   MsgAlert( "WSAStartup error" )
endif
cIp :=  GetHostByName( GetHostName() )
WSACleanUp()
return cIp

//------------------------------------------------------------------------//
FUNCTION ModoServidor()
Local cTitle, oBtn

cLog := ""

DEFINE WINDOW oWnd TITLE cTitle

cTitle := "Servidor de Sockets "
cTitle += GetIPMaquina()
cTitle += ":" + NTRIM(PUERTO)

DEFINE WINDOW oWnd TITLE cTitle FROM 0, 0 TO 24, 80
@ 1,1 SAY oSay PROMPT cLog Size  600,300 BORDER
//@ 0,0 BUTTON oBtn PROMPT "pulsar" ACTION oSay:SetText("Hola")//Pulsado(oSay)

ACTIVATE WINDOW oWnd;
          ON INIT Iniciar() ;
          VALID Cerrar()

RETURN NIL
//------------------------------------------------------------------------//
STATIC FUNCTION Iniciar()
oWnd:Move(50,50)
Server()
RETURN .F.

//------------------------------------------------------------------------//
STATIC FUNCTION Cerrar()
oSocket:End()
sayLog("Cerrando servidor")
RETURN .T.

//------------------------------------------------------------------------//
STATIC FUNCTION SayLog(cValue)
cLog += cValue + CRLF
//Depura(cLog)
//Depura(oSay)
oSay:SetText(cLog)
RETURN NIL


//------------------------------------------------------------------------//
STATIC function Server()

   oSocket = TSocket():New( PUERTO )

   oSocket:bAccept = { | oSocket | oClient := TSocket():Accept( oSocket:nSocket ),;
                       oClient:Cargo := ST_COMMAND,;
                       oClient:bRead := { | oSocket | OnRead( oSocket ) },;
                       oClient:bClose := { | oSocket | OnClose( oSocket ) } }

   oSocket:Listen()
   SayLog("Servidor iniciado")
   SayLog("Esperando peticiones")

return nil


//------------------------------------------------------------------------//
STATIC function OnRead( oSocket )

   local cData := oSocket:GetData()
   local cToken, cRespuesta

   SayLog("Datos recibidos: " +  cData)

   If cData == "GET_SRV"
      SayLog("Solicitud de conexión recibida")
      oSocket:SendData(cData +  "_OK")
      RETURN NIL
   EndIf

   SayLog("Petición desconocida: " +  cData)

return nil

//------------------------------------------------------------------------//
STATIC function OnClose( oSocket )

   sayLog("El cliente ha cerado el socket")
   //MsgInfo( "Client has closed!" )
   oSocket:End()
return nil

 

Code: Select all

...

STATIC FUNCTION Crearconexion()
   Local nRet

   SayLog("Creando socket contra la IP " + cIpSrv )

   oSocket = TSocket():New( nPuerto )
   oSocket:bRead    = { | oSocket | ProcesaRespuesta( oSocket ) }

   // Never use a MsgInfo() here because it hangs Windows!!!
   oSocket:bConnect = { || Depura( "Conectado") }
   oSocket:bClose   = { || SrvClose() }
   nRet := oSocket:Connect( cIpSrv ) // use the server IP address here
   Depura(nRet, "NRet")
   Depura(oSocket:nRetCode, "osocket:nRetcode")
   //ComprobarConexion()
   SayLog("Fin creando socket contra IP")

RETURN .F.


//------------------------------------------------------------------------//
STATIC FUNCTION Cerrar()
   SayLog("oSocket:Close()")
   If lConectado
      oSocket:Close()
      oSocket:End()
   Else
      SayLog("No estamos conectados")
   EndIf
   SayLog("socket cerrado. Esperndo 1 segundo")
   syswait(1)
RETURN .T.



STATIC FUNCTION ProcesaRespuesta( cRespuesta)
// Comprobando conexión
If oSocket:Cargo = "GET_SRV"
   If cRespuesta == oSocket:Cargo + "_OK"
      lConectado := .T.
      RETURN .T.
   EndIf
EndIf

RETURN NIL

 

Code: Select all

  Time from start: 0 hours 0 mins 1 secs 
   Error occurred at: 10/11/19, 08:00:59
   Error description: Error BASE/1004  No exported method: SENDDATA
   Args:
     [   1] = U   
     [   2] = C   Hello from server!

Stack Calls
===========
   Called from:  => SENDDATA( 0 )
   Called from: sockserv.prg => (b)MAIN( 23 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 471 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 662 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1723 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1465 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3234 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1003 )
   Called from: sockserv.prg => MAIN( 25 )

Code: Select all

if WSAGetLastError() != WSAEWOULDBLOCK
                // exit
             endif