Noch einmal deutlich obwohl weiter oben bereits beschrieben:
Du reservierst nirgends Speicher, deine Deklaration sagt aber, das der zurückgegebene Speicher freigegeben werden soll.
Der zurückgegebene Zeiger weist auf einen Speicherbereich, den der Delphispeichermanager verwaltet (nähmlich einen String).
Beim Verlassen der Funktion wird dem Speichermanager automatisch mitgeteilt, alle lokalen Stringvariablen werden nicht mehr benötigt.
Der Zeiger Result verweist damit auf einen String, der eigentlich nicht mehr existiert.
Da der Speichermanager freigegebenen Speicher nicht sofort an Windows zurückgibt oder überschreibt, funktioniert das ganze unter glücklichen Umständen manchmal doch.
Zumindest gehört dieser Speicherbereich dem Delphi-Speichermanager und darf auf keinen Fall freigegeben werden!
Bin mir nicht sicher ob Result = nil auch zulässig ist, aber so sollte es funktionieren:
Delphi-Quellcode:
function IB_ExtractBetween(Value, A, B: PAnsiChar): PAnsiChar; cdecl; export;
var
aPos, bPos: PAnsiChar;
n: DWord;
begin
GetMem(Result, 256);
n := 0;
aPos := StrPos(Value, A);
if aPos <> nil then
begin
Inc(aPos, StrLen(A));
bPos := StrPos(aPos, B);
if bPos <> nil then
begin
n := bPos - aPos;
StrMove(Result, aPos, n);
end;
end;
Result[n] := #0;
end;
oder so:
Delphi-Quellcode:
function IB_ExtractBetween(Value, A, B: PAnsiChar): PAnsiChar; cdecl; export;
var
aPos, bPos: PAnsiChar;
n: DWord;
begin
Result := Value;
if Result = nil then
Exit;
n := 0;
aPos := StrPos(Value, A);
if aPos <> nil then
begin
Inc(aPos, StrLen(A));
bPos := StrPos(aPos, B);
if bPos <> nil then
begin
n := bPos - aPos;
StrMove(Result, aPos, n);
end;
end;
Result[n] := #0;
end;
// DECLARE EXTERNAL FUNCTION EXTRACTBETWEEN
// CSTRING(256) CHARACTER SET NONE,
// CSTRING(256) CHARACTER SET NONE,
// CSTRING(256) CHARACTER SET NONE
// RETURNS PARAMETER 1 CHARACTER SET NONE
// ENTRY_POINT 'IB_ExtractBetween' MODULE_NAME 'udf_dwfunc';