VoyForums

[ Login ] [ Contact Forum Admin ] [ Main index ] [ Post a new message ] [ Search | Check update time | Archives: 1, 2, 3, 4, 5, 6, [7], 8, 9, 10 ]

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Date Posted: 13:13:13 08/30/01 Thu
Author: John Williams
Subject: Re: Conversion to TImage and Bitmap confusion
In reply to: Michel 's message, "Re: Conversion to TImage and Bitmap confusion" on 07:46:14 08/30/01 Thu

Yes, your suggestion works.

The WitsEnd function doesn't return any error, it seems to just ignore the call. The function prototype for the barcode recognizer is:

function ReadTheBar(TheWindow : Hwnd; TheBitMap : HBitmap; BarRect :Trect; SmallWidth, LargeWidth : Integer) : shortString stdcall;

Thanks so much for your help.

>
>Hi John,
>
>ImageScrollBox.Graphic.BitmapHandle should be a valid
>HBITMAP. What error does the WitsEnd functions return?
>
>>TestHandle2 := Image1.Picture.Bitmap.Handle;
>>{TestHandle2 is zero at this point}
>
>This is normal because after,
>
>>Image1.Picture.Graphic := ImageScrollBox.Graphic;
>
>the Graphic contained in Picture.Graphic is a
>TBitmapGraphic, not a VCL TBitmap.
>
>What you can try is,
>
>Bitmap := TBitmap.Create;
>Image1.Picture.Bitmap := Bitmap;
>Bitmap.Free;
>
>Image1.Picture.Bitmap.Assign( ImageScrollBox.Graphic );
>
>Then Image1.Picture.Bitmap.Handle should be valid.
>
>Best regards,
>
>Michel
>
>>I'm using WitsEnd's barcode package to recognize a
>>barcode on a scanned page and it refuses to work with
>>a .Graphic.BitmapHandle from the Envision
>>TImageScrollBox component but it works fine with a
>>.Picture.Bitmap.Handle from the TImage component
>>
>>I've tried many things but this it what it boils down
>>to:
>>
>>var
>> ImageScrollBox : TImageScrollBox;
>> Image1 : TImage;
>>
>>...
>>
>>ImageScrollBox.LoadFromFile( 'g:\scandocs\test.bmp', 0
>>);
>>
>>{this is probably the wrong way to do this and what I
>>need help with}
>>Image1.Picture.Graphic := ImageScrollBox.Graphic;
>>
>>{this works - it saves a file that is identical to the
>>one loaded above}
>>Image1.Picture.SaveToFile( 'g:\scandocs\testx.bmp' );
>>
>>TestHandle1 := ImageScrollBox.Graphic.BitmapHandle;
>>{TestHandle1 is non-zero at this point (but I can't
>>vouch for it's validity)}
>>
>>TestHandle2 := Image1.Picture.Bitmap.Handle;
>>{TestHandle2 is zero at this point}
>>
>>Thanks.

[ Next Thread | Previous Thread | Next Message | Previous Message ]
[ Contact Forum Admin ]

Forum timezone: GMT-5
VF Version: 3.00b, ConfDB:
Before posting please read our privacy policy.
VoyForums(tm) is a Free Service from Voyager Info-Systems.
Copyright © 1998-2019 Voyager Info-Systems. All Rights Reserved.