JPG verkleinern

[Khabarakh]

Ohne StretchFilter kommt mir nichts ins Haus .

[Hazardos]

schaut euch das mal bitte an...

>>>Link<<<

MfG Jörn

[agm65]

zu deinem sample source, also ich möchte ein jpg verkleiner auf 1024x768 pixel...die file ist original 300kb groß. wenn ich das bild jetzt verkleinere ist sie 3mb groß, abwohl sie ja vorher kleiner war ? was stimmt hier nicht ?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  tbmp: TBitmap32;
  SaveDlg: TSaveDialog;
begin
  with TOpenPictureDialog.Create(nil) do
  begin
    if Execute then
    begin
      Image321.Bitmap.LoadFromFile(FileName);
      tbmp := TBitmap32.Create;
      tbmp.SetSize(1024, 768);
      tbmp.Draw(tbmp.BoundsRect, Image321.Bitmap.BoundsRect, Image321.Bitmap);
      imgPreview.Bitmap.Assign(tbmp);

      SaveDlg := TSaveDialog.Create(nil);
      if SaveDlg.Execute then
        tbmp.SaveToFile(SaveDlg.FileName);
      SaveDlg.Free;

      tbmp.Free;
    end;
  end;
end;

[DGL-luke]

Dass du sie nicht wieder komprimierst.

[agm65]

aber wie ?

[DGL-luke]

Ich glaube nicht, dass TBitmap32 das beherrscht. Allerdings kannst du dir ja ansehen, wie ich das in meinem JPEG-Kompressor mache. Da nehm ich (glaube ich^^) ein TJPEGImage her.