Delphi JPEG beliebig skalieren und speichern

Thema durchsuchen

Ansicht

Themen-Optionen

JPEG beliebig skalieren und speichern

Ein Thema von wurst_hunter · begonnen am 30. Dez 2006 · letzter Beitrag vom 30. Dez 2006

Vorheriger Beitrag

Nächster Beitrag

Hador

Registriert seit: 11. Dez 2004
Ort: Recke
682 Beiträge

Turbo Delphi für Win32

#10

Re: JPEG beliebig skalieren und speichern

30. Dez 2006, 12:20

Ansonsten kannst du folgenden Code nutzen:

zusammenfalten · markieren

Delphi-Quellcode:

			var

  jpg: TJPEGImage;

  bmp: TBitmap;

begin

  jpg := TJPEGImage.Create;

  bmp := TBitmap.Create;

  jpg.LoadFromFile('...');

  bmp.Width := 100; //neue Breite

  bmp.Height := 100; //neue Höhe

  bmp.Canvas.StretchDraw(Rect(0, 0, 100, 100), jpg);

  jpg.Assign(bmp);

  bmp.Free;

  jpg.SaveToFile('...');

  jpg.Free;

end;

EDIT: Vergessen das Bitmap zu initialisieren