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;