Prev: SQL Master V2.2.4 Ready to Download
Next: Reportpro 2.14 crreate and print DIB from JPG on the fly.. how ??
From: Sherlock on 6 Jun 2010 01:03
cFileJPG := SELF:cPathImages + SELF:oasServer:FIELDGET(#IMGNAME)
oDib := FabPaintLib{ cFileJPG, oPrinter}
IF oDib:Isvalid
oPrinter:_DrawBMP( oPrinter:NextProw, 0, oDib, 50, 50,,,TRUE )
ENDIF


cFileBMP := SELF:cPathImages + _SSRandfile('') + ".BMP"
lNoImage := FALSE
IF File( cFileJPG )
hPTR := DIBCreateFromFile(String2Psz(cFileJPG))
// D:\sherlock_apps\SHERLOCK32\ZZ_IMAGE\2280KA0931307.JPG
IF hPTR != NULL_PTR
DIBSaveAs( hPTR, String2Psz(cFileBMP))
oPrinter:DrawBmp( aImageOffset[xx][1], aImageOffset[xx][2],
cFileBMP, 32*1.25, 48*1.25,,,TRUE )
FErase( cFileBMP )
 | 
Pages: 1
Prev: SQL Master V2.2.4 Ready to Download
Next: Reportpro 2.14 crreate and print DIB from JPG on the fly.. how ??