Hallo,
erstmal vielen Dank - jetzt hab ich es hinbekommen:
Delphi-Quellcode:
img1 := TImage.Create(nil);
Preview := TImage.Create(nil);
Tempo := TJpegImage.Create;
Preview.Height := 115;
try
img1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'/data/logo.jpg');
hoehealt:= img1.Picture.Height;
weitealt:= img1.Picture.Width;
wneu:=round( (weitealt / hoehealt ) * 115);
Preview.Width:=wneu;
Preview.Canvas.StretchDraw(Rect(0,0,Preview.Width, Preview.Height), img1.Picture.Graphic);
Tempo.Assign(Preview.Picture.Bitmap);
Tempo.SaveToFile(ExtractFilePath(Application.ExeName)+'/tmp.jpg'); //Muss ich so machen ...
finally
img1.Free;
Preview.Free;
Tempo.Free;
end;
except
Application.MessageBox(PChar('Fehler!'), 'Error', MB_OK or MB_ICONSTOP);
end;
Nun - jetzt muss ich den JPEG-Export über das Assign in das TJPEG machen, da ich sonst beim direkten speichern aus dem Preview in eine Jpeg-Datei diese später nicht mehr einlesen kann...
Warum passiert dies !? Irgendein JPEG-Fehler ...