Discussion :

[edudesantana]

Bonjour!
J'en utilisant des Dlls C++ en Delphi, avec des types simples des donnes ça fonctionne très bien,
même pour des arrays des types simples des donnes (integer, Extended), mais lorsque je tente utiliser des types arrays (vecteur) des types complexes des donnés cela ne fonctionné pas. voilà un exemple ci-dessous

extern "C"
{

int doProduct(TVarRec Handle[])
{
cout<<Handle[0].VInteger<<endl;
cout<<Handle[1].VInteger<<endl;
cout<<sizeof(Handle); //sizeof(Handle)=4 sizeof(Handle[0]) =72 sizeof(Handle[1]) =72 bug delphi sizeof(Handle[2]) =72 it doesn't exist
return 0;
}
}

Je m'explique, j'en train de recevoir un tableau de TVarRec à partir du Delphi, la Dll doit traitée cet tableau de TVarRec, avec mon code je vois ne que le premier élément du tableau (Handle[0].VInteger), les autres sont tous égales à zero, alors c++ n' identifie pas les autres éléments.

Vous savez comment on solutionne ce problème? à mon avis c'est un problème de la taille des donnés.

[Linkin]

Quel est le code d'export de la fonction Delphi?

[edudesantana]

Cela est le code en Delphi et au-dessous du code delphi je mettrais la structure que j'avais fait en C++ pour qu'il puisse reconnaître TVarRec. Merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
//To select a mode de compilation
{$IFDEF FPC}
{$mode objfpc}{$H+}
{$modeswitch objectivec1}
{$ENDIF}
 
uses
  FastSharemem,
  Windows,
  U_Small_Lib in 'U_Small_Lib.pas',
  System.SysUtils;
 
type
  TArr_VarRec=array of TVarRec;
  TdoProduct = function (AArr_Parameters:array of const):integer;cdecl;
  TLibHandle = System.THandle;
 
var
  ldoProduct:TdoProduct;
  lHandle:TLibHandle;
  lVarRecInput: TArr_VarRec;
  lVarRecOutput:TArr_VarRec;
  x:integer;
  test_int: array  of integer;
const
  NilHandle = TLibHandle(0);
 
