AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

GhostScript: PDF wird nicht erzeugt

Ein Thema von Angel4585 · begonnen am 9. Feb 2010 · letzter Beitrag vom 25. Mär 2020
Antwort Antwort
Seite 1 von 2  1 2   
Angel4585

Registriert seit: 4. Okt 2005
Ort: i.d.N.v. Freiburg im Breisgau
2.199 Beiträge
 
Delphi 2010 Professional
 
#1

GhostScript: PDF wird nicht erzeugt

  Alt 9. Feb 2010, 14:59
Hallo,

ich hab das gsapi-Beispiel hier http://pages.cs.wisc.edu/~ghost/doc/gsapi.htm runtergeladen und die gsapi.pas in mein Projekt eingebunden.

Nun hab ich folgende Funktion:
Delphi-Quellcode:
function TForm1.PS2PDF(inFile, outFile : string) : Integer;
var
code, code1 : Integer;
gsargc : Integer;
gsargv : PPchar ;
err : cardinal;
minst : Pointer;
begin
try
    SetLength(gsargv,10);
    gsargv[0] := 'ps2pdf';   // actual value doesn't matter */
    gsargv[1] := '-dNOPAUSE';
    gsargv[2] := '-dBATCH';
    gsargv[3] := '-dSAFER';
    gsargv[4] := '-sDEVICE=pdfwrite';
    gsargv[5] := PChar('-sOutputFile='+outFile);
// gsargv[5] := '-sOutputFile=test.pdf';
    gsargv[6] := '-c';
    gsargv[7] := '.setpdfwrite';
    gsargv[8] := '-f';
    gsargv[9] := PChar(inFile);
    gsargc := 10;

    code := gsapi_new_instance(@minst, nil);
    if (code < 0)then
      begin
      Result:=0;
      raise Exception.Create('new instance '+IntToStr(code));
      end;
    code := gsapi_init_with_args(minst, gsargc, gsargv);
    code1 := gsapi_exit(minst);
    gsapi_delete_instance(minst);
    Result:=1;
except
  err := GetLastError;
  if err > 0 then
    begin
      ShowMessage(SysErrorMessage(err));
    end;
  gsapi_exit(minst);
  end;
end;
Die Funktion wird auch sauber durchlaufen, keine Fehlermeldungen, garnichts. Aber es wird keine PDF-Datei erzeugt.
Kennt sich jemand bissl damit aus und kann mir sagen wo mein Fehler liegt?
Martin Weber
Ich bin ein Rüsselmops
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.446 Beiträge
 
Delphi 10.3 Rio
 
#2

Re: GhostScript: PDF wird nicht erzeugt

  Alt 9. Feb 2010, 15:33
Guten Abend,

fehlt da nach dem
code := gsapi_init_with_args(minst, gsargc, gsargv); nicht noch ein gsapi_run_* ?

So initialisierst Du gsapi aber es wird nicht ausgeführt.

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat
Angel4585

Registriert seit: 4. Okt 2005
Ort: i.d.N.v. Freiburg im Breisgau
2.199 Beiträge
 
Delphi 2010 Professional
 
#3

Re: GhostScript: PDF wird nicht erzeugt

  Alt 10. Feb 2010, 07:09
Also in keinem der zahlreichen Beispiele wird ne gsapi_run_* Methode aufgerufen, auch wenn ich eine rein mach passiert nix. Mir ist aber aufgefallen, dass die gsapi_init_with_args-Methode -100 als Ergebnis zurückliefert. PerGetLastError bekomm ich den fehler 3 : System kann den angegebenen Pfad nicht finden.
Martin Weber
Ich bin ein Rüsselmops
  Mit Zitat antworten Zitat
omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: GhostScript: PDF wird nicht erzeugt

  Alt 10. Feb 2010, 07:26
Also bei mir sieht das so aus...

Delphi-Quellcode:
function CreatePDF(Datei, GhostscriptDllPath:string;
                   StdOUT, StdERR:TStrings):boolean;
