DLL Funktions Aufruf führt zu access violation in eigener procedure

[stalkingwolf]

2 Probleme habe ich aktuell die nicht nicht ganz verstehe.

Wir setzen eine DLL von A-Trust ein zum auslesen einer Smartcard auf einem USB Stick.
Das ganze funktioniert eigentlich einwandfrei, wenn ich mein Programm als DEBUG Build laufen lassen.
Schalte ich auf RELEASE um, dann führen einige DLL Funktionsaufrufe zu einer Access Violation wenn meine procedure in Delphi beendet wird, welche die DLL Funktion aufruft.

Dann habe ich mit einer DLL Funktion das Problem das sie in Formclose ohne Fehler und in einer Procedure mit Fehler am Ende der Procedure aufgerufen wird.

z.b diese Funktion :

Code:

long Finalize(void* ptr);

Code:

function Finalize(ptr:integer):long; stdcall; external 'asignRKCom.dll';

// Funktioniert

Code:

procedure Tfmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Finalize(h);
end;

// Ergibt einen Fehler

Code:

procedure Tfmain.myFinalize;
var erg:integer;
begin
    erg:=Finalize(h); // Erg = 0;
end;  // <---- Fehler

procedure Tfmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    myFinalize;
end;

Ich weiß nicht ob es ein Fehler meiner Deklaration ist oder Delphi ein Problem hat.
Oder es am Namen Finalize liegt.


Edit :
ich habe das ganze einmal anders Deklariert

Code:

function _Finalize(ptr:integer):long; stdcall; external 'asignRKCom.dll' name 'Finalize';

Das brachte auch nichts.

[Aviator]

Zitat von stalkingwolf:

Ich weiß nicht ob es ein Fehler meiner Deklaration ist oder Delphi ein Problem hat.
Oder es am Namen Finalize liegt.

Ich kann dir zwar jetzt nicht genau sagen wo dein Fehler liegt, aber die Funktion Finalize gibt es bei Delphi schon. Da deine Funktion wahrscheinlich im Kontext früher kommt als die aus den System Units, wird wohl deine verwendet.

Aber den Namen kannst du ja ganz einfach mal ändern indem du bei der Deklaration der Funktion den Namen auf FinalizeDLL oder so änderst und den Namen der entsprechenden DLL-Funktion mit übergibst.

function FinalizeDLL(ptr:integer):long; stdcall; external 'asignRKCom.dll' name 'Finalize'; Somit solltest du zumindest diese Unklarheit beseitigen können.

[himitsu]

Ich würde auch mal bei der Convention suchen.
cdecl?

PS: function FinalizeDLL(ptr: Pointer{oder THandle}): LongInt; stdcall; external 'asignRKCom.dll' name 'Finalize';

[stalkingwolf]

Danke euch 2. Auf die Idee kam ich dann auch als ich es gepostet hatte.
Brachte leider nichts.

[stalkingwolf]

Zitat von himitsu:

Ich würde auch mal bei der Convention suchen.
cdecl?

Das geht. Jetzt muss ich mich mal reinlesen was der Unterschied ist

[himitsu]

http://docwiki.embarcadero.com/RADSt...ufkonventionen
https://de.wikipedia.org/wiki/Aufrufkonvention -> siehe stdcall "Anders als bei"

Delphi nutzt übrigens fastcall/register und nicht pascal (unter x86) und in x64 nutzen Alle ein die CPU-Register wie in fastcall/register, nur das Aufräumen und der Stack wie bei C.
quasi FastCall+CDecl

[hoika]

Hallo,
der Unterschied ist, wer den Stack der aufrufenden Funktion aufräumt.
Macht man hier einen Konfigurationsfehler,
wird der Stack 2mal aufgeräumt -> Puff.

[himitsu]

Oder keiner räumt auf -> Puff

Jetzt haben wir zwei mal den Michael gerufen ... mal sehn wann er kommt.


Ob stdcall, cdecl oder sonstwas, das definiert der Quellcode für diese DLL, bzw. das Standardverhalten des verwendeten Compilers.

[TiGü]

Ist sicher hilfreich für die anderen, wenn du mal die Doku dazu verlinken würdest:
http://labs.a-trust.at/developer/pdf...erkasseCOM.pdf

Seid ihr nicht etwas spät dran mit eurer Entwicklung? Ist schließlich schon der 2. Mai.

[stalkingwolf]

Das Ding ist fertig, aber das waren Sachen die ich noch ändern wollte.