Hi
ich versuche die Bildqualität zu ändern aber es passiert nichts
woran liegt es ?
Delphi-Quellcode:
PROCEDURE BMPtoJPG (CONST myBMP: TBitmap; myJPG: TPicture);
VAR
Bitmap: TBitmap;
JPEG : TJPEGImage;
BEGIN
Bitmap := TBitmap.Create;
JPEG := TJPEGImage.Create;
TRY
Bitmap.Assign(myBMP);
JPEG.CompressionQuality := StrToInt(Form1.edit1.Text);
JPEG.Assign(Bitmap);
myJPG.Assign(JPEG);
FINALLY
Bitmap.Free;
JPEG.Free
END;
END;
procedure TForm1.Button1Click(Sender: TObject);
begin
image2.picture:= nil;
BMPtoJPG(Image1.Picture.Bitmap,Image2.Picture);
end;