Depending on your delphi version, but this would work in Delphi 4 and 5:-
var
logoImage:TBitmap;
jpg:TJPEGImage;
begin
logoImage:=TBitmap.create;
logoImage.Picture.Bitmap.SaveToFile(sFileName);
jpg:=TJPEGImage.create;
jpg.assign(LogoImage);
jpg.SaveTofile("MyJpeg.jpg');
end;
This code will convert BMP tp JPG. you can add your own loop code, but I did thisoff
the top of my head, and "jpg.assign(LogoImage);" might need to be
jpg.assign(LogoImage.Graphic); but I cant remember. But this will help anyway.
Cheers, Jerey Coulter
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
