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