JPEG Quality

[Gladiator]

سلام ؛

چطور میتونم تصویر BMP رو موقع تبدیل به JPG با مقدار JPEG Quality مورد نظرم ذخیره کنم ؟

متشکرم .

[Touska]

اینو نگاه کن :


uses JPEG;
...
var
Bitmap: TBitmap;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Bitmap:=TBitmap.Create;
Bitmap.LoadFromFile(OpenDialog1.FileName);
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
JPEGImage: TJPEGImage;
begin
try
JPEGImage:=TJPEGImage.Create;
JPEGImage.CompressionQuality:=80;
JPEGImage.Assign(Bitmap);
if SaveDialog1.Execute then
JPEGImage.SaveToFile(SaveDialog1.FileName);
Label1.Caption:='Convertation finished';
finally
Bitmap.Free;
JPEGImage.Free;
end;
end;

[Gladiator]

سلام ؛
آقا من چیز متفاوتی نیاز داشتم که همون دیشب پیداش کردم .

در هر حال ممنون .

[saeed_82]

عالی بود توسکا جان
کمک بزرگی به من کردی