[DLL] Problem mit langem String als PChar

[Zwoetzen]

Hallo Delphianer,

ich habe mich in den letzten Tagen mit DLLs befasst, einfach weil ich mit denen noch keinerlei Erfahrung hatte und deren Funktionsweise kennen lernen wollte.

Allerdings bin ich nun auf ein Problem gestoßen, wo ich nicht weiter weiß: Ich habe eine Funktion, die einen PChar entgegennimmt, diesen leicht verändert und zurück gibt, nach diesem Vorbild, erstellt. Doch wenn ich aus der DLL einen String (PChar) verarbeiten will, der etwas länger ist (die Grenze scheint irgendwo bei 4k Zeichen zu liegen), bekomme ich in meiner Anwendung nurnoch eine StackOverflow-Meldung, wenn ich den String weiter verwenden will.

Mein aktueller Code:

DLL:

Delphi-Quellcode:

function func1(s: PChar; Buffer: PChar; lenBuffer: Integer): Integer; stdcall;
var
  foo: String;
begin
  // Strings aneinanderhängen
  foo := 'foo'+ s;
  // nur String in Buffer kopieren, wenn Buffer nicht nil ist
  if Assigned(Buffer) then
    StrLCopy(Buffer, PChar(foo), lenBuffer);
  // auf alle Fälle immer Länge des Strings zurückgeben
  result := length(foo);
end;

Hauptprogramm:

Delphi-Quellcode:

var
  Len: Integer;
  Buffer: PChar;
  S: String;
begin
  S := GetSehrLangerString();
  Len := func1(PChar(S), nil, 0);
  try
    GetMem(Buffer, Len + 1);
    Len := func1(PChar(S), Buffer, Len + 1);
    ShowMessage(Buffer); // <- Hier kommt es zum "Stack Overflow"
  finally
    FreeMem(Buffer);
  end;
end;

Kann mir jemand auf die Sprünge helfen? ^^


MfG Zwoetzen