FiveTech Software tech support forums

... Case xPORT=5 pNAME:="COM5" Case xPORT=6 pNAME:="COM6" Case xPORT=7 pNAME:="COM7" Case xPORT=8 pNAME:="COM8" Case xPORT=9 pNAME:="COM9" EndCase hPORT:= OpenComm( pNAME, 2048, 2048 ) If ! BuildCommDcb( pNAME+cSPEED, @cDcb ) nError = GetCommError( ...

... Case xPORT=5 pNAME:="COM5" Case xPORT=6 pNAME:="COM6" Case xPORT=7 pNAME:="COM7" Case xPORT=8 pNAME:="COM8" Case xPORT=9 pNAME:="COM9" EndCase hPORT:= OpenComm( pNAME, 2048, 2048 ) If ! BuildCommDcb( pNAME+cSPEED, @cDcb ) nError = GetCommError( ...

... Case xPORT=5 pNAME:="COM5" Case xPORT=6 pNAME:="COM6" Case xPORT=7 pNAME:="COM7" Case xPORT=8 pNAME:="COM8" Case xPORT=9 pNAME:="COM9" EndCase hPORT:= OpenComm( pNAME, 2048, 2048 ) If ! BuildCommDcb( pNAME+cSPEED, @cDcb ) nError = GetCommError( ...

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 valido lo siguiente ...

... of the characters get lost (always other characters, sometimes only one, sometimes 2, 3 or 4). The printer is connected via Bluetooth seriell at COM8. Must i configure something for bluetooth seriell communication at COM8 ? Would it help, if i put a sleep in the WriteByte loop ? If yes, with ...

... 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 even with extensions. These restrictions ...

... puerto serie a un impresora bluetooth y me gustaría saber si la impresora ha recibido el fichero o no, se que con: local cConexion := CreateFile( "COM8:",GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL ) cConexion si no hay te devuelve 1 pero a mi si no tiene conexion no devuelve 1. Me ...

... mira yo creo un fichero y en la primera línea pongo: WriteByte( cConexion,Chr(27)+"C*") es decir, mi codigo es: local cConexion := CreateFile( "COM8:",GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL ) if (cConexion==-1) MsgStop('No hay conexion con la impresora',vTitulo) else WriteByte( ...

... de la PDA se desconecta cuando lleva un tiempo, el codigo que uso es: static function ImprimeLinea(cTexto) local n local cConexion := CreateFile( "COM8:",GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL ) cText:=cTexto+chr(10)+chr(13)+chr(12) for n = 1 to Len( cTexto ) WriteByte( cConexion, ...

Básicamente, yo utilizo un receptor GPS con conexión Bluetooth y un iPaq Pocket PC. El enlace entre el GPS y el iPaq se hace abriendo el puerto COM8 y no tienes más que ir leyendo por él los strings que envía el GPS. Tienes un buen ejemplo en \Samples\Bluetooth.prg Mi receptor GPS envía un juego ...

... hOut := CreateFile( "LPT1:",; // change the number as needed GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL ) local hIn := CreateFile( "COM8:",; // change the number as needed GENERIC_READ, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL ) DEFINE WINDOW oWnd TITLE "BlueTooth" @ 2, 2 BUTTON ...

... con mi pocket (tengo una HP iPAQ serie hx2100 con windows mobile 5.0) y una impresora STAR DP8340 con un adaptador bluetooth conectado a ella. (com8: -> puerto de salida de la pocket y com5:->puerto de entrada) Utilizo la forma de imprimir que aparece en el ejemplo bluetoth.prg El problema ...

... con mi pocket (tengo una HP iPAQ serie hx2100 con windows mobile 5.0) y una impresora STAR DP8340 con un adaptador bluetooth conectado a ella. (com8: -> puerto de salida de la pocket y com5:->puerto de entrada) Utilizo la forma de imprimir que aparece en el ejemplo bluetoth.prg El problema ...

... Local nTotal:=0 Local hOut USE (cRutaFic+"\PARAPK") NEW GO TOP cPuerto:="COM"+str(PARAPK->PSALIDA,1)+":" CLOSE PARAPK //EL PUERTO ES EL COM8: hOut := CreateFile( rtrim(cPuerto),; GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL ) DO WHILE hOut < 0 .AND. nVeces <= 30 hOut ...

Maurizio,

Try this:

#define GENERIC_READ 0x80000000
#define OPEN_EXISTING 3
#define FILE_ATTRIBUTE_NORMAL 0x00000080

...

local hIn := CreateFile( "COM8:",; // change the number as needed
GENERIC_READ, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )