FiveTech Software tech support forums

... pero no se como cargar esa informacion a un avariable. estoy usando lo siguiente FUNCTION leer_bloque() MsgInfo( "Proceda a leer ahora" ) nComm:= OpenComm("COM1" , 1024,128) cBuffer:=Space(702) nBytes := ReadComm (nComm,@cBuffer) ?? cBuffer RETURN Pero solo un caracter logro cargar, es aqui donde ...

... TASTI( nCom, nKey ) * SENDSTR( nCom, CHR( nKey ) ) RETURN NIL STATIC FUNCTION APRICOM( oDlg, oGet ) LOCAL nCom, cDcb BEGIN SEQUENCE nCom = OPENCOMM( "COM4", 1,1 ) IF nCom < 0 ? "Error de Apertura de Puerto de Comunicaciones." BREAK ENDIF BUILDCOMMDCB( "COM4:9600,N,8,1", @cDcb ) IF !SETCOMMSTATE( ...

Muy buenas foro, estoy utilizando las funciones:

OpenComm( "COM1", 1024, 128 )
BuildCommDcb( "COM1:9600,n,8,1", @cDcb )

para conectarme con el COM pero necesito activar el RTS, ¿ me podrían decir como puedo activarlo?

Un Saludo.

... Por lo que leo de este tipo máquinas, usa ese mismo protocolo. Lo que no se es como introduccirlo con código xHarbour/FWH AbrirPuerto Lo OpenComm, BuildCommDcb, etc. para la apertura y escucha del puerto mandar_enq Me imagino que sea WriteComm( nComm, chr(5)+CRLF ) leer_ack Esto es lo ...

... el envío de ordenes a los puerto comm y recoger la información devuelta. Uso las instrucciones de FWH para comunicación con un puerto comm OpenComm( ) BuildCommDcb( ) SetCommState( ) oWnd:bCommNotify EnableCommNotification( ) Y funciona correctamente. Ahora esto tratando de probar WriteComm() ...

... RS-232' local cPort:='4', cSpeed:='9600' local cDcb, cRv := '', cS := 'COM' + cPort + ':' + cSpeed + ',n,8,1' // Abre el puerto en el PC. nComm := OpenComm( 'COM' + cPort, 1024 , 128 ) IF nComm >= 0 // We have a valid port... msginfo(' Se ha abierto el puerto: COM' + cPort) IF BuildCommDcb( ...

... bits. En Clipper se usa así: SetCommState( cDcb ), pero en 32 bits se usa así: SetCommState( nComm, cDcb ) en donde nComm es el valor devuelto por OpenComm(). Pruébalo :-)

... DEFAULT vModo := 0 If Select("Almac") > 0 vComx := "COM1" EndIf vLinea1 := SubStr(vLinea1,1,20) vLinea2 := SubStr(vLinea2,1,20) If ( nCOMM := OpenComm(vComx,1024,128 )) <> 0 Return .f. EndIf //MsgAlert(vLinea1+CRLF+vLinea2,vComx) BuildCommDCB(vComx+":9600,n,8,1", @cDCB) SetCommState( ...

... nil func f_EIN_KUNDENDISPLAY() #ifdef KUNDENDISPLAY LOCAL lReady LOCAL nDelTime := 1 *-------------------------------------------- DSP_COM := OpenCOMM( GetPvProfString( "SETUPDATEN","DISPLAY" ,"COM2" , ".\INI\TOUCH.INI" ), 1024, 128 ) if ! BuildCommDcb( GetPvProfString( "SETUPDATEN","DISPLAY" ...

Mauro, Prueba a poner un MsgInfo() despues de cada llamada, para ver en que función te está fallando, gracias: local cDcb, nBytes local nComm := OpenComm( "COM1", 1024, 128 ) local nError MsgInfo( 1 ) if ! BuildCommDcb( "COM1:3000,n,8,1", @cDcb ) nError = GetCommError( nComm ) endif MsgInfo( 2 ...

... ha detectado un problema y debe cerrarse. El codigo que tengo para habrir el cajón monedero es el siguiente: local cDcb, nBytes local nComm := OpenComm( "COM1", 1024, 128 ) local nError if ! BuildCommDcb( "COM1:3000,n,8,1", @cDcb ) nError = GetCommError( nComm ) endif if ! SetCommState( cDcb ...

... to use serial ports with xHarbour? Function COM_OPEN(xPORT) Local pNAME:=IIF(xPORT=1,"COM1","COM2") Local nError,cDCB Local xRESZTA:=.T. hPORT:= OpenComm( pNAME, 2048, 2048 ) If ! BuildCommDcb( pNAME+cSPEED, @cDcb ) nError = GetCommError( hPORT ) MsgInfo( "BuildCommDcb Error: " + Str( nError ...

Yes, FWH communication management is currently limited to one port at a time, as far as I know.

EMG

I found the problem with Opencomm function. In FW the result for nComm1=0 and nComm2=2 but in FWH result of nComm1 and nComm2 are the same = 1, So I cannot open more than one port in the same time ( Can I open port more than 9 ports ) ...

... sin necesidad de incorporar librerias de 3ros. Por ejemplo, para abrir el puerto utilizo: FUNCTION abrirport(n) LOCAL IdPort,cDcb,nError IdPort := OpenComm("COM"+STR(n,1),1024,256) IF IdPort <= 0 nError = GetCommError( IdPort) MsgInfo( "Error al abrir: " + Str( nError ) ) ELSE MsgRun("Puerto ...