var hDLL: HINST;
    argv:array of PChar;
    code:integer;
    instance:Pointer;
    gsInit : TgsInit;
    gsapi_init_with_args : Tgsapi_init_with_args;
    gsapi_exit : Tgsapi_exit;
    gsapi_delete_instance : Tgsapi_delete_instance;
    gsapi_set_stdio : Tgsapi_set_stdio;
begin
  Result:=false;
  hDLL := LoadLibrary(PChar(GhostscriptDllPath+'bin\gsdll32.dll'));
  try
    if hDll > 0 then begin
      gsInit := GetProcAddress(hDLL, 'gsapi_new_instance');
      code:=gsInit(@instance, nil);
      if code <> 0 then begin
        if assigned(FStdERR) then
          FStdERR.Append(
            'Es kann keine Instanz von Ghostscript erzeugt werden ' +
            '(Fehler: '+IntToStr(code)+')'
          );
      end
      else begin
        gsapi_set_stdio:= GetProcAddress(hDLL, 'gsapi_set_stdio');
        code:=gsapi_set_stdio(instance, @gsstdin, @gsstdout, @gsstderr);
        if code < 0 then begin
          if assigned(FStdERR) then
            FStdERR.Append(
              'Es kann keine Callback-Routine eingerichtet werden ' +
              '(Fehler: '+IntToStr(code)+')'
            );
        end
        else begin
          gsapi_init_with_args:= GetProcAddress(hDLL, 'gsapi_init_with_args');
          gsapi_exit:= GetProcAddress(hDLL, 'gsapi_exit');
          gsapi_delete_instance:= GetProcAddress(hDLL, 'gsapi_delete_instance');

          setlength(argv, 11);
          argv[0] := '';
          argv[1] := '-dNOPAUSE';
          argv[2] := '-dBATCH';
          argv[3] := '-dSAFER';
          argv[4] := '-sDEVICE=pdfwrite';
          argv[5] := PChar(
            '-I'+GhostscriptDllPath+'lib;'+GhostscriptDllPath+'..\fonts'
          );
          argv[6] := PChar(
            '-sOutputFile='+ChangeFileExt(ExtractFileName(Datei), '.pdf')
          );
          argv[7] := '-c';
          argv[8] := '.setpdfwrite';
          argv[9] := '-f';
          argv[10] := PChar(Datei);
          try
            code := gsapi_init_with_args(instance, length(argv), argv);
            if code < 0 then
              if assigned(FStdERR) then
                FStdERR.Append('ERROR: init_args: '+IntToStr(code));
            setlength(argv, 0);
          finally
            gsapi_exit(instance);
            gsapi_delete_instance(instance);
            if code >= 0 then begin
              CopyFile(
                PChar(ChangeFileExt(ExtractFileName(Datei), '.pdf')),
                PChar(ChangeFileExt(Datei, '.pdf')), false
              );
            end;
          end;
          Result:=true;
        end;
      end;
    end
    else begin
      if assigned(FStdERR) then
        FStdERR.Append('gsdll32.dll nicht gefunden');
    end;
  finally
    FreeLibrary(hDLL);
  end;
end;
  Mit Zitat antworten Zitat
Angel4585

Registriert seit: 4. Okt 2005
Ort: i.d.N.v. Freiburg im Breisgau
2.199 Beiträge
 
Delphi 2010 Professional
 
#5

Re: GhostScript: PDF wird nicht erzeugt

  Alt 10. Feb 2010, 07:56
Danke omata, hast du mir noch die Methodenköpfe?
gsInit : TgsInit;
gsapi_init_with_args : Tgsapi_init_with_args;
gsapi_exit : Tgsapi_exit;
gsapi_delete_instance : Tgsapi_delete_instance;
gsapi_set_stdio : Tgsapi_set_stdio;

die kenn ich auch nicht: @gsstdin, @gsstdout, @gsstderr
Martin Weber
Ich bin ein Rüsselmops
  Mit Zitat antworten Zitat
omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#6

