GhostScript: Zugriffsverletzung

[DeddyH]

Delphi-Quellcode:

FGsInit := GetProcAddress(FDLLHandle, 'gsapi_new_instance');
// Prüfung vergessen ;-)
if not Assigned(FGsInit then
  raise SomeException.Create('gsapi_new_instance nicht implementiert');
Result := (FGsInit(@FGsInstance, nil) = 0);

[hoika]

Hallo,
ich würde auch mal den Virenscanner prüfen.

Ausserdem würde ich mit MadExcept mal eine Exe bauen,
die dir genau sagt, in welcher Zeile die Zugriffsverletzung auftritt.

[haentschman]

Zeile 118 siehe 1 Post...

Zitat:

// Prüfung vergessen

...nee oder? Das kommt, wenn man auf mehreren Baustellen unterwegs ist.

Zitat:

Wat iss denne, wenn FDLLHandle vor dem if TFile.Exists(CurrentDLLPath) then 'nen Wert > 0 hat?

...ja nix. Dann ist diese, und nur diese Variable, mit dem Handle der DLL gefüllt. Vor dem Druck wird das Print Objekt, incl. dem GhostScript Objekt erzeugt. Nach dem Ausführen des Druckes (1-3000 Rechnungen) wird das Print Objekt, incl. dem GhostScript Objekt freigeben, und damit das Handle der DLL

Delphi-Quellcode:

FreeLibrary(FDLLHandle);
_

Test:

Delphi-Quellcode:

Result := (FGsApiInitWithArgs(FGsInstance, Length(FParameters), FParameters) = 0);
_

DLL 9.27 = True (Macht eine temporäre Datei und benennt diese dann um)
DLL 9.52 = False (nix)
...selbe Parameter, Namen, Pfade.