XE2 übergabe an C DLL

[Neutral General]

Zitat von Supergrobie:

Shit Montag

Aktuell :

Code:

function StrToDLL(s : String) : PAnsiChar;
begin
  result := PAnsiChar(s);
end;

Wenn schon:

Delphi-Quellcode:

function StrToDLL(s : String) : PAnsiChar;
begin
  result := PAnsiChar(AnsiString(s));
end;

[himitsu]

Alles nicht

Zitat:

Delphi-Quellcode:

function StrToDLL(s : String) : PAnsiChar;
begin
  result := PAnsiChar(s);
end;

Totaler Schrott und das sollte auch der Debugger bemängeln. (zumindestens ab Delphi 2009)

Zitat:

Delphi-Quellcode:

function StrToDLL(s : String) : PAnsiChar;
begin
  result := PAnsiChar(AnsiString(s));
end;

Typmäßig OK, aber dennoch Schrott.

Delphi legt hier eine lokale temporäre Variable an, wo der AnsiString reingeht, bevor PAnsiChar darauf angewendet wird.
Und jetzt ratet mal, was mit dieser Variable und deren Speicher bei Funktionsende passiert?

Richtig, der Zeiger ist futsch, da er auf was nicht mehr Existierendes zeigt.

Zitat:

Delphi-Quellcode:

function StrToDLL(s : AnsiString) : PAnsiChar;
begin
  result := PAnsiChar(s);
end;

Solange man einen AnsiString übergibt und solange man diesen AnsiString nicht mehr verändert und er auch immernoch existiert, kommt das StrToDLL(MyStr) auf ein PAnsiChar(MyStr) hinaus und die Funktion ist "nutzlos", aber benutzbar.

Übergibt man aber einen "anderen" String-Typen, dann war's das wieder und alles ist Schrott. (kann man nur etwas verhindern/eingränzen, indem man es als function StrToDLL(var s : AnsiString) : PAnsiChar; deklariert und so eine AnsiString-Variable als Parameter erzwingt)

[himitsu]

Entweder du verwendest AnsiStrings (zumindestens in deiner Funktion), oder castest alles vor Ort PAnsiChar(AnsiString(xxx)) .

Und die Funktions-Header der DLL-Funktionen müssen natürlich auch PAnsiChar sein.
(wenn das nur IN-Parameter sind, dann kann man sie notfalls auch einfach als CONST X: AnsiString deklarieren, da sich im AnsiString auch die PAnsiChar-Struktur versteckt)

Und bei Out-Parametern, muß es sowieso zwingend ein AnsiString sein.