Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Jpeg verkleinern (https://www.delphipraxis.net/2182-jpeg-verkleinern.html)

RomanK 11. Jan 2003 13:23


Jpeg verkleinern
 
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 11. Jan 2003 13:36

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;


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:49 Uhr.

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf