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?