Delphi mit gsdll32.dll benutzen (Ghostscript)

[FunkyGT]

Hallo zusammen,

ich versuche gerade krampfhaft die die gsdll32.dll von ghostscript zu benutzen. und ich weiss nicht was ich falsch mache bzw. wo es denn hakt.

Hat jemand von euch sowas schon mal gemacht?

ich habe es dann nur mit der shell hinbekommen quasi die exe aufgerufen mit diversen parametern.

aber das reicht mir nicht, weil ich nur ein mässige fehlerbehandlung habe.

Ich habe mal das programm bzw. einen teil vom programm abgebildet

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   gs       : Pgs_main_instance;
   code     : integer;
   instance : Pointer;
   argv     : PPChar;
begin
  new(instance);
  setlength(argv,11);
  code:=gsapi_new_instance(@instance,nil);
  if code<>0 then
    begin
      // Fehlerbehandlung
    end;
  try
    argv[0]   := 'ps2pdf';
    argv[1]   := '-dNOPAUSE';
    argv[2]   := '-dBATCH';
    argv[3]   := '-dSAFER';
    argv[4]   := '-sDEVICE=pdfwrite';
    argv[5]   := '-sOutputFile=Test.pdf';
    argv[6]   := '-c';
    argv[7]   := '.setpdfwrite';
    argv[8]   := '-f';
    argv[9]   := '-sPAPERSIZE=a4';
    argv[10]  := '123.ps';

    code := gsapi_init_with_args(instance,length(argv),argv);
    if code<0 then
      raise Exception.Create('ERROR: init_args: '+IntToStr(code));
    gsapi_exit(gs);
    gsapi_delete_instance(gs);
  finally
  end;
end;

Falls jemand eine Idee hat, bzw. sowas schon mal realisiert hat, bitte hilfe

Stay tuned

Funky