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
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 ) endReturn Nil
tambien he intentado con este codigo sin resultado
Code: Select all | Expand
::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