Einzelnen Beitrag anzeigen

Benutzerbild von Khabarakh
Khabarakh

Registriert seit: 18. Aug 2004
Ort: Brackenheim VS08 Pro
2.876 Beiträge
 
#10

Re: TJpegImage Komponente? Woher?

  Alt 30. Mär 2005, 13:09
Genau für nicht sichtbare Bilder sind Bitmaps da .
Delphi-Quellcode:
var
  bit: TBitmap; // das Bild, was man nicht sieht

implementation

uses
Jpeg;

...

bit := TBitmap.Create

bit.LoadFromFile('bild.jpg');
Image1.Height := bit.Height;
Image1.Width := bit.Width;
Image1.Canvas.Draw(0, 0, bit);

... // Image1 editieren

Image1.Assign(bit); // sorum klappts wunderbar
Image1.Picture.SaveToFile('bild_edit.jpg');
bit.Free; // nicht vergessen!
Am Programm ändert sich eigentlich nichts, so ist es einfach besser mit weniger Ressourcen.

PS: Egal ob Bitmap oder Image, die Instanz musst du wieder freigeben.
Sebastian
Moderator in der EE
  Mit Zitat antworten Zitat