Comunicando com periferico RS232

[Marcelo Coelho Silva]

Prezados Senhores,
Como faço para comunicar com perificos utilizando as portas RS232
(COM1,COM2,COM3,etc).
Quais as Funções do Xailer/xHarbour ???
Obrigado,
Marcelo Coelho Silva.

[Boris]

Marcelo te adjunto una libreria que estoy utilizando yo que me funciona
barbaro y las funciones que yo hice en mi aplicacion, espero que te sean de
ayuda.
Function Com_Init(Puerto,Velocidad,X1,X2,X3,Buffer)
Com_Init:=-1
If Puerto#Nil
Velocidad:=iiF(Velocidad#Nil,Velocidad,9600)
X1:=iiF(X1#Nil,X1,8)
X2:=iiF(X2#Nil,X2,0)
X3:=iiF(X3#Nil,X3,0)
Buffer:=iiF(Buffer#Nil,Buffer,8000)
If Velocidad=9600
Com_Init:=Init_Port( Puerto, 9600, 8, 0, 0, 8000 )
ElseIf Velocidad=1200
Com_Init:=Init_Port( Puerto, 1200, 8, 0, 0, 8000 )
EndIf
OutBufClr( Com_Init )
EndIf
Return Com_Init
Function Com_Send(Puerto,Texto)
OutChr( Puerto, Texto, Len( Texto ) )
Return
Function Com_Read(Puerto,nChr)
Local cBuff
cBuff := Space( nChr )
Com_Read:=InChr( Puerto, nChr ,@cBuff )
Return cBuff
Function Com_CLose(Puerto)
UnInt_Port( Puerto )
Return
"Marcelo Coelho Silva" <marcelo@mhacker.com> escribió en el mensaje
news:[email=48e2eb08@ozsrv2.ozlan.local...]48e2eb08@ozsrv2.ozlan.local...[/email]
> Prezados Senhores,
>
> Como faço para comunicar com perificos utilizando as portas RS232
> (COM1,COM2,COM3,etc).
>
> Quais as Funções do Xailer/xHarbour ???
>
> Obrigado,
>
> Marcelo Coelho Silva.
>
>


Attached files HBCOMM.LIB (18 KB)Â

[Marcelo Coelho Silva]

Boris Chesini,
Muito obrigado pela Ajuda, vai ser muito util.
Voce possui a documentação sobre esta LIB (HBCOMM.LIB) para que eu possa
substituir as funções da CT.LIB (Clipper 5) ?
Function COM_HARD
function COM_OPEN
Function COM_DTR
Function COM_COUNT
As funções abiaxo voce já mostrou no seu exemplo como substitui-las,
Function COM_INIT
Function COM_SEND
Function COM_CLOSE
Function COM_READ
Obrigado pela ajuda,
Marcelo Coelho Silva.
"Boris Chesini" <masterisi@masterisi.com.ar> escreveu na mensagem
news:[email=48e3582d@ozsrv2.ozlan.local...]48e3582d@ozsrv2.ozlan.local...[/email]
> Marcelo te adjunto una libreria que estoy utilizando yo que me funciona
> barbaro y las funciones que yo hice en mi aplicacion, espero que te sean
> de ayuda.
>
>
>
> Function Com_Init(Puerto,Velocidad,X1,X2,X3,Buffer)
> Com_Init:=-1
> If Puerto#Nil
> Velocidad:=iiF(Velocidad#Nil,Velocidad,9600)
> X1:=iiF(X1#Nil,X1,8)
> X2:=iiF(X2#Nil,X2,0)
> X3:=iiF(X3#Nil,X3,0)
> Buffer:=iiF(Buffer#Nil,Buffer,8000)
> If Velocidad=9600
> Com_Init:=Init_Port( Puerto, 9600, 8, 0, 0, 8000 )
> ElseIf Velocidad=1200
> Com_Init:=Init_Port( Puerto, 1200, 8, 0, 0, 8000 )
> EndIf
> OutBufClr( Com_Init )
> EndIf
> Return Com_Init
>
> Function Com_Send(Puerto,Texto)
> OutChr( Puerto, Texto, Len( Texto ) )
> Return
>
> Function Com_Read(Puerto,nChr)
> Local cBuff
> cBuff := Space( nChr )
> Com_Read:=InChr( Puerto, nChr ,@cBuff )
> Return cBuff
>
> Function Com_CLose(Puerto)
> UnInt_Port( Puerto )
> Return
>
>
>
> "Marcelo Coelho Silva" <marcelo@mhacker.com> escribió en el mensaje
> news:[email=48e2eb08@ozsrv2.ozlan.local...]48e2eb08@ozsrv2.ozlan.local...[/email]
>> Prezados Senhores,
>>
>> Como faço para comunicar com perificos utilizando as portas RS232
>> (COM1,COM2,COM3,etc).
>>
>> Quais as Funções do Xailer/xHarbour ???
>>
>> Obrigado,
>>
>> Marcelo Coelho Silva.
>>
>>
>
>
>

[Diego Ferreira]

Gracias !!! Esto me ah servido...