JPEG "on the Fly" Größe ändern

[delphipitti]

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 ...