GhostScript: PDF wird nicht erzeugt

[Angel4585]

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]

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

[Angel4585]

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]

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]

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]

Hier mal die ganze Unit...

[Angel4585]

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]

Schade, bei mir funktioniert das wunderbar.

[Angel4585]

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]

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?