Hola, tengo la obligada desdicha de incorporar en mi sistema la impresion de facturas fiscales EPSON, esto se hace a traves de un control ActiveX, hago lo siguiente:
oActiveX:=TActiveX():New(oWnd, "EpsonFPHostControlX.EpsonFPHostControl")
oWnd:oClient:=oActiveX
Va todo bien, pero me aparece un dibujito de un cable arriba a la izquierda y no me muestra el fondo que utilizo.
Muchas gracias
Jorge Jaurena
Jorge,
Puedes capturar una imagen de como se ve y ponerla en www.imageshack.us y copiar el url aqui ?
Ok, hago eso.
Antonio, no se si viste un mail que te envie sobre un exe en texto con FWH.
Gracias
Jorge Jaurena
Jorge,
No lo he recibido, lo mandastes como ZIP ? Igual lo borró el filtro antispam
Bueno, te comento aqui.
La consulta era la siguiente:
Tengo que hacer un pequeño programa que levante una base de datos SQL y pretendo usar ODBC o conectar directo al motor, pero el problema es que este programa debe correr en modo texto, ya que correra sobre terminales Symbol utilizando Telnet, y por desgracia el Telnet no levanta nada en modo grafico a pesar de que la terminal usa Windows CE.
No tengo intencion de volver a Clipper, me gustaria armar esto con FWH, sera posible esto?, habra algun ejemplo?
Muchas gracias.
Jorge Jaurena
Jorge...
Con que trabajas. Harbour, xHarbour, xHarbour.com...
Yo intente en reiteradas oportunidades hacer funcionar la Activex de Epson con Harbour y no se puede, el error como podras ver en mis multiples posts aqui en este foro es como enviar un CHR(0) como comando al Activex
En Harbour no pude hacerlo, o mas bien no encontre la solucion con los consejos de Antonio Linares, (puedes buscar los Posts)
Mi solucion, ya que tambien trabajo con Xharbour.com fue utilizar la funcion WtArrayWrapper() si necesitas ej. te lo envio.. pero como te dije.. solo lo he logrado con Xhb.com
Desde Chile.
Gracias Antonio por tu respuesta.
Si podes enviame algun ejemplo a jjaurena@yahoo.com y pruebo con xHarbour ya que estoy usando Harbour.
Saludos!
Jorge Jaurena.
Disculpame me confundi de nombre, quise decir gracias Adolfo.
Jorge,
Puedes simular una consola de texto usando una ventana. Se trata de que bPainted de la ventana tome la información de un array y lo vuelque a la ventana. Asà escribes al array, y luego lo vuelcas a la ventana.
Es lo que por ejemplo hace Xbase++ para simular su modo consola. Muchas aplicaciones comerciales de gestión también lo usan para simular un terminal
Antonio tendras un pequeño ejemplo?
Gracias!
#include "FiveWin.ch"
static oWnd, buffer[ 25, 80 ]
function Main()
local oFont, nRow, nCol
for nRow = 1 to 25
for nCol = 1 to 80
buffer[ nRow, nCol ] = " "
next
next
DEFINE FONT oFont NAME "Courier New" SIZE 0, -12
DEFINE WINDOW oWnd TITLE "Terminal" COLOR "W+/B"
oWnd:SetFont( oFont )
Say( 5, 5, "Hello world!" )
Say( 10, 12, "A terminal emulator" )
ACTIVATE WINDOW oWnd ;
ON PAINT DumpText( oWnd )
return nil
function DumpText( oWnd )
local nRow, nCol
for nRow = 1 to 25
for nCol = 1 to 80
oWnd:Say( nRow, nCol, buffer[ nRow, nCol ] )
next
next
return nil
function Say( nRow, nCol, cText )
local n
for n = 1 to Len( cText )
buffer[ nRow, nCol + n - 1 ] = SubStr( cText, n, 1 )
next
oWnd:Refresh()
return nilGracias Antonio, voy a probar algo asi en la terminal.
Saludos
Jorge Jaurena
Antonio, el ejemplo funciona en una pc pero en la terminal no levanta porque el texto esta contenido dentro de una ventana windows y telnet solo muestra texto.
Se podra hacer esto?
Saludos y gracias!
Jorge Jaurena.