begin
  lHandle := LoadLibrary('C:\Users\preparateur\Desktop\Delphi_and_CPP_Tests\Test_fin\dlls\test.dll');
  if lHandle <> NilHandle then
  begin
    @ldoProduct := Get_Dll_Function_Adress(lHandle, 'doProduct');
    if @ldoProduct <> nil then
    begin
        Setlength(lVarRecInput,10);
        lVarRecInput[0].VInteger:= 15;
        lVarRecInput[1].VInteger:= 10;
        ldoProduct(lVarRecInput);
        writeln(#13#10,'There are: ',sizeof(PChar),' parameters');
    end;
  end;
  sleep(1000);
end.

Structure C++

Code C++ :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
struct TVarRec 
{
  int           VInteger;
  unsigned      VType;
  bool          VBoolean;
  char          VChar;
  long double*  VExtended;
  string *      VString;
  void*         VPointer;
  char*         VPChar;
  void*         VObject;
  void*         VClass;
  wchar_t       VWideChar;
  LPWSTR        VPWideChar;
  void*         VAnsiString;
  void*         VCurrency;
  void*         VVariant;
  void*         VInterface;
  void*         VWideString;
  uint64_t*     VInt64;
  void*         VUnicodeString;
};

[Linkin]

Je viens de relire ton premier message, je ne suis pas sûr d'avoir tout compris. Je récapitule, dis-moi là où je me trompe:
- tu as des dll faites en Delphi
- tu les utilises avec Delphi c'est ok
- tu les utilises avec C++ ce n'est pas ok.

A priori, je dirais que le TVarRec n'est pas un type interropérable. Utilises un autre type de structure.

[Paul TOTH]

je plussois Linkin, ne serais-ce que dans la déclaration "array of const", Delphi ajoutera implicitement un paramètre indiquant la longueur du tableau (voir ici), alors que la déclaration C++ TVarRec[] ne donne pas cette information.

d'autre part je ne comprend pas ce que SizeOf(PChar) fait dans cette ligne : "writeln(#13#10,'There are: ',sizeof(PChar),' parameters');"

TVarRec n'a d'intérêt que pour passer des paramètres de types différents, pour passer des Integer un simple array of Integer suffira, et la déclaration se fera comme ceci

Code c++ :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
int doProduct(int terms[], int count)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
function doProduct(terms: PInteger; Count: Integer): Integer;
 
var
  terms: array of Integer;
begin
  SetLength(terms, 2);
  terms[0] := 15;
  terms[1] := 10;
  doProduct(@terms[0], Length(Terms));
end;

[edudesantana]

je plussois Linkin, ne serais-ce que dans la déclaration "array of const", Delphi ajoutera implicitement un paramètre indiquant la longueur du tableau (voir ici), alors que la déclaration C++ TVarRec[] ne donne pas cette information.

d'autre part je ne comprend pas ce que SizeOf(PChar) fait dans cette ligne : "writeln(#13#10,'There are: ',sizeof(PChar),' parameters');"

TVarRec n'a d'intérêt que pour passer des paramètres de types différents, pour passer des Integer un simple array of Integer suffira, et la déclaration se fera comme ceci

Code c++ :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
int doProduct(int terms[], int count)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
function doProduct(terms: PInteger; Count: Integer): Integer;
 
var
  terms: array of Integer;
begin
  SetLength(terms, 2);
  terms[0] := 15;
  terms[1] := 10;
  doProduct(@terms[0], Length(Terms));
end;

Merci pour la réponse, en effet le logiciel de l’entreprise que je travaille fonctionne avec ne que des structures de TVarRec, parce qu'ils ne savent pas quel type de donnée ils vont recevoir et ni la taille, alors je dois recevoir une vecteur de TVarRec et je dois le traite en C++ et après renvoyer. Je n'ai pas le choix, je ne sais pas s'il sera possible finir ce projet. J'avais vu déjà l'article (http://rvelthuis.de/articles/articles-openarr.html) et j'avais testé des autres types de vecteurs (chaines d'int, chaines d'extended) tous fonctionnent, sauf ceux que j'ai besoin (TVarRec array)

"writeln(#13#10,'There are: ',sizeof(PChar),' parameters');" Cette ligne n'ai pas d'importance désole c'est ma faute.

Ils ont dit pour essayer avec SAFEARRAY, je vais essayer et après je vous donne la réponse, si vous avez des conseils s'il vous plaît revenez vers moi.
Merci en avance

[edudesantana]

Je viens de relire ton premier message, je ne suis pas sûr d'avoir tout compris. Je récapitule, dis-moi là où je me trompe:
- tu as des dll faites en Delphi
- tu les utilises avec Delphi c'est ok
- tu les utilises avec C++ ce n'est pas ok.

A priori, je dirais que le TVarRec n'est pas un type interropérable. Utilises un autre type de structure.

Oui c'est la première option on fait des Dlls en C++ et les utilises avec Delphi, soit delphi l'Application.
J'avais essayé aussi l'inverse mais il n'est pas possible faire des Dlls en Delphi et utiliser en C++,
alors nous sommes d'accord.
Les phase de la procédure sont elles:

-On charge la Dll C++
-On récupéré la fonction qu'on veut utiliser
-Delphi donne les paramétrés
-C++ traite exécute la Dll e donne le résultat à Delphi


Voilà les étapes du projet

On peut utiliser tous les types des donnes, même des vecteurs ou matrices des données,
sauf dans le cas où le vecteur est un vecteur de TVarRec et je suis oblige à les utiliser.

[ALWEBER]

Bonjour,

Si tu utilises une version récente de Delphi, tu peux aussi mixer le C++ et Object Pascal dans une même appli

[edudesantana]

Bonjour,

Si tu utilises une version récente de Delphi, tu peux aussi mixer le C++ et Object Pascal dans une même appli

Merci bien,
La DLL est écrite en C++, elle doit travailler comment une boîte noir. J'aimerais bien pouvoir mixer, mais pour normes
techniques je ne peux pas