carito wrote:Hola a todos,
Necesito una ayuda u orientacion urgente:
Tengo que leer el peso de una bascula (PESA) , que se conecta al pc mediante un cable adaptador SERIAL a puerto USB.
El drive de instalacion de la pesa me crea un puerto virtual COM4 por conexion USB. ( este puerto no existe fisicamente en el PC)
Mi problema es que no logro reconocer con las funciones de Harbour 3.2 ese puerto virtual, estoy medio angustiado, pues no
conozco otra forma. Si alguien sabe como configurar o reconocer esos puertos, se lo agradeceria mucho.
Se que la rutina funciona, pues si le doy un puerto serial COM1 verdadero ( no virtual ), es capaz de abrir y conectarse.
Mi rutina es la siguiente:
FUNCTION Balanza1( cPortName )
Local nComPort := 4 //COM3
Local nTimeOut := 100 //ms
Local lIsOpened := FALSE
Local lIsInit := FALSE
Local nBytesSended := 0
Local nBytesReceived := 0
Local cReceiveBuffer := SPACE(512)
Local cStringToSend := "W<CR>" // este comando le indica a la balzan que devuelva el peso detectado
//To receive
Local cReceivedString := ""
//to COM open
lIsOpened := HB_comOpen( nComPort )
//to Com Initialize
lIsInit := HB_ComInit( nComPort, 9600 , "N", 8, 1 )
//To send
nBytesSended := HB_ComSend( nComPort, cStringToSend , , nTimeOut )
//To receive
nBytesReceived := HB_ComRecv( nComPort, @cReceiveBuffer, , nTimeOut )
cReceivedString := Left( cReceiveBuffer, nBytesReceived )
? cReceivedString
return nil
Quedo a al espera y gracias,
Carito
hace casi 14 años use esto para conectar un lector en un puerto virtual en windows xp
lo hice en Harbour / HMG
- Code: Select all Expand view
#include "hbcom.ch"
Function Main
....
fConecta() /* conecta el scanner a Comm3 */
.....
Return
*-------------------------------------------------------------*
Static Procedure fConecta()
*-------------------------------------------------------------*
local f_Com := "COM3"
local f_BaudeRate := 9600
local f_databits := 8
local f_parity := 0 //ninguno
local f_stopbit := 1
local f_Buff := 8000
nHandle := Init_Port( f_Com , f_BaudeRate , f_databits , f_parity , f_stopbit , f_Buff )
If nHandle > 0
Principal.StatusBar.Item(1) :=" Scanner Conectado a COM:3"
lConectado := .T.
OutBufClr( nHandle )
Else
Principal.StatusBar.Item(1) := "Verifique los valores, no se puede establecer la conexion"
lConectado := .F.
EndIf
Return
Posted: Wed Feb 28, 2024 8:29 am