Bild(JPG) laden => Größe verändern => Speichern | Wie?

[Moon]

danke, so funktioniert's!

[snock]

dürfte ich hier grad mal was fragen, passt acuh zum Thema

Wie kann ich TBitmap32 (aus g32) in TJpegImage umwandeln?
WEil wenn ich nur sage: Image1.SaveToFile('text.jpg'); speichert er es nur verfälscht ab. Es ist in wahrheit immer noch eine bmp file.
wäre cool wenn jemand eine idee hätte wie ich das anstellen könnte.


mfg
snock

[TheAn00bis]

Auch eine Frage:

Ich habe ein jpeg bild, dass ich in ein Timage laden will, wie mache ich das?

Und: Wie bekomme ich hier statt "a" eine variable rein, die den dateinamen ohne jpg enthält: jpgImg.SaveToFile('a.jpg');? Welchen Typ muss "a" haben, und als welchen muss ich ihn in einem edit speichern und wie?

[snock]

Delphi-Quellcode:

uses jpeg [...]

TImage.LoadFromFile('deineJPGbild.jpg');

// Und als JPG Format speichern:
procedure DeineProcedure;
var ImgPic:TJPEGImage;
begin
ImgPic := TJPegImage.Create;
ImgPic.Assign(TImage);
IMgPic.SaveTOFile('DeineJPGBild.jpg');
ImgPic.Free;
end;

(Ich übernehme keine Garntie ob dieser Code funktioniert!)


mfg