PowerPDF .bmp via Code in eine Page einfügen. [gelöst]

Rund um die LCL und andere Komponenten
Antworten
Benutzeravatar
corpsman
Lazarusforum e. V.
Beiträge: 1496
Registriert: Sa 28. Feb 2009, 08:54
OS, Lazarus, FPC: Linux Mint Mate, Lazarus GIT Head, FPC 3.0
CPU-Target: 64Bit
Wohnort: Stuttgart
Kontaktdaten:

PowerPDF .bmp via Code in eine Page einfügen. [gelöst]

Beitrag von corpsman »

Hallo zusammen,

ich versuche gerade Beruflich mittels eines Consolen Programms eine .pdf Datei zu erstellen.

Geschwind gegoogelt und die Lazarus Komponente PowerPDF gefunden.

Installiert in Lazarus und mit Lazarus dann das angefügte Consolen Programm erstellt.

Das Programm kann erfolgreich ein .PDF Erstellen
- Linien auf dem PDF Malen und Schriften ausgeben

Was ich nicht hin bekommen habe ist die Anzeige von einem .bmp

Soweit bin ich schon:

Code: Alles auswählen

Procedure LoadAndPlaceImage(Filename: String; x, y, w, h: Single);
Var
  bmp: TBitmap;
  img: TPdfImage;
Begin
  bmp := TBitmap.Create;
  bmp.loadfromfile(Filename);
  img := CreatePdfImage(bmp, 'Pdf-Bitmap', FDoc.ObjectMgr);
  FDoc.AddXObject('Img1', img); // Fügt die "Rohdaten" des Bildes dem PDF hinzu.

  // TODO: Das Bild wird geladen und wohl auch dem PDF hinzugefügt, doch wie plaziere ich es und mache es Sichtbar ?

  bmp.free;
End;
Kann mir einer von euch sagen wie ich das Bild auf das Canvas bekomme ?
Dateianhänge
Demo.zip
(2.92 KiB) 98-mal heruntergeladen
Zuletzt geändert von corpsman am Mi 15. Jul 2020, 11:38, insgesamt 1-mal geändert.
--
Just try it

Benutzeravatar
corpsman
Lazarusforum e. V.
Beiträge: 1496
Registriert: Sa 28. Feb 2009, 08:54
OS, Lazarus, FPC: Linux Mint Mate, Lazarus GIT Head, FPC 3.0
CPU-Target: 64Bit
Wohnort: Stuttgart
Kontaktdaten:

Re: PowerPDF .bmp via Code in eine Page einfügen.

Beitrag von corpsman »

Lol manchmal kann es so einfach sein :

Code: Alles auswählen

Procedure LoadAndPlaceImage(Filename: String; x, y, w, h: Single);
Var
  bmp: TBitmap;
  img: TPdfImage;
Begin
  bmp := TBitmap.Create;
  bmp.loadfromfile(Filename);
  img := CreatePdfImage(bmp, 'Pdf-Bitmap', FDoc.ObjectMgr);
  FDoc.AddXObject('Img1', img);
  FDoc.Canvas.DrawXObject(x, y, w, h, 'Img1');
  bmp.free;
End;

--
Just try it

Antworten