josef_hd
asked on
How to save a pic under pic-format ?
How can i save (or convert) a picture int the
GIF/JPEG - Format ???
GIF/JPEG - Format ???
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Here is a simple example to convert BMP to a JPG file and then save it on a disk...
uses JPEG;
//--------------------
var
MyJpeg: TJpegImage;
Image1: TImage;
begin
Image1:= TImage.Create;
MyJpeg:= TJpegImage.Create;
try
Image1.LoadFromFile('TestI mage.BMP') ; // Load the Bitmap from a file
MyJpeg.Assign(Image1.Pictu re.Bitmap) ; // Assign the BitMap to MyJpeg
MyJpeg.SaveToFile('MyJPEGI mage.JPG') ; // Save the JPEG to Disk
finally
MyJpeg.Free;
Image1.Free;
end;
end;
Regards,
Viktor Ivanov
uses JPEG;
//--------------------
var
MyJpeg: TJpegImage;
Image1: TImage;
begin
Image1:= TImage.Create;
MyJpeg:= TJpegImage.Create;
try
Image1.LoadFromFile('TestI
MyJpeg.Assign(Image1.Pictu
MyJpeg.SaveToFile('MyJPEGI
finally
MyJpeg.Free;
Image1.Free;
end;
end;
Regards,
Viktor Ivanov
oops, looks like somebody already answered it...
well, here is the one proposed with others, JPEG...
lot's of free components already available for this :
e.g.
http://torry.rimini.com/vcl/graphics/gifimage.zip
http://torry.rimini.com/vcl/graphics/gifimage.exe
http://torry.rimini.com/vcl/graphics/jpgimg.zip
http://torry.rimini.com/vcl/graphics/nviewlib.zip
http://torry.rimini.com/vcl/graphics/imagervr.zip
Regards, Zif.