PChars mit Null Bytes von DLL zu Programm übergeben

[sirius]

Das funktioniert unter Delphi einschränkend. Kommt den da kein Fehler am Ende der Funktion? Oder wenigstens am Ende des Programms?

Die Funktionsweise ist folgende:
Ein String ist ja auch nichts weiter als ein Pointer auf eine Zeichenkette. Dasselbe gilt für einen PChar. Wenn du einen String anlegst, wird in den 4 Bytes vor dem String die Länge des Strings hinterlegt. Wenn du jetzt auf PChar Typecastest wird genauso ein Pointer auf die Zeichenkette erzeugt wie bei einem String. Am Speicher, also an der Zeichenkette+Längenangabe ändert sich nichts. Der Unterschied ist nur, dass der Compiler jetzt ein wenig anders arbeitet und den String nicht automatisch freigibt bzw. den Referenzzähler (der noch vor der Längenangabe liegt) verändert.
Wenn du jetzt wieder im HP auf String zurückcastest, dann findet er auch wieder die Längenangabe für die sich ein PChar nicht interessiert.
Allerdings dürfte er jetzt versuchen den String freizugeben, was zu einer AV führen sollte.


Edit: Das funktioniert nur, weil sHash auf eine Konstante zeigt. Mach mal folgendes:

Delphi-Quellcode:

function GetFileHash(pFileName: PChar; out pBuff: PChar): Integer; stdcall;
var
  x:string;
  sHash: string;
begin
  x := 'a'+#0+'b';  //x zeigt auf eine Konstante
  sHash:=x+'1';     //sHash wird neu zugewiesen und zeigt in den Heap
  pBuff := PChar(sHash);
  Result := Length(sHash);
end;