C++ DLL aufrauf nach Delphi übersetzten

[ueding]

Hallo

ich muss ein C++ DLL in Delpi einbinden, habe aber leider ein paar Probleme damit
hier der c++ DLL Aufruf
_DECL int __stdcall ListAllNames(char* NamenListe, int nBufferSize); wie muss die declaration aussehen und
wie gestallte ich den Aufruf der DLL in Delphi.

besten Dank


Gregor

[mkinzler]

function ListAllNames(NamenListe: Pchar; nBufferSize: Integer): Integer; stdcall; external 'DLLName' name 'ListAllNames'

[ueding]

Danke erstmal

stellt sich die zweite Frage wie rufe ich die Function auf
habe mir das so vorgestellt, geht aber leider nicht

Delphi-Quellcode:

procedure EINLESEN.Button5Click(Sender: TObject);
var
p  : pchar;
i  : integer;


s  : String;

begin
i := 0;
p := @s;
ListAllNames (p,i)   ;

end;

wo mache ich den Fehler

danke

[ste_ett]

Code:

procedure EINLESEN.Button5Click(Sender: TObject);
var
i  : integer;
s  : String;
begin
  i := 0;
  ListAllNames(PChar(s),i);
end;

[ueding]

funktioniert leider nicht,
wenn ich das so mache dann bekomme ich die Fehlermeldumg
[Fehler] EINLESEN.pas(107): E2197 Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden die DLL soll mir eine liste zurück geben, und in nBufferzise soll die anzahl der zurück gegebenen zeichen stehen.

Gregor

[_rEdoX]

Delphi-Quellcode:

var
i  : integer;
pc  : PChar;
begin
  i := 12345;
  ListAllNames(pc,i);
end;

so sollte es eigentlich rennen.

[mkinzler]

Versuch mal

Delphi-Quellcode:

ListAllNames (p,i);
s := p;

[SirThornberry]

Zitat von ueding:

funktioniert leider nicht,
wenn ich das so mache dann bekomme ich die Fehlermeldumg
[Fehler] EINLESEN.pas(107): E2197 Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden die DLL soll mir eine liste zurück geben, und in nBufferzise soll die anzahl der zurück gegebenen zeichen stehen.

Gregor

in nBuffersize wirst du niemals die anzahl der zurück gegebenen Zeischen finden da nBuffersize nicht als Var-Parameter übergeben wird und somit auch nicht von der DLL geändert werden kann.
So wie die Funktion aussieht übergist du als ersten Parameter den Buffer (der Speicher sollte schon reserviert sein) und nBufferSize gibt an wie groß der Buffer ist (wieviel Speicher du reserviert hast). Der Rückgabewert der Funktion gibt an wieviel Speicher gebraucht wird.

[ueding]

Hallo
habe noch ein wenig geforscht
die DLL gibt bei NamenListe eine Liste von Null-terminierten Strings.
Buffersize gibt wie viel Speicher ich bereit gestellt habe.
Rückgabebewert der Function ist die Anzahl der tatsächlich benötigten Bytes.

Habe nachstehenden Code ausprobiert geht aber auch nicht.

Delphi-Quellcode:

procedure EINLESEN.Button5Click(Sender: TObject);
var
NameIntern : array [0..15] of Char;
i  : integer;
P  : PCHAR;
s  : String;
anzahl : integer;



begin
p := nil;

i := 16;
p :=@nameintern;


anzahl := ListAllNames   ( p,i)   ;

end;

wenn noch mal jemend helfen könnte ?

Danke

Gregor

[Der_Unwissende]

Zitat von ueding:

Hallo
die DLL gibt bei NamenListe eine Liste von Null-terminierten Strings.
Buffersize gibt wie viel Speicher ich bereit gestellt habe.
Rückgabebewert der Function ist die Anzahl der tatsächlich benötigten Bytes.

Dann nutz dass doch einfach schon mal aus:

Delphi-Quellcode:

procedure EINLESEN.Button5Click(Sender: TObject); 
var 
nameList : Array of Char; 
size  : integer; 
begin 
  // benötigte Größe ermitteln
  size := ListAllNames(nil, 0);

  // array anlegen
  setLength(nameList, size); 
  listAllNames(@nameList[0], size);
  
  ...
end;

Gruß Der Unwissende