FiveTech Software tech support forums

... } // Never use a MsgInfo() here because it hangs Windows!!! oSocketArray[nBridge]:bConnect = { || mUniWinConnected := .T. } oSocketArray[nBridge]:bClose = { || mUniWinClosed := .T. } oSocketArray[nBridge]:lDebug = .T. oSocketArray[nBridge]:cLogFile = "iplogfile.log" oSocketArray[nBridge]:Connect( ...

... | oClient := TSocket():Accept( oSocket:nSocket ),; oClient:Cargo := ST_COMMAND,; oClient:bRead := { | oSocket | OnRead( oSocket ) },; oClient:bClose := { | oSocket | OnClose( oSocket ) } } oSocket:Listen() But I was maybe thinking that oSocket:SendData could return an answer, but it's working ...

... nPort ) oSocket:bConnect := { || oSocket:SendData( cRfData ),; oSocket:End(), MsgInfo( cRfData + " DATA SENT!" ) } oSocket:bClose = { || MsgInfo( "disconnected!" ) } oSocket:Connect( cIP ) RETURN NIL

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

oSocket := TSocket():New( 8083 ) oSocket:bConnect := { | oSocket | Send(oSocket) } oSocket:bRead := { | oSocket | CogeDato( oSocket ) } oSocket:bClose := { || MsgInfo( "Server has closed!" ) } oSocket:Connect( "miserver.dyndns.org", 8083 ) // no conecta estando sincronizada ...

... maquina a la que te conectas, ha cerrado el socket y/o perdido la conexion, por lo tanto si tu lo cierras, no tiene por que ejecutarse ... oSocket:bClose = { || MsgInfo( "Server has closed!" ) } Normalmente se utiliza ... oSocket:bClose = {|| oSocket:Close() } Saludos ... Andres Reyes

Muy buenas, tengo que mandar un fichero a una direccion IP y a un puerto todo esto lo hace pero el oSocket:bClose = { || MsgInfo( "Server has closed!" ) } no funciona es decir yo cierro el socket pero no hace caso me gustaría saber como puedo borrar los datos del buffer ...

... ::oClientSock:bRead := { |oClient| ClientRead(oClient)} ::oClientSock:bConnect := { |oClient| OnConnect(oClient) } // ::oClientSock:bClose := { |oClient| OnCloseClient(oClient) } ::oClientSock:Connect( ::cServerIP ) // use the server IP address here ::lConnected := .t. oApp:lClientConnected ...

... | oClient := TSocket():Accept( oSocket:nSocket ),; oClient:Cargo := ST_COMMAND,; oClient:bRead := { | oSocket | OnRead( oSocket ) },; oClient:bClose := { | oSocket | OnClose( oSocket ) } } oSocket:Listen() return nil //------------------------------------------------------------------------// ...

... | oClient := TSocket():Accept( oSocket:nSocket ),; oClient:Cargo := ST_COMMAND,; oClient:bRead := { | oSocket | OnRead( oSocket ) },; oClient:bClose := { | oSocket | OnClose( oSocket ) }} oSocket:OnWrite("TESTE") oSocket:Listen() return nil //------------------------------------------------------------------------// ...

... | oClient := TSocket():Accept( oSocket:nSocket ),; oClient:Cargo := ST_COMMAND,; oClient:bRead := { | oSocket | OnRead( oSocket ) },; oClient:bClose := { | oSocket | OnClose( oSocket ) }} oSocket:OnWrite("TESTE") oSocket:Listen() return nil //------------------------------------------------------------------------// ...

Gracias Antonio, he puesto este codigo dentro del metodo close de la clase tdialog: if ValType( ::bClose ) == "B" if ! IsWindow(::hWnd ) Eval( ::bClose, Self ) Endif Endif He creado una data nueva bClose y desde mi prg puede hacer lo siguiente : oDlg:bClose:={||cualquiercosa()} ...

... ) } // Never use a MsgInfo() here because it hangs Windows!!! oSocket:bConnect = { || oPedcli:SetText( "Connected 128.50.1.179" ) } oSocket:bClose = { || MsgInfo( "Server has closed!" ) } oSocket:Connect( "128.50.1.179" ) // use the server IP address here :lol: POR LA PARTE DEL SERVER function ...

... oSocket:GetData() ) } // Never use a MsgInfo() here because it hangs Windows!!! oSocket:bConnect = { || oWnd:SetText( "Connected!" ) } oSocket:bClose = { || MsgInfo( "Server has closed!" ) } oSocket:Connect( "128.50.1.179" ) // use the server IP address here return nil //************************************************** ...

... | oClient := TSocket():Accept( oSocket:nSocket ),; oClient:Cargo := ST_COMMAND,; oClient:bRead := { | oSocket | OnRead( oSocket ) },; oClient:bClose := { | oSocket | OnClose( oSocket ) } } oSocket:Listen() return nil //------------------------------------------------------------------------// ...