Text auf ein Foto speichern

[trabi-basti]

Hallo zusammen,

ich nutze noch Delphi 7, also schon eine etwas betagtere Version.
Gibt es dort eine Möglichkeit, einen String als Overlay auf ein Foto zu schreiben und anschließend wieder abzuspeichern?

Ich habe ein JPG in ein TImage geladen, dort bekomme ich aber den Text nicht drauf. Text zeichnen kann ich nur in einer Canvas. Wie aber verbinde ich beides?

Hintergrund: ich möchte auf Fotos das Aufnahmedatum und Uhrzeit darstellen, wie es früher noch auf analogen kameras oftmals der Fall war.

Ich bin leider kein Delphi-Profi, habe das Programm schon ewig (wirklich ewig) nicht mehr benutzt und bin auch beim Programmieren mittlerweile ziemlich raus.
Viellicht könnt ihr mir aber ja dennoch helfen.

Vielen Dank schon mal!

[KodeZwerg]

Klappt denn ein Image1.Picture.Bitmap.Canvas.TextOut(); nicht?

[trabi-basti]

Hallo KodeZwerg,

keine Ahnung warum es gestern nicht funktioniert hat.

Ich habe auch

Code:

Image1.Picture.Bitmap.Canvas.TextOut();

probiert, ich habe dann jedes Mal beim Speichern ein Bild mit einer Dateigröße von 0 Byte erhalten.

Seltsamerweise geht es heute...

Dann lag ich ja gar nicht so falsch. Vielen Dank für deine schnelle Hilfe und viele Grüße!

[KodeZwerg]

Gerne, wenn wieder was ist, hier wird geholfen

[himitsu]

Zitat von KodeZwerg:

Klappt denn ein Image1.Picture.Bitmap.Canvas.TextOut(); nicht?

Zu 100% nicht, jedenfalls nicht, wenn kein Bitmap geladen ist.

In Image1.Picture.Graphic ist die Bild-Komponente drin, bei .Bitmap, .Icon usw. wird diese Komponente gecastet, vorher gelöscht und eine Neue erstellt (ohne den Bildinhalt zu übernehmen), da der enthaltene TGraphic-Nachfahre nicht dem gewünschten Typ entspricht, also hier dem TBitmap.

Zitat:

Ich habe ein JPG in ein TImage geladen

PS: Die Delphi-Komponente kann sowas nicht (PNG-Komponenten von Fremdherstellern eventuell), aber wie wäre es mit einem Multi-Layer-PNG?
Eine teiltransparente Grafik mit dem Text über das eigentliche Foto legen, dann hast du deinen Efekt, aber auch der ursprüngliche Bildinhalt bleibt erhalten. Also man könnte somit diesen Text auch wieder entfernen und hätte das Bild ohne "Löcher" zurück.

[KodeZwerg]

So in etwa habe ich es bei mir

Delphi-Quellcode:

procedure BitmapMake24Bit(const ABitmap: TBitmap);
var
  LTempBitmap: TBitmap;
begin
  if ABitmap.PixelFormat <> pf24bit then begin
    LTempBitmap := TBitmap.Create;
    try
      LTempBitmap.PixelFormat := pf24bit;
      LTempBitmap.SetSize(ABitmap.Width, ABitmap.Height);
      LTempBitmap.Canvas.Draw(0, 0, ABitmap);
      ABitmap.PixelFormat := pf24bit;
      ABitmap.Canvas.Draw(0, 0, LTempBitmap);
    finally
      FreeAndNil(LTempBitmap);
    end;
  end;
end;

Delphi-Quellcode:

  Image1.Picture.LoadFromFile('EinJpegBild.jpg');
  BitmapMake24Bit(Image1.Picture.Bitmap);
  Image1.Picture.Bitmap.Canvas.Brush.Style := bsClear;
  Image1.Picture.Bitmap.Canvas.Font.Size := 11;
  Image1.Picture.Bitmap.Canvas.Font.Color := clRed;
  Image1.Picture.Bitmap.Canvas.Font.Style := [fsBold];
  Image1.Picture.Bitmap.Canvas.TextOut(5, 5, 'Delphi-PRAXiS');

[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!