Problem mit dll und pchar

[neolithos]

Jetzt ich verstehe was du willst.

Einfaches Bsp:

In der Dll:

Delphi-Quellcode:

function GetDataName(pStr : PChar; iStrLen : Integer) : Integer;
var sDataName : String;
begin
  sDataName := 'Hallo Welt!';
  Result := Min(Length(sDataName), iStrLen - 1);
  StrLCopy(pStr, PChar(sDataName), Result);
end;

In Prog z.B.:

Delphi-Quellcode:

  SetLength(sStr, 1024);
  SetLength(sStr, GetDataName(PChar(sStr), 1024));