From my TIB_JPEGImage implementation:

procedure TIB_CustomJPEGImage.PasteFromClipboard;
var JPEG: TJpegImage;
begin
if Clipboard.HasFormat(CF_PICTURE) and DataLink.Modify then begin
JPEG := TJpegImage.Create;
try
Picture.Assign(Clipboard);
JPEG.Assign(Picture.Graphic);
Picture.Graphic := JPEG;
finally
JPEG.Free;
end;
end;
end;

Regards
Thomas Steinmaurer

> -----Original Message-----
> From: R. S. Patil [mailto:rspatil@...]
> Sent: Monday, April 02, 2001 12:53 PM
> To: IBObjects@yahoogroups.com
> Subject: Re: [IBO] Storing Images In JPEG format in BLOB Field.
>
>
> Thanks, Harald,
>
> But how to convert it to JPEG Format i am getting exceptions
> in the code sniplet i
> mentioned in my first post.
>
> RSP
>
>
> Harald Klomann wrote:
> >
> > "R. S. Patil" wrote:
> > >
> > > Dear Friends,
> > >
> > > I want to paste from clipboard a Image in a TImage Component
> > > and store that image
> > > in JPEG format to a blob field. the image quality
> > > requirements are not high so any
> > > other size friendly image formats can also do the job. JPEG
> > > format has been selected
> > > since native TJPEGImage is easily available. If u have some
> > > other alternative
> >
> > Hi,
> >
> > have a look at the TIB_Image component.
> > There are various method to handle images, e.g.
> > IB_Image1.PasteFromClipboard, IB_Image1.LoadPicture ..
> >
> > Harald
> >
> >
> >
> >
> > Your use of Yahoo! Groups is subject to

http://docs.yahoo.com/info/terms/




Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/