Imprimir imagen con TPrinter
Posted: Sat May 06, 2017 4:51 pm
Amigos del foro
Tengo el siguiente codigo
y me imrpime correctamente
En mi dbf art tengo un campo memo llamado imagen donde guardo el archivo jpg
Estoy tratando de hacer esto :
cImagen := MemoRead(alltrim(art->imagen))
consulto ? cImagen y no me muestra nada
Como puedo corregir mi codigo para utilizar la informacion de art->imagen en vez de la informacion de ".\imagenes"
Saludos
Tengo el siguiente codigo
Code: Select all
STATIC FUNCTION EmiRepLin()
LOCAL cImagen
LOCAL oPrn, nContador := 0
LOCAL cDescAdi, NumLineas, i, cCodigo, cNomCod
IF !filtra()
RETURN nil
ENDIF
SET CENTURY OFF
cTitRep1 := "LISTA DE PRECIOS"
cTitRep2 := "POR LINEA DE PRODUCTO"
PRINT oPrn NAME "Reporte de lista de precios" FROM USER PREVIEW
If Empty( oPrn:hDC )
Return NIL
END
oPrn:lPrvModal := .t.
DEFINE FONT oFontC NAME "Tahoma" SIZE 0, -8 BOLD OF oPrn
DEFINE FONT oFontD NAME "Tahoma" SIZE 0, -7 OF oPrn
DEFINE FONT oFontE NAME "Tahoma" SIZE 0, -7 OF oPrn
PAGE
nRow := 1
nRen := 1
EncRep( oPrn )
DO WHILE !art->(Eof())
cCodigo := art->id_lin
cNomCod := IF(lin->(DBSeek(cCodigo)), lin->nombre, "")
oPrn:CmSay( nRow, 01.0, AllTrim(cCodigo) + " " + AllTrim(cNomCod), oFontC )
nRow += 0.40
IF nRow >= 26
oPrn:EndPage()
oPrn:StartPage()
nRow := 1
EncRep( oPrn )
ENDIF
DO WHILE art->id_lin = cCodigo
cImagen := AllTrim(art->id) + ".jpg"
IF File(".\imagenes\" + cImagen )
cImagen := ".\imagenes\" + cImagen
ELSE
cImagen := ""
ENDIF
oPrn:CmSay( nRow, 01.0, art->id, oFontD )
SayImagen( cImagen, oPrn, 1.8, 1.5 )
-----------------
-----------------
art->(DBSkip())
ENDDO
ENDDO
ENDPAGE
ENDPRINT
oFontC:End()
oFontD:End()
oFontE:End()
SET CENTURY ON
RETURN NIL
function SayImagen( cImagen, oPrn, nAncho, nAlto )
LOCAL aFrom := oPrn:Cmtr2Pix(nRow,10.5)
local aTam := oPrn:Cmtr2Pix(nAncho,nAlto)
cImagen := TImage():Define( , cImagen )
oPrn:SayImage(aFrom[1], aFrom[2], cImagen, aTam[1], aTam[2])
cImagen:end()
return nil
En mi dbf art tengo un campo memo llamado imagen donde guardo el archivo jpg
Estoy tratando de hacer esto :
cImagen := MemoRead(alltrim(art->imagen))
consulto ? cImagen y no me muestra nada
Como puedo corregir mi codigo para utilizar la informacion de art->imagen en vez de la informacion de ".\imagenes"
Saludos