Übergabe von Interface an DLL führt zu AccessViolation

[Fritzew]

Zitat:

Es ist nur wichtig, dass auf beiden Seiten die Schnittstellen gleich aussehn
und wenn hier EXE und DLL mit Delphi geschrieben sind, dann kann die Aufrufkonvention auch problemlos "register" bleiben.

Der Meinung bin ich nicht. Eine Dll sollte soweit als möglich Compilerunabhängig sein.
Und wenn man das mit so etwas einfachem wie stdcall erreichen kann ist das schon mal gut.

[himitsu]

Auch andere Sprachen kennen viele der Konventionen, somit ist es nicht per se inkompatibel, zu anderen Sprachen.

[Fritzew]

Nenn mir einen Win32 compiler (nicht Delphi / Fpc) der unter Win32 die Register Aufruf Konvention von Delphi kennt.
Ich lerne gerne dazu...

[Aviator]

Hallo Fritze,

danke dir.

Manchmal muss man nur mit der Nase drauf gestoßen werden. Die Aufrufkonvention stdcall hatte ich zwar in meinem Programm hinterlegt, aber nicht in der DLL. Jetzt flutscht es.

Nochmals vielen Dank!

Ich hoffe alle weiteren Fehler bekomme ich von selbst gelöst.

Zitat von himitsu:

DelphiStrings sind zwar intern zu PChar kompatibel (PChar(String) ist also OK), aber andersrum natürlich nicht (niemals String(PChar) ).

Wie denn dann? Hast du ein Beispiel?

[Fritzew]

Zitat von Aviator:

Zitat von himitsu:

DelphiStrings sind zwar intern zu PChar kompatibel (PChar(String) ist also OK), aber andersrum natürlich nicht (niemals String(PChar) ).

Wie denn dann? Hast du ein Beispiel?

Das ist schlicht falsch. Der Delphi Compiler ersetzt deinen Cast String(Pchar) durch

procedure _UStrFromPWChar(var Dest: UnicodeString; Source: PWideChar); Beweis: mit debug dcu compilieren und in den cast mit f7 reinsteppen

Gruss Fritz

[Aviator]

Zitat von Fritzew:

Zitat von Aviator:

Zitat von himitsu:

DelphiStrings sind zwar intern zu PChar kompatibel (PChar(String) ist also OK), aber andersrum natürlich nicht (niemals String(PChar) ).

Wie denn dann? Hast du ein Beispiel?

Das ist schlicht falsch. Der Delphi Compiler ersetzt deinen Cast String(Pchar) durch

procedure _UStrFromPWChar(var Dest: UnicodeString; Source: PWideChar); Beweis: mit debug dcu compilieren und in den cast mit f7 reinsteppen

Gruss Fritz

Ok. Werde ich dann mal so ausprobieren. Wenn es nicht funktioniert, dann melde ich mich nochmal.

[Zacherl]

Zitat von Aviator:

Zitat von himitsu:

DelphiStrings sind zwar intern zu PChar kompatibel (PChar(String) ist also OK), aber andersrum natürlich nicht (niemals String(PChar) ).

Wie denn dann? Hast du ein Beispiel?

Doch doch, das kannst du ruhig machen. Delphi Hilfe sagt zur StrPas Funktion beispielsweise

Zitat:

This function is provided for backwards compatibility only. To convert a null terminated string to an AnsiString or native Delphi language string, use a typecast or an assignment.

Und im Assembly sieht man auch, dass Delphi da Compiler Magic betreibt:

Code:

Unit1.pas.30: S := 'hallo';
005C9BA3 B8D89B5C00       mov eax,$005c9bd8
005C9BA8 8945F8           mov [ebp-$08],eax
Unit1.pas.31: T := String(S);
005C9BAB 8D45F4           lea eax,[ebp-$0c]
005C9BAE 8B55F8           mov edx,[ebp-$08]
005C9BB1 E8EE0AE4FF       call @UStrFromPWChar

[Aviator]

Zitat von Zacherl:

Zitat von Aviator:

Zitat von himitsu:

DelphiStrings sind zwar intern zu PChar kompatibel (PChar(String) ist also OK), aber andersrum natürlich nicht (niemals String(PChar) ).

Wie denn dann? Hast du ein Beispiel?

Doch doch, das kannst du ruhig machen. Delphi Hilfe sagt zur StrPas Funktion beispielsweise

Zitat:

This function is provided for backwards compatibility only. To convert a null terminated string to an AnsiString or native Delphi language string, use a typecast or an assignment.

Und im Assembly sieht man auch, dass Delphi da Compiler Magic betreibt:

Code:

Unit1.pas.30: S := 'hallo';
005C9BA3 B8D89B5C00       mov eax,$005c9bd8
005C9BA8 8945F8           mov [ebp-$08],eax
Unit1.pas.31: T := String(S);
005C9BAB 8D45F4           lea eax,[ebp-$0c]
005C9BAE 8B55F8           mov edx,[ebp-$08]
005C9BB1 E8EE0AE4FF       call @UStrFromPWChar

Alles klar. Danke schön für die Infos.

Mit dem Assembly Code kann ich allerdings, leider muss ich sagen, nicht wirklich viel anfangen. Verstehe da nichts von. Würde es aber gerne. Nur sieht es für mich immer sehr kompliziert aus.

[Zacherl]

Wichtig ist eigentlich nur die letzte Zeile - da sieht man, dass intern die UStrFromPWChar Funktion aufgerufen wird, um den PChar in String zu konvertieren.

Code:

Unit1.pas.30: S := 'hallo';
005C9BA3 B8D89B5C00       mov eax,$005c9bd8 < EAX = S, wird mit Adresse von 'hallo' initialisiert
005C9BA8 8945F8           mov [ebp-$08],eax < S wird auf dem Stack gesichert
Unit1.pas.31: T := String(S);
005C9BAB 8D45F4           lea eax,[ebp-$0c] < Adresse von T wird in EAX geschrieben
005C9BAE 8B55F8           mov edx,[ebp-$08] < S wird vom Stack geholt und in EDX geschrieben
005C9BB1 E8EE0AE4FF       call @UStrFromPWChar < Aufruf der Funktion mit EAX und EDX als Parameter