VoyForums

[ VoyUser Login optional ] [ 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:35:00 09/16/03 Tue
Author: Stampfli Heinz
Subject: Re: ImageScrollBox and TJpegImage
In reply to: Michel 's message, "Re: ImageScrollBox and TJpegImage" on 20:01:02 09/15/03 Mon

Hello Michel

This kind of Code I have already tried.
I would like to extract the thumbnail with dEXIF (http://mcguirez.homestead.com/downloads.html) and assign it to the imagescrollbox.

In dEXIF it uses the library jpeg. I have also rewritten the function to use TJpegGraphic from EnJpgGr. It doesn't work, too.

The Function in dEXIF that extract the Jpeg Thumbnail:
function TImgData.ExtractThumbnailJpeg: TJpegImage;
var ti:TJPEGImage;
x:TStringStream;
tb:string;
begin
result := nil;
if HasThumbnail and (ExifObj.ThumbType = JPEG_COMP_TYPE) then
begin
tb := ExtractThumbnailBuffer();
if (tb = '') then
exit;
x := TStringStream.Create(tb);
ti := TJPEGImage.Create;
x.Seek(0,soFromBeginning);
ti.LoadFromStream(x);
x.Free;
result := ti;
end;
end;

Have you any other advice.

Kind Regards
Heinz


>
>Hi Heinz,
>
>Try this,
>
>ImageScrollBox.Graphic.Assign(JpegImage);
>ImageScrollBox.Redraw(True);
>
>Best regards,
>
>Michel
>
>>Hello
>>
>>How do I assign a TJpegImage into a ImageScrollBox
>>with Envision 2.0.1. Can you give me an example?
>>
>>Kind Regards
>>Heinz Stampfli

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

Replies:

[ Contact Forum Admin ]

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