Delphi-PRAXiS
Seite 1 von 2  1 2   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi GhostScript: PDF wird nicht erzeugt (https://www.delphipraxis.net/147472-ghostscript-pdf-wird-nicht-erzeugt.html)

Angel4585 9. Feb 2010 15:59


GhostScript: PDF wird nicht erzeugt
 
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?

Klaus01 9. Feb 2010 16:33

Re: GhostScript: PDF wird nicht erzeugt
 
Guten Abend,

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

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

Grüße
Klaus

Angel4585 10. Feb 2010 08:09

Re: GhostScript: PDF wird nicht erzeugt
 
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.

omata 10. Feb 2010 08:26

Re: GhostScript: PDF wird nicht erzeugt
 
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;

Angel4585 10. Feb 2010 08:56

Re: GhostScript: PDF wird nicht erzeugt
 
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

omata 10. Feb 2010 09:02

Re: GhostScript: PDF wird nicht erzeugt
 
Hier mal die ganze Unit...

Angel4585 10. Feb 2010 09:10

Re: GhostScript: PDF wird nicht erzeugt
 
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.

omata 10. Feb 2010 09:12

Re: GhostScript: PDF wird nicht erzeugt
 
Schade, bei mir funktioniert das wunderbar.

Angel4585 10. Feb 2010 09:31

Re: GhostScript: PDF wird nicht erzeugt
 
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?

Angel4585 27. Mai 2010 09:14

Re: GhostScript: PDF wird nicht erzeugt
 
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?


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:42 Uhr.
Seite 1 von 2  1 2   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz