Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/fafalone/gpdfmerge
GUI-based PDF Merger
https://github.com/fafalone/gpdfmerge
pdf pdf-generation pdf-merge pdf-merger pdfium twinbasic vb6 windows
Last synced: about 6 hours ago
JSON representation
GUI-based PDF Merger
- Host: GitHub
- URL: https://github.com/fafalone/gpdfmerge
- Owner: fafalone
- License: mit
- Created: 2024-06-27T02:35:41.000Z (5 months ago)
- Default Branch: main
- Last Pushed: 2024-07-07T08:35:39.000Z (5 months ago)
- Last Synced: 2024-07-08T09:06:36.054Z (4 months ago)
- Topics: pdf, pdf-generation, pdf-merge, pdf-merger, pdfium, twinbasic, vb6, windows
- Language: Visual Basic 6.0
- Homepage:
- Size: 23.4 MB
- Stars: 6
- Watchers: 1
- Forks: 1
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
- License: LICENSE
Awesome Lists containing this project
README
# gPdfMerge
GUI-based PDF Merger
**Latest version:** v1.2.14, 07 July 2024
gPdfMerge is a simple utility written in twinBASIC mainly for me to try out using pdfium.dll, Google's open source PDF utility. It will merge the selected PDFs together, either into a new file, or into the first file on the list. You can optionally specify which pages in each document should be merged, and if you're appending the first in list, where to insert them at. That's all there is to it right now; just a brief experiment before I make a 64bit version of a more complex PDF control.
**Updates:**
> [!IMPORTANT]
> Starting with version 1.2, newer builds of pdfium.dll are used. These are obtained from https://github.com/bblanchon/pdfium-binaries/releases. Version 1.2 was tested with 128.0.6569.0 (01 Jul 2024), but newer versions should continue to work fine. Click 'Show all .. assets' to find the Windows versions; the file names you need are `pdfium-win-x86.tgz` and ` pdfium-win-x64.tgz`. **gPdfMerge v1.2+ will not work with the 2018-era original DLLs used with version 1.0**.
(Version 1.2 - 07 Jul 2024)\
-Adds a 'Search for pages' function which opens a new dialog you can use to search for a range of pages to merge:
(Version 1.1)\
-Range entry textbox now only enabled if an item is selected.\
-Specifying a single pdf with page range to trim it now supported.
**Build notes:**\
The project is configured as follows:\
-The project's root folder should contain the .twinproj file, and folders `win32` and `win64` with the respective bitness version of pdfium.dll\
-The compiled project must have pdfium.dll in the same folder with the .exe (the build output is set to \win32 and \win64).
One thing of interest, all the VB6 samples didn't have save functionality. I wasn't positive on how to implement it at first; it uses a very VB/tB unfriendly method:
```c
typedef struct FPDF_FILEWRITE_ {
int version;
int (*WriteBlock)(struct FPDF_FILEWRITE_* pThis,
const void* pData,
unsigned long size);
} FPDF_FILEWRITE;
FPDF_EXPORT FPDF_BOOL FPDF_CALLCONV FPDF_SaveAsCopy(FPDF_DOCUMENT document,
FPDF_FILEWRITE* pFileWrite,
FPDF_DWORD flags);
```
Functions in UDTs defined like that isn't something you usually see. pdfium makes you write your own write function. Other languages weren't helpful here... it seems all the ones I looked at had a built in class that somehow worked with this layout. We're not so lucky. It looked like a simple function pointer to a routine with a file write would work, and it did with one caveat: Despite the DLL's 32bit export calling convention being _stdcall, this callback had to be _cdecl, which might explain why nobody had done it in VB6 before. While there were solutions for APIs, afaik it wasn't until 2021 CDecl functions became practical with The trick's VBCDeclFix, an amazing piece of work that actually seems to finish VB6's incomplete CDecl support.
twinBASIC, of course, supports CDecl natively, so no hacks are needed.
The code opens for write the output using `CreateFile` prior to calling `FPDF_SaveAsCopy`, then fills in a copy of the UDT with `AddressOf WriteBlock`
```vba
Private Type FPDF_FILEWRITE
version As Long
WriteBlock As LongPtr
End Type
Dim tWrite As FPDF_FILEWRITE
tWrite.version = 1
tWrite.WriteBlock = AddressOf WriteBlock
Private Function WriteBlock CDecl(ByVal pThis As LongPtr, ByVal pData As LongPtr, ByVal size As Long) As Long
If hFileOut Then
Dim cbRet As Long
Return WriteFile(hFileOut, ByVal pData, size, cbRet, vbNullPtr)
End If
End Function
```
Et voilà.
------
### Thanks and Notes
Developed using pdfium builds from https://github.com/bblanchon/pdfium-binaries/releases
Merge routine based on pdfium-cli: https://github.com/klippa-app/pdfium-cli
Also special thanks to tB Discord user mike webb for getting me interested in this and helping test the program while under development. mike also contributed the code for the CompressRange function in v1.2-- very good work, I was having trouble getting my head around it!
**Command line**\
Command line usage:
Merge: gPdfMerge.exe /i "C:\...\Input1.pdf" "C:\...\Input2.pdf" /o "C:\path\Output.pdf"
Append: gPdfMerge.exe /i "C:\...\Input1.pdf" "C:\...\Input2.pdf"
Append or merge with ranges and/or insert idx not support via command line in v1.0