Jpeg verkleinern

[RomanK]

Hoi Leute,
ich will ein Jpeg verkleinern ... wie man dem Titel schon entnehmen kann ... . Ich hab schon gesucht und hab nichts passendes gefunden, nur wie es mit Bmps geht.
Weis einer von euch wie dass geht oder kennt eine Kompo (jetzt kommt ja nicht mit: "Such doch mal bei Torry", dass hab ich schon)

[RomanK]

Sorry :oops: :roll:
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;