Übergabe von Interface an DLL führt zu AccessViolation

[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.

[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