SOCKET - Teclado WILBOR - RESOLVIDO

Post Reply
MGA
Posts: 1219
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá
Contact:

SOCKET - Teclado WILBOR - RESOLVIDO

Post by MGA »

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
Last edited by MGA on Fri Apr 25, 2008 11:06 am, edited 1 time in total.
ubiratanmga@gmail.com

FWH17.04
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Post by karinha »

João Santos - São Paulo - Brasil
MGA
Posts: 1219
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá
Contact:

Post by MGA »

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

FWH17.04
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Post by karinha »

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.
João Santos - São Paulo - Brasil
User avatar
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela

Post by ADBLANCO »

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,

:oops:

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


:wink:
Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
gabo
Posts: 117
Joined: Tue Jan 03, 2006 8:31 pm

Post by gabo »

Estimado Colega, ADBLANCO

NO Es Castellano, ES Portugues

:oops:

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

:wink:

Saludos
GABO
MGA
Posts: 1219
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá
Contact:

Post by MGA »

Gracias Gabo.
ubiratanmga@gmail.com

FWH17.04
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Post by karinha »

gabo wrote:Estimado Colega, ADBLANCO

NO Es Castellano, ES Portugues

:oops:

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

:wink:

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.
João Santos - São Paulo - Brasil
Post Reply