Hallo!
Ich habe ein paar merkwürdige Probleme mit dynamischen Arrays vom Typ PChar.
Ich überge an eine Funktion in einer DLL ein dynamisches Array vom Typ PChar mit Parametern:
TDynArray = array of PChar;
function SetParameters(pParameters: TDynArray): Boolean; cdecl; begin
Parameters[0] := pParameters;
result := True;
end;
Parameters ist ein globales Array in der DLL, was wie folgt deklariert ist:
TParameters = array [0..1] of TDynArray;
Parameters: TParameters;
In Feld 0 werden die Parameter gespeichert; in Feld 1 die entsprechenden Beschreibungen zu den Parametern.
Wenn ich allerdings nun die Funktion SetParameters mit einem Array von Parametern aufrufe und mir danach die neuen Parameter per
function GetParameters: TParameters; cdecl;
begin
result := Parameters;
end;
zurückgeben lasse, dann scheint immer nur der erste Buchstabe eines Parameters gespeichert zu werden, da result[0][0] = 'b' ist, obwohl es per SetParameters eigentlich auf 'bla' gesetzt worden ist.
Zusammenfassung:
-----------------------
Deklaration:
TDynArray = array of PChar;
TParameters = array [0..1] of TDynArray; // 0 -> parameter; 1 -> beschreibungen
DLL:
Parameters: TParameters;
function SetParameters(pParameters: TDynArray): Boolean; cdecl; begin
Parameters[0] := pParameters;
result := True;
end;
function GetParameters: TParameters; cdecl;
begin
result := Parameters;
end;
Main program:
pParameters: TDynArray;
Parameters: TParameters;
// set parameter - in this example only one
EditParams.Text := 'bla';
SetLength(pParameters, 1);
pParameters[0] := PChar(EditParams.Text);
SetParameters(pParameters);
// get parameter
Parameters := GetParameters;
EditParams.Text := Parameters[0][0];
// ->> EditParams.Text = 'b';
------------------------------
Wenn ich im begin/end Teil der DLL Parameters[0][0] := 'test' setze, dann bekomme ich auch 'test' von GetParameters zurückgegeben. Es liegt also wahrscheinlich an der SetParameters Funktion.
Ich hoffe jemand versteht mein Problem und kennt evtl. eine Lösung. Bin über jede Hilfe dankbar.
Christian
Ich habe ein paar merkwürdige Probleme mit dynamischen Arrays vom Typ PChar.
Ich überge an eine Funktion in einer DLL ein dynamisches Array vom Typ PChar mit Parametern:
TDynArray = array of PChar;
function SetParameters(pParameters: TDynArray): Boolean; cdecl; begin
Parameters[0] := pParameters;
result := True;
end;
Parameters ist ein globales Array in der DLL, was wie folgt deklariert ist:
TParameters = array [0..1] of TDynArray;
Parameters: TParameters;
In Feld 0 werden die Parameter gespeichert; in Feld 1 die entsprechenden Beschreibungen zu den Parametern.
Wenn ich allerdings nun die Funktion SetParameters mit einem Array von Parametern aufrufe und mir danach die neuen Parameter per
function GetParameters: TParameters; cdecl;
begin
result := Parameters;
end;
zurückgeben lasse, dann scheint immer nur der erste Buchstabe eines Parameters gespeichert zu werden, da result[0][0] = 'b' ist, obwohl es per SetParameters eigentlich auf 'bla' gesetzt worden ist.
Zusammenfassung:
-----------------------
Deklaration:
TDynArray = array of PChar;
TParameters = array [0..1] of TDynArray; // 0 -> parameter; 1 -> beschreibungen
DLL:
Parameters: TParameters;
function SetParameters(pParameters: TDynArray): Boolean; cdecl; begin
Parameters[0] := pParameters;
result := True;
end;
function GetParameters: TParameters; cdecl;
begin
result := Parameters;
end;
Main program:
pParameters: TDynArray;
Parameters: TParameters;
// set parameter - in this example only one
EditParams.Text := 'bla';
SetLength(pParameters, 1);
pParameters[0] := PChar(EditParams.Text);
SetParameters(pParameters);
// get parameter
Parameters := GetParameters;
EditParams.Text := Parameters[0][0];
// ->> EditParams.Text = 'b';
------------------------------
Wenn ich im begin/end Teil der DLL Parameters[0][0] := 'test' setze, dann bekomme ich auch 'test' von GetParameters zurückgegeben. Es liegt also wahrscheinlich an der SetParameters Funktion.
Ich hoffe jemand versteht mein Problem und kennt evtl. eine Lösung. Bin über jede Hilfe dankbar.
Christian
Comment