imprimir en una pidion BIP-1300
Posted: Tue Jun 16, 2009 2:55 am
Buenas noches
Esta maquina tipo handheld tiene una impresora termal integrada, la empresa que nos vendio este equipo asegura que se debe imprimir en el puerto com1: yo he intentado con este codigo bajado del foro no me da error pero no imprime nada
tambien he intentado con este codigo sin resultado
si alguien pudiera darme una mano, el sistema que hice para este aparato funciona muy bien solo me falta la impresion, mi version de fwppc es de
┌────────────────────────────────────────────────────────────────────────────┐
│ FiveWin for Pocket PC - April 2007 Harbour development power│
│ (c) FiveTech, 1993-2007 for Microsoft Windows Pocket PC │
└────────────────────────────────────────────────────────────────────────────┘
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Compiling...
Harbour devel build 1.1-1 Intl.
Copyright 1999-2007, http://www.harbour-project.org/
Compiling 'Jose_Pok.prg' and generating preprocessed output to 'Jose_Pok.ppo'.
Jose_Pok.prg(5575) Warning W0027 Meaningless use of expression: 'Logical'
Jose_Pok.prg(5575) Warning W0027 Meaningless use of expression: 'Logical'
Lines 13431, Functions/Procedures 161
Generating C source output to 'Jose_Pok.c'... Done.
Microsoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM
Copyright (C) Microsoft Corp 1984-2002. All rights reserved.
gracias x su ayuda
saludos
Att
Wilson 'W' Gamboa A
swrite@uio.satnet.net
pd: no tenemos ningun manual y en la web tampoco encontre nada que nos ayude
Esta maquina tipo handheld tiene una impresora termal integrada, la empresa que nos vendio este equipo asegura que se debe imprimir en el puerto com1: yo he intentado con este codigo bajado del foro no me da error pero no imprime nada
- Code: Select all Expand view
method Print() Class tWg_Print
Local i
Local err
Local aTmp
::cPort := 'com1:'
::Fp := CreateFile( ::cPort, GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )
SetComm(::Fp, 9600, .F., 8, 1) // Configura el puerto
err := GetLastError()
IF err = -1
MsgInfo(err,"Error!")
CloseHandle( ::Fp )
::Fp := Nil
Return Nil
ENDIF
for i = 1 to Len( ::cText )
WriteByte( ::Fp, Asc( SubStr( ::cText, i, 1 ) ) )
sysrefresh()
next
CloseHandle( ::Fp )
end
Return Nil
tambien he intentado con este codigo sin resultado
- Code: Select all Expand view
::cFile := 'com1:'
::Fp := fcreate( ::cFile )
aTmp := ListAsArray( ::cText ,CRLF)
for i = 1 to Len( aTmp )
fwrite( ::Fp, aTmp[ i ] + CRLF )
next
fClose( ::Fp )
si alguien pudiera darme una mano, el sistema que hice para este aparato funciona muy bien solo me falta la impresion, mi version de fwppc es de
┌────────────────────────────────────────────────────────────────────────────┐
│ FiveWin for Pocket PC - April 2007 Harbour development power│
│ (c) FiveTech, 1993-2007 for Microsoft Windows Pocket PC │
└────────────────────────────────────────────────────────────────────────────┘
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Compiling...
Harbour devel build 1.1-1 Intl.
Copyright 1999-2007, http://www.harbour-project.org/
Compiling 'Jose_Pok.prg' and generating preprocessed output to 'Jose_Pok.ppo'.
Jose_Pok.prg(5575) Warning W0027 Meaningless use of expression: 'Logical'
Jose_Pok.prg(5575) Warning W0027 Meaningless use of expression: 'Logical'
Lines 13431, Functions/Procedures 161
Generating C source output to 'Jose_Pok.c'... Done.
Microsoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM
Copyright (C) Microsoft Corp 1984-2002. All rights reserved.
gracias x su ayuda
saludos
Att
Wilson 'W' Gamboa A
swrite@uio.satnet.net
pd: no tenemos ningun manual y en la web tampoco encontre nada que nos ayude