Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Probleme mit Array of PChar


CB - Mi 19.03.03 08:38
Titel: Probleme mit Array of PChar
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:


Quelltext 
1:
2:
3:
4:
5:
6:
 
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:


Quelltext 
1:
2:
 
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


Quelltext 
1:
2:
3:
4:
 
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:

Quelltext 
1:
2:
 
TDynArray = array of PChar;
TParameters = array [0..1] of TDynArray; // 0 -> parameter; 1 -> beschreibungen


DLL:

Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
 
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:

Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
 
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. :)

Moderiert von user profile iconKlabautermann: Code-Tags hizugefügt.


UGrohne - Mi 19.03.03 08:49
Also ich bin mir nicht sicher, ob das Dein Problem lösen würde, aber ich würde schonmal die Deklaration vereinfachen.

Ich würde einen Record vorziehen. Also etwa so


Quelltext 
1:
2:
3:
4:
5:
6:
 
type TDynArray = record
       Parameter:PChar;
       Beschreibung:PChar;
       end;

var DynArray=array of PChar;


Du hast einen vereinfachten Zugriff und musst nicht 2 Arrays vergrößern.

Vielleicht löst das auch Dein Problem.


CB - Mi 19.03.03 10:31
Das macht keinen Unterschied vom Problem her.
Das mit den zwei Arrays ist extra so, da man sonst an die SetParameter Funktion auch die Beschreibungen der Parameter übergibt, was nicht nötig ist, da die in der DLL definiert sind.


CB - Do 20.03.03 14:51
Also...hab die SetParameters Funktion jetzt so angeändert:


Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
 
TDynArray = array of PChar;
TParameters = array [0..1] of TDynArray;

function SetNeededParameters(pParameters: TDynArray): Boolean; cdecl; Begin
  SetLength(Parameters[0], 1);
  GetMem(Parameters[0][0], StrLen(pParameters[0]) + 1);
  StrCopy(Parameters[0][0], pParameters[0]);
  result := True;
end;


Das funktioniert einwandfrei.

Allerdings gibts Probleme beim Aufrufen der Funktion. Hab das so probiert:


Quelltext 
1:
2:
3:
4:
5:
6:
 
TDynArray = array of PChar;
Parameters: TDynArray;

SetLength(Parameters, 1);
GetMem(Parameters[0], Length(EditSetParams.Text) + 1); StrCopy(Parameters[0], PChar(EditSetParams.Text));
SetParameters(Parameters);


Wenn man das so macht, dann wird allerdings nicht der komplette Inhalt von EditSetParams.Text in Parameters[0] gespeichert, sondern nur der erste Buchstabe davon.
Das wundert mich sehr, da ich folgendes Beispiel für die StrCopy Funktion in der Online Hilfe von Delphi gefunden habe:


Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
 
procedure TFormMain.Button1Click(Sender: TObject);
var
  Buffer: PChar;
begin
  GetMem(Buffer,Length(Label1.Caption) + Length(Edit1.Text) + 1);
  StrCopy(Buffer, PChar(Label1.Caption));
  StrCat(Buffer, PChar(Edit1.Text));
  Label1.Caption := Buffer;
  Edit1.Clear;
  FreeMem(Buffer);
end;


Laut Beschreibung der Online Hilfe soll nach dem Klicken auf Button1 die Inhalte von Label1 und Edit1 kombiniert und dann in Label1 ausgeben werden. Hab das Beispiel per Copy&Paste ausprobiert und habe das gleiche Problem, wie mit dem Aufruf meiner SetParameters Funktion: Es wird nur jeweils der erste Buchstabe kopiert.

Weiß jemand, ob das ein Bug in Delphi oder ein Fehler in der Online Hilfe ist?
Hat jemand eine Lösung?


CB - Fr 21.03.03 10:15
Hi,

habs inzwischen selbst gelöst. Falls es jemanden interessiert:

Allg. Typdeklaration

Quelltext 
1:
2:
 
TDynArray = array of PChar;
TParameters = array [0..1] of TDynArray;


DLL:

Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
 
Parameters: TParameters;

function SetParameters(pParameters: TDynArray): Boolean; cdecl;
var
  a: Integer;
  
begin
  for a := 0 to Length(pParameters) - 1 do begin
    Parameters[0][a] := StrAlloc(StrLen(pParameters[a]) + 1);
    StrCopy(Parameters[0][a], pParameters[a]);
  end;

  result := True;
end;


Hauptprogramm

Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
 
Parameters: TDynArray;

SetLength(Parameters, 1);
Parameters[0] := StrAlloc(Length(EditSetParams.Text) + 1);
StrPCopy(Parameters[0], EditSetParams.Text + #0);

if not SetNeededParameters(Parameters) then
  ShowMessage('could not set parameters');

for a := 0 to Length(Parameters) - 1 do begin
  StrDispose(Parameters[a]);
end;


Delete - Fr 21.03.03 12:48
*räusper* :lol:


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!