PDF Merge

[Bernhard Geyer]

ITextSharp hat Dual-Lizenz (AGPL bzw. Commercial License).
Als aufpassen das dies nicht eine teure Integration wird.

[Bernhard Geyer]

Was ist der Fehlercode/Text

Ich Tipp aber auf fehlende Backslash bei der Pfadangabe

[himitsu]

Ich auf eventuelle Leerzeichen in Pfaden (fehlende ")
und vorallem auf ein fehlendes Leerzeichen vor -dBATCH

[gaisser]

Meldung: Das System kann die angegebe Datei nicht finden!
Backshlash habe ich drinne, mir scheint das er einfach "gs" nicht finden kann, wenn ich es im CMD mache, dann habe ich das gleiche!

[gaisser]

gs -dNOPAUSE -sDEVICE=pdfwrite -sOUTPUTFILE=C:\Austausch\Test.pdf -dBATCH C:\Austausch\DV\jg121035219.PDF C:\Austausch\DV\jg1209120740.PDF


das wird versucht aufzurufen!

Habe ich vielleicht das gs falsch installiert?

habs von hier:
https://www.ghostscript.com/download.html

[gaisser]

Ich habe den Fehler gefunden!
Ich muss den kompletten Pfad angeben, dann funktioniert es!
Coole Sache

Delphi-Quellcode:

var
  xProg: String;
begin
  xProg := '"C:\Program Files (x86)\gs\gs9.53.3\bin\gswin32.exe" -dNOPAUSE -sDEVICE=pdfwrite -sOUTPUTFILE=' + JvFilenameEdit3.Text
    + ' -dBATCH ' + JvFilenameEdit1.Text + ' ' + JvFilenameEdit2.Text;
  showmessage(xprog);
  JvCreateProcess1.CommandLine := xProg;
  JvCreateProcess1.Run;

end;

[himitsu]

Zitat:

CommandLine := ExtractFilePath(Application.ExeName) + 'gs ...';

Liegt denn GS im selben Verzeichnis, wie deine Application?



Und dennoch solltest du sicherheitshalber "eventuelle" Leerzeichen beachten (Parameter in " einschließen), nicht nur bei der EXE, sondern auch bei den PDFs.
und das eine fehlende Leerzeichen einfügen. siehe #8

Außerdem ist denn das aktuelle Arbeitsverzeichnis auch das Verzeichnis wo die PDFs liegen?
Sicherheitshalber immer nur mit absoluten Pfaden arbeiten.

[HolgerX]

Hmm..

Alternativ kannst du auch von GS die DLL direkt in deinem Programm verwenden, dann braucht gar kein GS mehr installiert werden und es muss auch kein (externes) Programm mehr aufgerufen werden.

Als Parameter werden die gleichen an einen Funktionsaufruf übergeben, wie beim Aufruf der Exe.

Die API-Pas files waren von Alessandro Briosi und müssen nur auf UniCode angepasst werden.

[gaisser]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  argv: Array of PAnsiChar;
  instance: Pointer;
  x: Integer;
begin
  // new(instance);  //how many bytes, this really doesn't make sense with a untyped pointer!
  // setlength(argv, 4);
  // argv[0] := PANsiChar('ps2pdf');
  // argv[1] := PAnsiChar('-dNOPAUSE');
  // argv[2] := PAnsiChar('-dBATCH');
  // argv[3] := PAnsiChar('-dSAFER');
  // gsapi_init_with_args(instance, Length(argv), PPAnsiChar(argv));
  // gsapi_exit(instance);
  gsapi_new_instance(instance, instance);
  // ShowMessage(inttostr(x));
  // new(instance);  //how many bytes, this really doesn't make sense with a untyped pointer!
  setlength(argv, 5);
  argv[0] := PAnsiChar('');
  argv[1] := PAnsiChar('-dNOPAUSE');
  argv[2] := PAnsiChar('-sDEVICE=pdfwrite');
  argv[3] := PAnsiChar('-sOUTPUTFILE= ' + JvFilenameEdit3.Text);
  argv[4] := PAnsiChar(' -dBATCH ' + JvFilenameEdit1.Text + ' ' +
    JvFilenameEdit2.Text);
  gsapi_init_with_args(instance, Length(argv), PPAnsiChar(argv));
  gsapi_exit(instance);
  showmessage('fertig!');

end;

Danke HolgerX!
Das funktioniert aber nicht, kommt nicht mal ne Fehlermeldung!