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
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
Code: Select all
::cFile := 'com1:'
::Fp := fcreate( ::cFile )
aTmp := ListAsArray( ::cText ,CRLF)
for i = 1 to Len( aTmp )
fwrite( ::Fp, aTmp[ i ] + CRLF )
next
fClose( ::Fp )
┌────────────────────────────────────────────────────────────────────────────┐
│ 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
