|
Declare a unit Jpeg na
cláusula uses
function JpgToBmp(cImage:
String): Boolean;
// Requer a Jpeg declarada na clausula uses da unit
var
MyJPEG : TJPEGImage;
MyBMP : TBitmap;
begin
Result := False;
if fileExists(cImage) then
begin
MyJPEG := TJPEGImage.Create;
with MyJPEG do
begin
try
LoadFromFile(cImage);
MyBMP := TBitmap.Create;
with MyBMP do
begin
Width := MyJPEG.Width;
Height := MyJPEG.Height;
Canvas.Draw(0,0,MyJPEG);
SaveToFile(CangeFileExte(cImage, '.bmp');
Free;
Result := True;
end;
finally
Free;
end;
end;
end;
end;
Chame-a assim, por exemplo:
if
JpgToBmp('C:\teste.jpg') then
ShowMessage('A imagem foi convertida com sucesso!');
|