Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: PDF Merge

   
    by gaisser, 15. Feb 2021
  Mit Sicherheit :):):):bouncing4::bouncing4::bouncing4:
  Aber ein Phänomen hab ich noch...
  Unter Debug Comp geht es, aber unter Release nicht, an was kann dies liegen? Er bekommt den FDDLPath nicht zugewiesen???
• Forum: Programmieren allgemein

  AW: PDF Merge

   
    by gaisser, 15. Feb 2021
  Super, vielen Dank!
  Also ich hab mal die Unit wo funktioniert angehängt!
  unit uGhostscript;
  
  interface
  
  uses
  Winapi.Windows, Vcl.dialogs, Generics.Collections,
  System.Classes, System.SysUtils, System.IOUtils;
• Forum: Programmieren allgemein

  AW: PDF Merge

   
    by gaisser, 12. Feb 2021
  Hi Danke für den Test, aber ich will ja Merge machen, aber das funktioniert nicht.
  Habe es auch in einer eigenen Klasse deklariert!
  function TGhostscript.PDFMerge(InFile1, InFile2, InFile3,
  OutFile: Ansistring): Boolean;
  var
  xDLLFile: String;
  begin
  if not FileExists(InFile1) then
  begin
  ShowMessage('PDF Nr1 wurde nicht gefunden!!!');
• Forum: Programmieren allgemein

  AW: PDF Merge

   
    by gaisser, 10. Feb 2021
  Ich blick es nicht:oops:
  Was mache ich falsch, es kommt hier nun immer der Errocode 100
  Kann vielleicht mal jemand Source testen?
  
  procedure TForm1.Button2Click(Sender: TObject);
  var
  ArgV: Array of PAnsiChar;
  instance: Pointer;
  x, code: Integer;
  xArgV: PPAnsiChar;
• Forum: Programmieren allgemein

  AW: PDF Merge

   
    by gaisser, 10. Feb 2021
  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 := PANsiChar('ps2pdf');
  // argv := PAnsiChar('-dNOPAUSE');
• Forum: Programmieren allgemein

  AW: PDF Merge

   
    by gaisser, 8. Feb 2021
  Ich habe den Fehler gefunden!
  Ich muss den kompletten Pfad angeben, dann funktioniert es!
  Coole Sache :)
  
  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);
• Forum: Programmieren allgemein

  AW: PDF Merge

   
    by gaisser, 8. Feb 2021
  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
• Forum: Programmieren allgemein

  AW: PDF Merge

   
    by gaisser, 8. Feb 2021
  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!
• Forum: Programmieren allgemein

  AW: PDF Merge

   
    by gaisser, 8. Feb 2021
  Danke Dir!
  Aber es scheint ich bin zu doof das aus Delphi aufzurufen:roll:
  
  procedure TForm1.Button1Click(Sender: TObject);
  var xProg:String;
  begin
  xProg := 'gs -dNOPAUSE -sDEVICE=pdfwrite -sOUTPUTFILE='+ JvFilenameEdit3.Text +'-dBATCH '+JvFilenameEdit1.Text+' '+JvFilenameEdit2.Text;
  
  JvCreateProcess1.CommandLine := ExtractFilePath(Application.ExeName) + xProg;
  ...
• Forum: Programmieren allgemein

  PDF Merge

   
    by gaisser, 8. Feb 2021
  Hallo Zusammen,
  
  habe Ihr denn Erfahrungen mit PDF Merge?
  Was könnt Ihr da am besten empfehlen, damit ich aus der IDE 2 PDF´s in 1 zusammenbringen kann?