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