JPG - grösse verändern....

[Darty]

Habe es mir zwar noch nicht genau angeschaut, und habe auch gerade nichts passendes von mir ..

Aber hast Du Dir mal die Codes von FuckRacism angeschaut ?

Code:

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;