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