mehdi_moosavi
سه شنبه 18 آذر 1393, 11:26 صبح
ضمن عرض ادب،
دوستان محترم من قصد دارم با كد زير يك تصوير رو از حافظه clipboard بگيرم و با فرمت bmp ذخيره كنم ولي خطاي Jpeg error بوجود مياد.
چطور ميتونم خودم فرمت ذخيره فايل رو تعيين كنم و آيا راه حل ديگري وجود داره؟
لطفا راهنمايي كنيد
با تشكر
procedure TForm1.Button2Click(Sender: TObject);
var Bmp: TBitmap; Jpg: TJPEGImage;
begin
Image1.Picture.Assign(ClipBoard);
Image1.Picture.SaveToFile('c:\a1.jpg');
Bmp := TBitmap.Create;
Jpg := TJPEGImage.Create;
try
Jpg.LoadFromFile('c:\a1.jpg');
Bmp.Assign(Jpg);
Bmp.SaveToFile('c:\a1.bmp');
finally
Jpg.Free;
Bmp.Free;
end;
end;
دوستان محترم من قصد دارم با كد زير يك تصوير رو از حافظه clipboard بگيرم و با فرمت bmp ذخيره كنم ولي خطاي Jpeg error بوجود مياد.
چطور ميتونم خودم فرمت ذخيره فايل رو تعيين كنم و آيا راه حل ديگري وجود داره؟
لطفا راهنمايي كنيد
با تشكر
procedure TForm1.Button2Click(Sender: TObject);
var Bmp: TBitmap; Jpg: TJPEGImage;
begin
Image1.Picture.Assign(ClipBoard);
Image1.Picture.SaveToFile('c:\a1.jpg');
Bmp := TBitmap.Create;
Jpg := TJPEGImage.Create;
try
Jpg.LoadFromFile('c:\a1.jpg');
Bmp.Assign(Jpg);
Bmp.SaveToFile('c:\a1.bmp');
finally
Jpg.Free;
Bmp.Free;
end;
end;