SOCKET - Teclado WILBOR - RESOLVIDO

MGA · Post by **MGA** » Thu Apr 24, 2008 2:33 pm

Amigos, estou tentando comunicar com um teclado WILBOR via socket, consegui me conectar ao mesmo usando o exemplo abaixo, agora preciso interagir com o mesmo, como devo fazer para escrever na porta ou receber os dados digitados no teclado?

// Socket server connection sample

#include "FiveWin.ch"

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

static oWnd, oSocket, oClient

//------------------------------------------------------------------------//

function Main()

local oBar

DEFINE WINDOW oWnd TITLE "Server socket"

DEFINE BUTTONBAR oBar OF oWnd _3D

DEFINE BUTTON OF oBar ACTION (Server()) TOOLTIP "Listen"

ACTIVATE WINDOW oWnd

return nil

//------------------------------------------------------------------------//

function Server()

oSocket = TSocket():New( 1001 )

oSocket:bAccept = { | oSocket | 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

//------------------------------------------------------------------------//

function OnRead( oSocket )

local cData := oSocket:GetData()
local cToken
LogFile( "sockserv.txt", { Len( cData ), cData } )
do case
case oSocket:Cargo == ST_COMMAND
cToken = StrToken( cData, 1 )
do case
case cToken == "SENDFILE"
oSocket:Cargo = ST_SENDFILE
oSocket:hFile = fcreate( StrToken( cData, 2 ) )

case cToken == "MSG"
MsgInfo( SubStr( cData, 5 ) )
endcase

case oSocket:Cargo == ST_SENDFILE
fwrite( oSocket:hFile, cData, Len( cData ) )
LogFile( "sockserv.txt", { "writting..." } )

if Len( cData ) < FILE_BLOCK
// fclose( oSocket:hFile )
// MsgInfo( Len( cData ) )
// oSocket:Cargo = ST_COMMAND
endif
endcase

return nil

//------------------------------------------------------------------------//

function OnClose( oSocket )

MsgInfo( "Client has closed!" )

do case
case oSocket:Cargo == ST_SENDFILE
fclose( oSocket:hFile )
endcase

oSocket:End()

return nil

Post by **karinha** » Thu Apr 24, 2008 5:44 pm

http://www.fivewin.com.br/forum/topic.a ... C_ID=12720

MGA · Post by **MGA** » Fri Apr 25, 2008 11:05 am

Pessoal, consegui a comunicação completa com o TECLADO WILBOR via socket TCP-IP, diretamente sem nenhuma DLL. Quem precisar é só gritar.

Post by **karinha** » Fri Apr 25, 2008 12:44 pm

SGS wrote:Pessoal, consegui a comunicação completa com o TECLADO WILBOR via socket TCP-IP, diretamente sem nenhuma DLL. Quem precisar é só gritar.

Se possivel, POSTE A SOLUÇÃO, USANDO FIVEWIN.

Obrigado.

ADBLANCO · Post by **ADBLANCO** » Fri Apr 25, 2008 11:13 pm

Estimado Colega, (es una tonteria lo que voy a poner aquí, pero soy de los que creen que mientras más sepa uno es mejor)

En Castellano no se pone Resolvido, sino RESUELTO,

Suerte y Saludos.. (no te ofendas, es solo para aprender un poco más cada día)

gabo · Post by **gabo** » Sat Apr 26, 2008 12:44 am

Estimado Colega, ADBLANCO

NO Es Castellano, ES Portugues

Suerte y Saludos.. (no te ofendas, es solo para aprender un poco más cada día)

Saludos
GABO

MGA · Post by **MGA** » Sat Apr 26, 2008 11:11 am

Gracias Gabo.

Post by **karinha** » Mon Apr 28, 2008 12:30 pm

gabo wrote:Estimado Colega, ADBLANCO

NO Es Castellano, ES Portugues

Suerte y Saludos.. (no te ofendas, es solo para aprender un poco más cada día)

Saludos
GABO

JEJEJEJEJE.

Las dos cosas, son la misma cosa.

(no te ofendas, es solo para aprender un poco más cada día)

JEJEJEJE.

Saludos = Saudações = Regards.