ich möchte PDF Files über über QuickPDF zusammenfügen, dazu verwende ich addtofilelist() und mergefilelist(). Ich kann zwar die einzelnen Dateien zur Filelist hinzufügen, aber beim mergen bekomme ich als Rückgabewert immer 0, funktioniert also nicht. Die Files sind aber sicher vorhanden weil ich auch zur Sicherheit immer mit fexists() prüfe. Hat jemand schon einmal PDF Dokumenten zusammengefügt ? Gibt es eine andere Lösung ?
Grüße
Rudolf
Code: Alles auswählen
function mergepdf(aAuf)
******************************************************************
local cFile,x,oPDF,nSuccess,cExport := addpath(al_path,"\export\test.pdf")
WITH OBJECT ( oPdf := TQuickPdf():New() )
.:clearFileList("Auftrag")
for x := 1 to len(aAuf)
cFile := addpath(al_path,"\export\a_" + alltrim(aAuf[x,1]) + ".pdf")
if fexists(cFile)
nSuccess := .:AddToFileList("Auftrag",cFile) // immer 1, also ok
endif
next x
nSuccess := .:MergeFileList("Auftrag","test.pdf") // immer 0 und kein File wird erstellt
.:Destroy()
END WITH
winapiopen(cExport)
return .t.