JPEG beliebig skalieren und speichern

[wurst_hunter]

Tja, genau das versuch ich schon die ganze Zeit. Ich hab zwar die Hilfe durchsucht, eine passende Lösung hab ich aber leider nicht gefunden. Das Problem: Es muss relativ schnell gehen, weil ich mehrere Bilder in unterschiedliche Größen speichern will.

Please Help!

[Daniel]

Welche Lösungen hattest Du denn schon durchprobiert und warum haben diese Dir nicht zugesagt? Etwas mehr Informationen musst Du uns schon geben.

Die in Delphi enthaltene JPEG-Unit kennst Du?

[wurst_hunter]

Das Problem: Ich kriegs nicht klein gespeichert!
Ich hab ja noch nich mal ne Lösung... Ich weis lediglich was ich will, kann es jedoch nicht realisieren und deswegen hoffe ich auf kompetente Hilfe.

Kann ja schliesslich nicht alles wissen... aber ich arbeite dran! ^^

[mkinzler]

2 Imageinstanzen und dann von dem Canvas der ersten, in welche du die Originaldatei lädst, verkleinert auf den Zielcanvas Kopieren und anschließend Speichern.

[wurst_hunter]

Gut, klingt vernünftig. Doch wie "male" ich mit Canvas in das 2. Image? Mit Pixels wohl kaum... Ein kleines Beispiel wäre göttlich! ^^

[Pfoto]

Wenn du etwas mehr Qualität bekommen möchtest,
würde ich eine Resize-Funktion mit Interpolation wählen.

Es gibt von Anders Melander die verbreitesten Algorhythmen
für Delphi aufbereitet.

Hier der Link zu Torry:
Komponenten von Anders Melander auf Torry.net
Dann Komponente 'Interpolating Bitmap Resampler v.1.2' wählen.



Gruß
Pfoto

[wurst_hunter]

Problem: "package VCL30 not found"!

Gibt es nich irgendwie eine andere Methode um mein Anliegen zu realisieren?

[sakura]

Zitat von wurst_hunter:

Problem: "package VCL30 not found"!

Wirf das Package raus, Delphi 7 sollte automatisch die VCL70 aufnehmen.

......

[wurst_hunter]

SOLLTE!!! Tja... anscheinend hab ich ne charakterversion...

Wie kann ichs denn nun am "einfachsten" machen, jetzt mal abgesehen von dem BitmapResampler?

Ist es echt so schwer ein kleines sch... JPEG verkleinert abzuspeichern?

[Hador]

Ansonsten kannst du folgenden Code nutzen:

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