FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour TPRINTER + PNG + BMP + JPG
Posts: 537
Joined: Mon Jan 16, 2006 03:42 PM
TPRINTER + PNG + BMP + JPG
Posted: Sat Sep 28, 2013 08:26 PM

Amigo puedo puedo poner una imagen con estas extenciones, se que con bmp se puede pero con png no he podido hacerlo
alguna ayuda

saludos

Posts: 537
Joined: Mon Jan 16, 2006 03:42 PM
Re: TPRINTER + PNG + BMP + JPG
Posted: Wed Oct 02, 2013 12:43 PM

Amigo nadien lo ha echo con jpg o png

Saludos

Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: TPRINTER + PNG + BMP + JPG
Posted: Wed Oct 02, 2013 10:59 PM

Con .jpg

SayImg( "img.jpg", oPrn,3,10, 6, 3 )

function SayImg( cImage, oPrn, nRen, nCol, nAncho, nAlto )
local oImg := TImage():Define( , cImage )
local aTam := oPrn:Cmtr2Pix(nAncho,nAlto)
oPrn:SayImage(nRen,nCol,oImg,aTam[1], aTam[2])
oImg:end()
return nil

saludos.

cesar.SysCtrl.Soft.

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "

Continue the discussion