25-06-2014, 02:47 PM
كود :
uses
JPEG
var
j:TJPEGImage;
b:TBitmap;
begin
j:=TJPEGImage.Create;
b:=TBitmap.Create;
OpenPictureDialog1.Execute;
j.LoadFromFile(OpenPictureDialog1.FileName);
b.Width:=j.Width;
b.Height:=j.Height;
b.Canvas.Draw(0,0,j);
SavePictureDialog1.Execute;
b.SaveToFile(SavePictureDialog1.FileName+'.bmp');
b.Free;
j.Free;
showmessage('changed');
end;