Typen zur Verwendung in Librarys

[RSE]

Ich habe bisher wenig mit librarys zu tun gehabt, aber ich habe mitbekommen, dass man aus Gründen der C-Kompatibilität nicht jedes Konstrukt einfach als Parameter verwenden sollte. Strings sollte man als PChar übergeben. Wie ist denn die Übliche Vorgehensweise, wenn man einen Array of String zu übergeben hat? String -> PChar, Open Array -> ???

[mschnell]

Da "log string" eine Delphi/FPC Besonderheit sind, kann man sie überhaupt nicht mit C programmen verwenden (außer man will das low-level-Verhalten nachbauen).


Am besten wohl eine TStringlist nehmen und mit SaveToStream in einen Byte-Stream exportieren und dann als array of char nach C übergeben. Oder von C aus eine Funktion aufrufen (z.B. als callback), die einzelne Teilstrings als array of char erzeugt.

-Michael

[RSE]

Da "log string" eine Delphi/FPC Besonderheit sind...

Was sind "log string"?

Am besten wohl eine TStringlist nehmen und mit SaveToStream in einen Byte-Stream exportieren und dann als array of char nach C übergeben. Oder von C aus eine Funktion aufrufen (z.B. als callback), die einzelne Teilstrings als array of char erzeugt.

Boah, ist das aufwendig. Gibt es gar keine Open Arrays (kann ich mir kaum vorstellen), oder kann man sowas wie Array of PChar als Parameter benutzen?

[RSE]

Wie stellt man in Librarys sicher, dass die andere Aufrufkonvention (z.B. stdcall) auch bei Events Anwendung findet? Wird das lediglich im Typ des Events so angegeben wie im Beispiel unten?

Code: Alles auswählen

TLogEvt = procedure(Args: array of String {muss noch ersetzt werden}) of Object; stdcall;
 
  IMPlayer = interface
    procedure Log(Args: array of String {muss noch ersetzt werden}); stdcall;
    function GetOnLog: TLogEvt; stdcall;
    procedure SetOnLog(const AValue: TLogEvt); stdcall;
    property OnLog: TLogEvt read GetOnLog write SetOnLog;
  end;

[marcov]

Ich habe bisher wenig mit librarys zu tun gehabt, aber ich habe mitbekommen, dass man aus Gründen der C-Kompatibilität nicht jedes Konstrukt einfach als Parameter verwenden sollte. Strings sollte man als PChar übergeben. Wie ist denn die Übliche Vorgehensweise, wenn man einen Array of String zu übergeben hat? String -> PChar, Open Array -> ???

Array of pchar mit dem letzten element NIL

[RSE]

Vielen Dank

[theo]

Array of pchar mit dem letzten element NIL

Es gibt in Freepascal Typen PPChar resp. TPCharArray die für sowas gedacht sind.
Ich würde evtl. auch einfach TStringList .Text als PChar übergeben.
Dieser ist dann LineEnding delimitiert (wie ein Textfile) und lässt sich in C auch wieder in ein Array aufsplitten.

[RSE]

PPChar klingt gut. Ich habe sogar in den Sourcen gefunden, wie man damit umgeht:

Code: Alles auswählen

Function PCharListToStrings(P : PPChar; List : TStrings) : Integer;
begin
  List.Clear;
  While P^<>Nil do
    begin
    List.Add(StrPas(P^));
    P:=PPChar(PChar(P)+SizeOf(PChar));
    end;
  Result:=List.Count;
end;
 
Function StringsToPCharList(List : TStrings) : PPChar;
Var
  I : Integer;
  S : String;
begin
  I:=(List.Count)+1;
  GetMem(Result,I*sizeOf(PChar));
  PPCharArray(Result)^[List.Count]:=Nil;
  For I:=0 to List.Count-1 do
    begin
    S:=List[i];
    PPCharArray(Result)^[i]:=StrNew(PChar(S));
    end;
end;

[mse]

Gibt es gar keine Open Arrays (kann ich mir kaum vorstellen)

Die C-Ellipse kann mit array of const modelliert werden AFAIK:

Code: Alles auswählen

//void test(int par1,...);
procedure test(par1: integer; dotdotdot: array of const); cdecl; external;

, oder kann man sowas wie Array of PChar als Parameter benutzen?

Ja, häufig wird der Schluss des Array mittels NIL-Pointer markiert.

[marcov]

Array of pchar mit dem letzten element NIL

Es gibt in Freepascal Typen PPChar resp. TPCharArray die für sowas gedacht sind.
Ich würde evtl. auch einfach TStringList .Text als PChar übergeben.
Dieser ist dann LineEnding delimitiert (wie ein Textfile) und lässt sich in C auch wieder in ein Array aufsplitten.

Das introduciert Limitationen (keine Lineendings in die Strings) die nicht nötig sind. Würde ich nicht machen

[RSE]

Ich habs schon mit PPChar umgesetzt, was ja auch laut mse (siehe oben) ein verbreitetes Vorgehen ist. Es klappt sogar auf Anhieb fehlerfrei.

[theo]

Das introduciert Limitationen (keine Lineendings in die Strings) die nicht nötig sind. Würde ich nicht machen

Ich kann dir nicht ganz folgen. Wenn ich den Inhalt einer TStringList zurückgeben will, sehe ich da eigentlich kein Probleme.
Kannst du das präzisieren?

[Hitman]

Das introduciert Limitationen (keine Lineendings in die Strings) die nicht nötig sind. Würde ich nicht machen

Ich kann dir nicht ganz folgen. Wenn ich den Inhalt einer TStringList zurückgeben will, sehe ich da eigentlich kein Probleme.
Kannst du das präzisieren?

array of string = ['blabla' + #13#10 + 'blubb', 'noch ein zweiter string']

in der stringlist sind jetzt also drei Zeilen
beim Zurückkonvertieren hast du jetzt plötzlich ein array mit drei strings

[theo]

array of string = ['blabla' + #13#10 + 'blubb', 'noch ein zweiter string']
in der stringlist sind jetzt also drei Zeilen
beim Zurückkonvertieren hast du jetzt plötzlich ein array mit drei strings

Ich sagte "den Inhalt einer TStringList zurückgeben" also TStringList.Text , was du da machst ist was anderes.

[marcov]

Das introduciert Limitationen (keine Lineendings in die Strings) die nicht nötig sind. Würde ich nicht machen

Ich kann dir nicht ganz folgen. Wenn ich den Inhalt einer TStringList zurückgeben will, sehe ich da eigentlich kein Probleme.
Kannst du das präzisieren?

Natürlich. s2.text:=s1.text macht s1 nicht gleich an s2, wie das understehendes Programm schaut.

Code: Alles auswählen

uses classes;
 
procedure writestrl(s:tstringlist;title:string);
 
var i : Integer;
begin
  writeln(title,':');
  for i:=0 to s.count-1 do
   writeln(i:5,' ',s[i]);
end;
 
 
var s1,s2 : TStringlist;
 
begin
 s1:=tstringlist.create;
 s2:=tstringlist.create;
 
 s1.add('aaaa');
 s1.add('a'#13#10'a');
 s1.add('b'#13#10'b');
 writeln(s1.text);
 s2.text:=s1.text;
 writestrl(s1,'s1');
 writeln;
 writestrl(s2,'s2');
end.