Jpeg verkleinern

[RomanK]

Sorry
hat sich erledigt ich habs hinbekommen, hab es über Bmp gelöst:

Delphi-Quellcode:

procedure TForm1.resizepictur(dir: string; width, height: integer);
var i:integer;
    bmp:TBitmap;
    jpeg:TJpegImage;
   begin
   Jpeg:=TJpegImage.Create;
   try 
   jpeg.LoadFromFile(dir);
    bmp:=TBitmap.Create;
      try 
        If jpeg.width>jpeg.Height then 
         begin 
          bmp.width:=width; 
          bmp.height:=height; 
         end else 
         begin 
          bmp.width:=height; 
          bmp.Height:=width; 
         end; 
        bmp.canvas.StretchDraw(Rect(0,0,bmp.width,bmp.height),jpeg); 
        jpeg.assign(bmp); 
      finally
       bmp.free;
      end;
     jpeg.SavetoFile(dir);
   finally 
    jpeg.free; 
   end; 
end;