(Gast)
n/a Beiträge
|
JPeg verkleinern
31. Jan 2003, 00:27
Delphi-Quellcode:
procedure Resizepicture(filename: string; width, height: integer);
var
bmp:TBitmap;
jpeg:TJpegImage;
begin
Jpeg:=TJpegImage.Create;
try
jpeg.LoadFromFile(filename);
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);
peg.assign(bmp);
finally
bmp.free;
end;
jpeg.SavetoFile(filename);
finally
jpeg.free;
end;
end;
Von RomanK
Grüsse, Daniel
[edit=fkerber]Überarbeitet, Fehler verbessert; Mfg, fkerber[/edit]
|
|
Zitat
|