Re: GhostScript: PDF wird nicht erzeugt

  Alt 10. Feb 2010, 08:02
Hier mal die ganze Unit...
  Mit Zitat antworten Zitat
Angel4585

Registriert seit: 4. Okt 2005
Ort: i.d.N.v. Freiburg im Breisgau
2.199 Beiträge
 
Delphi 2010 Professional
 
#7

Re: GhostScript: PDF wird nicht erzeugt

  Alt 10. Feb 2010, 08:10
Geht auch nicht. Die zwei Memos füllen sich mit viele chinesischen Schriftzeichen und am ende steht wieder
ERROR: init_args: -100

Was hats mit c:\gsfiles\fonts auf sich? Hab das mal weggemacht, geht aber trotzdem nicht



Edit: Die Batchfiles im ghostscript libs-Ordner funktionieren aber, nur über die möcht ich das nicht lösen.
Martin Weber
Ich bin ein Rüsselmops
  Mit Zitat antworten Zitat
omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#8

Re: GhostScript: PDF wird nicht erzeugt

  Alt 10. Feb 2010, 08:12
Schade, bei mir funktioniert das wunderbar.
  Mit Zitat antworten Zitat
Angel4585

Registriert seit: 4. Okt 2005
Ort: i.d.N.v. Freiburg im Breisgau
2.199 Beiträge
 
Delphi 2010 Professional
 
#9

Re: GhostScript: PDF wird nicht erzeugt

  Alt 10. Feb 2010, 08:31
Kann das was damit zu tun haben das ich Windows 64-Bit einsetze? Hab mal die 64-Bit Version von GhostScript installiert, aber mit der DLL kann Delphi garnix anfangen.

Übrigens deine Funktion liefert auch true wenn die DAtei garnicht erstellt wurde. Wie wärs mit der Plausibilitätsprüfung ob die pdf-Datei am Ende auch existiert?
Martin Weber
Ich bin ein Rüsselmops
  Mit Zitat antworten Zitat
Angel4585

Registriert seit: 4. Okt 2005
Ort: i.d.N.v. Freiburg im Breisgau
2.199 Beiträge
 
Delphi 2010 Professional
 
#10

Re: GhostScript: PDF wird nicht erzeugt

  Alt 27. Mai 2010, 08:14
Ich sitze wieder an dem Problem, habs damals abgebrochen weil ich nich weiter kam.
[code=delphi]
procedure TGhostScript.gsInit(var Arguments: PPChar);
var
Code: Integer;
begin
if Length(Arguments) = 0 then
begin
SetLength(Arguments, 4);
Arguments[0] := PChar(ParamStr(0));
Arguments[1] := '-sDEVICE=display'; // display device
Arguments[2] := PChar(GetDisplayFormatString); // display format
Arguments[3] := PChar('-r' + IntToStr(FResolution)); // resolution
end;
//
try
Code := gsapi_init_with_args(FInstance, Length(Arguments), Arguments);//Hier bekomm ich ne Zugriffsverletzung in der gsdll32.dll
except on E: Exception do
begin
raise EGhostScriptInitException.Create(sInitFailed + #13 + E.Message);
end;
end;
SetLength(Arguments, 0);
if Code <= -100 then
begin
gsExit;
raise EGhostScriptInitException.CreateFmt(sInitFailed, [Code]);
end
else if Code < 0 then
raise EGhostScriptInitException.CreateFmt(sInitFailed,
Code:
)
  else FStatus := gsInitialised;
end;
FInstance und Arguments sind richtig initialisiert worden.
Bei der DLL benutze ich die der Version 8.56, momentan arbeite ich unter Windows Vista 32-Bit.
Das Problem ist eben jetzt die Zugriffsverlezung in der markierten Zeile.

Ich kanns irgendwie kaum glauben das man nirgends ne vernünftige Delphi-Komponente findet die Ghostscript nutzt
Oder bin ich einfach blind?
Martin Weber
Ich bin ein Rüsselmops
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:30 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2020 by Daniel R. Wolf