FiveTech Software tech support forums

how to open multiple ports simultaneously?

if I try:

nCom1 := OpenComm( "COM1", 1024 , 128)
nCom2 := OpenComm( "COM2", 1024 , 128)

then

nCom1=1
nCom2=1

... Function COM_OPEN(xPORT) Local pNAME Local nError,cDCB Local xRESZTA:=.T. Do Case Case xPORT=1 pNAME:="COM1" Case xPORT=2 pNAME:="COM2" Case xPORT=3 pNAME:="COM3" Case xPORT=4 pNAME:="COM4" Case xPORT=5 pNAME:="COM5" Case xPORT=6 pNAME:="COM6" ...

... Function COM_OPEN(xPORT) Local pNAME Local nError,cDCB Local xRESZTA:=.T. Do Case Case xPORT=1 pNAME:="COM1" Case xPORT=2 pNAME:="COM2" Case xPORT=3 pNAME:="COM3" Case xPORT=4 pNAME:="COM4" Case xPORT=5 pNAME:="COM5" Case xPORT=6 pNAME:="COM6" ...

Realmente el diseño es como un paquete de tabaco de tamaño y una conexion USB que se instala como puerto serie (COM1, COM2, ETC...). Lo unico que necesito es coger las lecturas que son como he puesto en el primer post y pasarlas a registro, con esto tengo el problema solucionado.

Gracias

José García

... de tickets Para la impresión utilizo la clase TDOSPRN y las posibilidades son: 1) Impresora de ticket conectada al puerto LPT1, LPT2, COM1, COM2 Sería una opción facil:    oPrn:=TDosPrn():New("puerto_elegido")    oPrn:say(1,1,'empenzando a imprimir...')  ...

Buenas a todos. Mi proble es el siguiente: Tengo un lector de tags (las tarjetitas de los autobuses) conectado a COM2 que escanea los mismos varias veces cada vez que se pasa. Cuando se pasa, debe leer el codigo y meterlo en una base de datos con un solo campo que recoge la lectura ...

Siguiendo con el tema ninguno de estos nombre se pueden utilizar tampoco CON, PRN, AUX, NUL, COM1, COM2, COM3, COM4, COM5, COM6, COM7, COM8, COM9, LPT1, LPT2, LPT3, LPT4, LPT5, LPT6, LPT7, LPT8, and LPT9. Pero mediante LMKDIR('\\.\\E:\AUX') si podemos, ademas tambien es ...

... TDosPrn Local aPorts := { { "LPT1", 888 }, ; // 378h { "LPT2", 632 }, ; // 278h { "COM1", 1016 }, ; // 3f8h { "COM2", 760 } } // 2f8h Local nPos DEFAULT cPort := "LPT1" ,; lFile := .T. ,; // not used; kept here for compatibility lLaser := .F. ,; ...

... any character. CHR(0) through CHR(31) are not allowed in DOS file names. Also certain names are reserved for devices: CON, PRN, AUX, NUL, COM1, COM2, COM3, COM4, COM5, COM6, COM7, COM8, COM9, LPT1, LPT2, LPT3, LPT4, LPT5, LPT6, LPT7, LPT8, and LPT9. Microsoft warns against using these names ...

Retorna uma mensagem de erro, caso a AFLUENCIA, ABUNDANCIA, de dados, vindos da PORTA SERIAL COM1, COM2, COM3, não estejam de acordo com a velocidade dos bytes informada por voce. Não é obrigatório. Faça testes e veja em que momento necessitas, em contrário, não precisa ...

... LOCAL lReady LOCAL nDelTime := 1 *-------------------------------------------- DSP_COM := OpenCOMM( GetPvProfString( "SETUPDATEN","DISPLAY" ,"COM2" , ".\INI\TOUCH.INI" ), 1024, 128 ) if ! BuildCommDcb( GetPvProfString( "SETUPDATEN","DISPLAY" ,"COM2" , ".\INI\TOUCH.INI" )+":9600,n,8,1", @cDcb ...

Amigos,

Como saber quais portas COM estão instaladas no sistema:

ex:
COM1
COM2
COM3


Grato

... hangs up my program. Has somebody an idea how 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 ...

clemerson wrote:funciona para ler LTP1 ?

Clemerson

NO COMPRENDO?! PORQUE LA DUDA??

HBCOMM.LIB CREO KE ÉS SOLAMENTE PARA LECTORES SERIALES.

COM1, COM2, COM3... Etc.

Puedo estar errado.

Saludos.

SetCommState() requires two parameters:

Code: Select all  Expand view

if ! SetCommState( nComm, cDcb )

EMG