Problem mit dll und pchar

[neolithos]

In der Dll:

Delphi-Quellcode:

function GetDataName(pStr : PChar; iStrLen : Integer) : Integer;
var sDataName : String;
begin
  sDataName := 'Hallo Welt!'; // Irgentein Text

  Result := Min(Length(sDataName), iStrLen - 1); // Passt die Zeichenkette in den Speicher ?
// wenn nicht kopiere was geht, sonst kopiere Text
// + setzen des Rückgabewertes der tatsächlich kopierten Zeichen
  StrLCopy(pStr, PChar(sDataName), Result); // Sicheres kopieren in den Buffer
end;

In Prog z.B.:

Delphi-Quellcode:

  SetLength(sStr, 1024); // Erstelle Buffer für 1024 Zeichen
  SetLength(sStr, 
     GetDataName(
       PChar(sStr), // Übergib Buffer
       1024) // Sage wieviel Byte der Buffer hat
   ); // Lösche alle Überflüssigen Bytes, die Hintendranhängen

Buffer = Dynamischer Speicher