Text auf ein Foto speichern

[ghubi01]

Hallo,

so geht es auch:

Delphi-Quellcode:

procedure TForm2.TextToPicture;
var
  jp: TJPEGImage;  //in der uses Anweidung Vcl.Imaging.Jpeg hinzufügen!
                   //Für D7 muss nur Jpeg hinzugefügt werden
begin
  jp:=TJPEGImage.Create;
  jp.LoadFromFile('C:\Users\...\Pictures\Bild1.JPG');
  Image1.Picture.Bitmap.Assign(jp);
  Image1.Picture.Bitmap.Canvas.TextOut(10,10,'Hallo');
  jp.Assign(Image1.Picture.Bitmap);
  jp.SaveToFile('C:\Users\..\Pictures\Bild2.JPG');
  jp.Free;
end;

[DeddyH]

Und ein bisschen hübscher könnte es hiermit gehen: https://parnassus.co/open-source/ttransparentcanvas/

[edit] @ghubi01: Da fehlt ein Ressourcen-Schutzblock (try...finally) [/edit]

[ghubi01]

Hallo,

@DeddyH: Das ist mir schon klar, dass hier noch ein try … finally Block rein muss. Hab ich mir hier im Beispiel aus Bequemlichkeit gespart.

Ich muss aber noch anmerken, dass sich bei meinem Beispiel die dpi-Zahl und die Dateigröße in der gespeicherten Datei ändert.
Wie ich das beeinflussen kann, weis ich noch nicht.

[haentschman]

Moin...

Zitat:

ich nutze noch Delphi 7, also schon eine etwas betagtere Version.

...wieso?
Community Edition: https://www.embarcadero.com/de/products/delphi/starter

PS: Wenn du von D7 umsteigst...erwarte einen Kulturschock!