How can i copy image from TLeadImage to TLeadRaster

#1 Posted : Wednesday, October 17, 2007 10:06:13 PM(UTC)

not2bf

Groups: Registered
Posts: 4

Document Image suit / OCR / BaCode plug-in v14.5 (dephi7)
-----------------------------------------
after scanning , in acquire page event
------------------------------------------
......
LeadRaster1 := CreateComObject(CLASS_LEADRaster) as LEADRaster;
.........

function TScanf.LEADTwain1AcquirePageEvent(Bitmap: TBitmapHandle): Integer;

result := SUCCESS;

LeadImage2.bitmap := bitmap;

// for barcode reading
LeadBarCode1.BitMap := LeadImage2.OCXBitmap;
.........

LeadImage2.Save('c:\aaa',FILE_CCITT_GROUP4,1,PQ1,SAVE_OVERWRITE);

// for ocr loading image file
nRet:= LEADRasterIO1.Load ( LeadRaster1 ,'c:\aaa', 0, 0, 1 );
if ( nRet <> 0 ) then
begin
ShowMessage ( 'Error loading file' );
exit;
end;

nRet:= LEADRasterDocument1.AddPage ( LeadRaster1, 0 );
if ( nRet = 0 ) then LEADRasterView1.Raster.Bitmap := LeadRaster1.Bitmap;
.........................................
It works well, but without saving image ,
How can i use bitmap(Tbitmaphandle) on LeadRaster1
Thanks ...

Try the latest version of LEADTOOLS for free for 60 days by downloading the evaluation: https://www.leadtools.com/downloads

Wanna join the discussion? Login to your LEADTOOLS Support account or Register a new forum account.

#2 Posted : Sunday, October 21, 2007 1:04:20 AM(UTC)

Maen Hasan

Groups: Registered, Tech Support
Posts: 1,326

Was thanked: 1 time(s) in 1 post(s)

Hello,

You can copy the image from VCL LeadImage to LeadRaster by using the LEADImage.OCXBitmap as follows:
+----------+
LEADRasterView1.Raster.Bitmap := LEADImage1.OCXBitmap;
+----------+

Thanks,
Maen Badwan
LEADTOOLS Technical Support

Notification

How can i copy image from TLeadImage to TLeadRaster