Ich wollte Euch nur den aktuellen Stand mitteilen, falls jemand sowas auch nochmal machen möchte.
Ich habe die Ghostscript
DLL eingebunden und lasse in meinem Programm jetzt aus der *.PS Datei ein PDF erzeugen.
Die Initialisierung und das Laden der
DLL mache ich über die angehangene
Unit.
So starte ich die Konvertierung zum PDF.
Delphi-Quellcode:
oGS := TGhostScript.Create;
oGS.ExecuteWithArgs(GetArgs);
GetArgs:
Delphi-Quellcode:
function TForm1.GetArgs: APAnsiChar;
var
oArgs: APAnsiChar;
begin
setlength(oArgs, 0);
AddArg(oArgs, 'gs');
AddArg(oArgs, '-r300');
// AddArg(oArgs, '-dSAFER');
AddArg(oArgs, '-dBATCH');
AddArg(oArgs, '-dNOPAUSE');
AddArg(oArgs, '-sDEVICE=pdfwrite');
AddArg(oArgs, '-dPDFSETTINGS=/ebook');
AddArg(oArgs, '-sFONTPATH=%windir%/fonts');
AddArg(oArgs, '-dEmbedAllFonts=true');
AddArg(oArgs, '-dSubsetFonts=true');
AddArg(oArgs, '-dNumRenderingThreads=8');
AddArg(oArgs, '-sOutputFile=c:\temp\' + filename);
AddArg(oArgs, '-f');
AddArg(oArgs, 'c:\temp\xy.ps');
result := oArgs;
end;
Funktioniert soweit gut, jetzt muss ich nur noch schauen, wie ich die PS Datei zum Drucker bekomme.
Das sind Canon Image Runner, die sollten Postscript können.
LG
Mirko