Bilder schneiden / zuschneiden

[dutyfree]

Letztes Problem:

Das
http://www.abload.de/img/28-03-2009_19-12-27l4by.jpg
Lässt mich nicht in Ruhe!

ich hab das Bild vorher hiermit:

Delphi-Quellcode:

  jpeg := TJPEGImage.Create;
  try
    jpeg.CompressionQuality := 100;
    jpeg.LoadFromFile(pfad);
    bmp := TBitmap.Create;
    try
      bmp.Assign(jpeg);
      bmp.SaveTofile(ChangeFileExt(url, '.bmp'));
    finally
      bmp.Free
    end;
  finally
    jpeg.Free
  end;

Ins .bmp umgewandelt aber es geht trozdem nicht.

[Pfoto]

Probiere das mal:

Delphi-Quellcode:

jpeg.Picture.LoadFromFile(pfad); 
Bitmap.Height := jpeg.Picture.Height;
Bitmap.Width := jpeg.Picture.Width;
Bitmap.Canvas.Draw(0, 0, jpeg.Picture.Graphic);

P.S. Die "CompressionQuality" hat beim Laden des JPEGs
übrigens keine Auswirkungen.


Gruß
Jürgen

[dutyfree]

Danke Jürgen ;) es läuft..
edit:

alles geht! ich danke euch vielmals für eure Hilfe!
Thread kann geclosed werden :thumb: