Pdf Viewer in Pascal

[Tomxe]

https://github.com/Xelitan/PDF-Viewer-exporter-in-pure-Free-Pascal-Lazarus-Delphi

Display PDFs:

Code: Pascal  [Select][+][-]

1. type
2.   TForm1 = class(TForm)
3. ...
4.   public
5.     PDF: TXelPDF;
6.   end;
7. ...
8. procedure TForm1.FormCreate(Sender: TObject);
9. begin
10.   PDF := TXelPDF.Create(Form1);
11.   Pdf.Parent := Form1;
12.   Pdf.Align := alClient;
13.   Pdf.AutoFit := afWidth; //fit to width of the component
14.   Pdf.LoadFromFile('test.pdf');
15. end;
16.  
17. procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
18. begin
19.   Pdf.Free;
20. end;  

Some editing is possible:

Code: Pascal  [Select][+][-]

1. Doc.DrawRect(0, 50, 600, 200, 80, clRed); //PageNum, Left, Top, Width, Height, Color
2. Doc.AddJpegImage(PageIndex, JpegBytes, Left, Top, Width, Height);
3.  
4. FontRes := Doc.AddFont(FontName, FontSize);
5. Doc.AddText(PageIndex, 'Test Here', Left, Top, FontRes);

Also removing pages, adding new pages and exporting elements:

Code: Pascal  [Select][+][-]

1. Doc.ExportImage(PageNumber, ImageNumber, 'out.png');
2. Doc.ExportJpeg(PageNumber, JpegNumber, 'out.jpg');
3. PDF.Document.ExportFont(5, 'out.otf'); //5 is the number of the font

Uses GDI+ so currently works only on Windows. Linux support will be added in the future.

[kirchfritz]

Hello tomxe,

trying to compile your PDF Viewer with Lazarus 4.2 FPC 3.2.2 gives the following error message:

(see attachement)

[Tomxe]

Sorry, it would work but it's {$mode delphi} now. I fixed the code, please download the update.

[zamtmn]

Please provide a simple application so that we can view the selected pdf and evaluate the library's capabilities?

[kirchfritz]

Hi tomxe:
using  {mode objfpc} instead of {$mode delphi} lets me successfully compile all your modules.
I already found, how to scroll programatically from page to next/prev page, how to set the zoom level and how to show current pagenumber / total pagenumber.

But: I cant find a way how to rotate pdf-pages clockwise or anti-clockwise.
Does it make sense to wait for this feature?

[Tomxe]

I added a simple demo - DEMO_PDF.lpr that shows some of the options.
There are no rotations yet but will be added soon.

[hedgehog]

Hi Tomxe.

It looks cool!
I opened the test file
https://github.com/py-pdf/sample-files/blob/main/011-google-doc-document/google-doc-document.pdf
and here's what I noticed:
1. The logo (worm) is drawn with a black background, without transparency.
2. The flags of the countries are missing in the table.

[Dzandaa]

Hi,

@Tomxe:

Great Program/Library,

I'm currently looking for a program that would allow me to view a directory with many PDF files
and see their contents simply by clicking on them.

Here are two attached images of a document written in LibreOffice and exported as a PDF:
one from "Sumatra PDF" and the other from "Xelitan PDF"—they are quite similar.

Thank you again.

B->

[eldonfsr]

Looks great is print avalible to..

[Handoko]

Nice.
Unfortunately it is licensed under GPL, closed source can't use it.

[Tomxe]

Unfortunately it is licensed under GPL, closed source can't use it.

Commercial license is available and dirt cheap.

[Tomxe]

Fixed:
1) transparency around the Snake
2) flags now visible
3) resampling instead of resizing of images
4) rotations

[CM630]

I tried a few documents, usually there are issues with some characters. But in the attached file I see only quadrangles.

Also, it it possible to search?

[Dzandaa]

Hi,

@Tomxe:

Using Windows 10 64bits with Lazarus 4.8 fpc 3.2.2


The library works fine for some files, but sometimes, I have memory leaks
PdfObjects.pas at  Line 105:
Create

PdfCFF.pas at line 434:
Result := Result + w;

Anyway, great job.

B->

[Tomxe]

Thanks @Dzandaa - fixed.

@CM630 - a bit complicated but should be fixed today/tomorrow.
Searching:
TXelPDf.Search()