PChars mit Null Bytes von DLL zu Programm übergeben

[sirius]

Fehlerfrei funktioniert die kurze Funktion auch noch. Das ist aber nur Zufall. Wenn du zwischendurch noch weitere Speicherzuweisungen machst, wird irgendetwas überschrieben. Bei mir stimmen übrigens die Ausgaben mit showmessage schon nicht mehr.

Das mit Pointer und einer Längenangabe hätte ich dir auch geraten. Normalerweise funktioniert das so:

Delphi-Quellcode:

//**** DLL ******
function GetFileHash(pFileName: PChar; pBuf: Pointer; iBuflen: Integer): Integer; stdcall;
var
  sHash: string;
begin
  sHash := 'a'+#0+'b';
  result:=length(sHash)+1; //+NullByte am Ende
  if iBuflen<result then result:=iBuflen;
  move(sHash[1],pBuf^,result);
  dec(result); //NullByte nicht zur Länge zählen
end;

//**** Main ******
var
  i: Integer;
  s: string;

begin
  setlength(s,100);
  i := GetFileHash('c:\CA.txt', @s[1],100);
  setlength(s,i);
  ShowMessage(s);
end;