PDF Merge

[elmar.faber]

Hallo,

habe gerade versucht, zwei FastReport PDF's mit Ghostscript zu mergen aber
trotz Aufrufs von gsapi_set_arg_encoding(FGsInstance, GS_ARG_ENCODING_UTF8),
wie von HolgerX vorgeschlagen, werden die Umlaute in Hieroglyphen umgewandelt.

Hat jemand eine Idee, wie man das korrigieren kann?

Viele Grüße

[HolgerX]

Hmm..

Zitat von elmar.faber:

Hallo,

habe gerade versucht, zwei FastReport PDF's mit Ghostscript zu mergen aber
trotz Aufrufs von gsapi_set_arg_encoding(FGsInstance, GS_ARG_ENCODING_UTF8),
wie von HolgerX vorgeschlagen, werden die Umlaute in Hieroglyphen umgewandelt.

Hasst Du die FileNamen auch vorher in ein UTF8 String konvertiert (bei Verwendung von GS_ARG_ENCODING_UTF8)?

In den Quelltexten von gaisser wird nur nach AnsiString konvertiert und nicht nach UTF8, und dann gehen schon so einige Zeichen verloren...

[elmar.faber]

Ja ich habe überall wo "Ansi" steht UTF8 eingesetzt. Fehler kamen keine...
Aufgeruft habe ich die Funktion an dieser Stelle

Delphi-Quellcode:

...
    FGsInit := GetProcAddress(FDLLHandle, 'gsapi_new_instance');
    Result := (FGsInit(@FGsInstance, nil) = 0);
    if Result then
    begin
      Fgsapi_set_arg_encoding := GetProcAddress(FDLLHandle, 'gsapi_set_arg_encoding');
      Fgsapi_set_arg_encoding(FGsInstance, GS_ARG_ENCODING_UTF8);
...

[HolgerX]

Hmm...

Zitat von elmar.faber:

Ja ich habe überall wo "Ansi" steht UTF8 eingesetzt. Fehler kamen keine...
Aufgeruft habe ich die Funktion an dieser Stelle

Delphi-Quellcode:

...
    FGsInit := GetProcAddress(FDLLHandle, 'gsapi_new_instance');
    Result := (FGsInit(@FGsInstance, nil) = 0);
    if Result then
    begin
      Fgsapi_set_arg_encoding := GetProcAddress(FDLLHandle, 'gsapi_set_arg_encoding');
      Fgsapi_set_arg_encoding(FGsInstance, GS_ARG_ENCODING_UTF8);
...

Die Reihenfolge ist bei mir:

gsapi_new_instance
gsapi_set_arg_encoding
gsapi_init_with_args
gsapi_exit

Bei den Argumenten (gsapi_init_with_args) muss der erste Eintrag ein '' sein, da dieser von der GS-APi ignoriert wird (https://www.ghostscript.com/doc/current/API.htm#init).

Bei den anderen Argumenten, welche Strings als Wert enhalten musst du deinen Delphistring mit UTF8Encode nach UTF umcodieren!

Einfach nur aus 'AnsiString' ein 'UTF8String' zu machen, wird wohl nichts bringen...

Sprich z.B. (Src von gaisser):

Delphi-Quellcode:

      SetLength(FParameters, 8);

      FParameters[0] := '';
      FParameters[1] := '-dNOPAUSE';
      FParameters[2] := '-dBATCH';
      FParameters[3] := '-Author=ProTRxxx Software GmbH';
      FParameters[4] := '-Creator=ProTRxxx Software GmbH';
      FParameters[5] := '-dPDFSETTINGS=/printer';
      FParameters[6] := '-sDEVICE=pdfwrite';
      FParameters[7] := PAnsiChar(AnsiString('-sOutputFile=' + UTF8Encode(OutputFile)));

[elmar.faber]

Hallo,

vielen Dank für dein Hilfe aber ich kriege es nicht hin, habe jetzt viel herumexperimentiert
und versucht mit UTF8Encode die Strings um zu kodieren aber ich bekomme immer das gleiche
Resultat. Keine Ahnung was ich jetzt noch versuchen kann...

[Frickler]

Ich nehme für sowas immer das Befehlszeilenprogramm PDFTK.

pdftk dateiname1.pdf dateiname2.pdf ... dateinameN.pdf cat output ausgabedatei.pdf

hängt die alle aneinander an. Man kann sogar Seiten drehen dabei, einzelne Seiten ausschneiden und vieles mehr.

Man braucht die EXE Datei und eine DLL, und das wars. Keine Installation.

[elmar.faber]

Ja so habe ich es jetzt auch gelöst.
Hätte es nur gerne hinbekommen...