Bild mit Text drucken

[FAlter]

Hi,

TGraphic ist eine abstrakte Basisklasse für alle Grafiken, d. h. es ist nciht vollständig implementiert, das tun erst die Nachfahren. TPicture wählt automatisch die passende Gradfikklasse aus, wenn du eine Datei lädst.

Delphi-Quellcode:

procedure DoSomethingWithImageFromFile(const FileName: String);
var 
  b: TBitmap;
  c: TPicture;
begin
  b := Tbitmap.create;
  try
    b.width := 210;
    b.height:= 297;
    c := TPicture.Create;
    try
      c.LoadFromFile(FileName);
      b.canvas.Draw(0,0,c.Graphic);
    finally
      c.Free; 
    end;
  
    //DoSomethingWithB

  finally
    b.Free;
  end;
end;

Mfg
FAlter

PS: Bevor du weiter fragst, lies dir erstmal ein paar Tutorials durch zum Thema Grafikprogrammierung mit Delphi. Dann wird's einfacher für dich.