Discussion :

[XeGregory]

Bonjour,

Comment puis je faire pour affecter ma procedure "MySetText" à l'évènement (MyDataSet.Fields[...].OnSetText) dans ma dll ?

Exemple :

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
library MyDll;
 
procedure MySetText(Sender: TField; const Text: String);
begin
   try
      Sender.Value := Text;
   except
    {...}
   end;
end;
 
procedure MyAddRecord(MyDataSet: TClientDataSet);
var
  IField: Integer;
begin
  for IField := 0 to MyDataSet.IndexDefs.Count - 1 do
  begin
    {...}
    MyDataSet.Fields[IField].OnSetText := MySetText;
    {...}
  end; 
end;
 
exports
  MyAddRecord;
 
end.

Merci

[ShaiLeTroll]

Tout est dans la DLL ?
Tu dois faire une classe pour déclarer ton gestionnaire d'évènement procedure TClasse.MySetText(... car un gestionnaire doit une procedure of object;

Si c'est un EXE, tu dois faire un CallBack, j'ai un exemple avec un Ping qui utilise un Entier pour retrouver un contexte (dans ton cas le Sender ce qui peut être utile)

[XeGregory]

Bonjour ShaiLeTroll

Oui tout dans la dll, c'est le première fois que je suis confronté à ce qu'a de figure.

// Dll

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
library MyDll;
 
procedure MySetText(Sender: TField; const Text: String);
begin
   try
      Sender.Value := Text;
   except
    {...}
   end;
end;
 
procedure MyAddRecord(MyDataSet: TClientDataSet);
var
  IField: Integer;
begin
  for IField := 0 to MyDataSet.IndexDefs.Count - 1 do
  begin
    {...}    
    MyDataSet.Fields[IField].OnSetText := MySetText;
    {...}
    {Création d'un formulaire dynamique}
  end; 
    {...}
  MyForm.ShowModal;
 
  try
    MyDataSet.Post;
  except
     {...}
  end;
end;
 
exports
  MyAddRecord;
 
end.

// Form

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 unit MyUnit;
{...}
{Déclaration de la procedure à importer}
procedure MyAddRecord(MyDataSet: TClientDataSet); external MyDll.dll  name 'MyAddRecord'; 
 
implementation
 
{ Exemple }
procedure TFMyUnit.ExecuteClick(Sender: TObject);
begin
   MyAddRecord(ClientDataSet1);
end;

[ShaiLeTroll]

Si tout est côté DLL c'est tout bête
Même pas besoin de faire une instance, une méthode de classe suffira

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
library MyDll;
 
type
  TEventHandler = class(TObject)
    class procedure MySetText(Sender: TField; const Text: String);
  end;
 
class procedure TEventHandler.MySetText(Sender: TField; const Text: String);
begin
   try
      Sender.Value := Text;
   except
    {...}
   end;
end;
 
procedure MyAddRecord(MyDataSet: TClientDataSet);
var
  IField: Integer;
begin
  for IField := 0 to MyDataSet.IndexDefs.Count - 1 do
  begin
    {...}    
    MyDataSet.Fields[IField].OnSetText := TEventHandler.MySetText; 
    {...}
    {Création d'un formulaire dynamique}
  end; 
    {...}
  MyForm.ShowModal;
 
  try
    MyDataSet.Post;
  except
     {...}
  end;
end;
 
exports
  MyAddRecord;
 
end.

[guillemouze]

procedure of object possible sur une class procedure ?! J'ai jamais testé, ca peut etre pratique si ca fonctionne
Je pense que tu t'es trompé dans ton code :

Code :

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

MyDataSet.Fields[IField].OnSetText := TEventHandler.MySetText;

[ShaiLeTroll]

Tout à fait guillemouze, j'ai corrigé, il fallait bien lui mettre la classe

[XeGregory]

Merci ShaiLeTroll.

[Paul TOTH]

STOP ! ce n'est pas possible de partager des classes objets entre l'exe et la DLL !

or c'est ce que tu fais ici:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
{Déclaration de la procedure à importer}
procedure MyAddRecord(MyDataSet: TClientDataSet); external MyDll.dll  name 'MyAddRecord'; 
 
implementation
 
{ Exemple }
procedure TFMyUnit.ExecuteClick(Sender: TObject);
begin
   MyAddRecord(ClientDataSet1); // passage d'un objet de l'exe vers la DLL
end;

le stricte minimum c'est d'avoir ShareMem pour partager le même gestionnaire de mémoire entre les deux sinon toute allocation viendra planter le tout

mais même avec ShareMem, la DLL et l'EXE possèdent leur propre version de l'objet , ça peut éventuellement fonctionner si l'exe et la dll sont compilés avec le même compilateur mais c'est tellement sensible que je ne m'y risquerait pas.

c'est la raison pour laquelle les Packages (qui sont des DLL) sont totalement dépendants du compilateur.

Pour faire les choses proprement il faut passer par des Interfaces, la DLL doit manipuler une classe IDataSet qui possède des IField et l'exe doit fournir des objets qui implémentent ces interfaces on manipulant des TDataSet et TField

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
unit Data.IDataSet;
 
type
  IField = interface
  ...
  end;
 
  IDataSet = interface
    function GetFieldCount: Integer;
    function GetField(Index: Integer): IField;
  end;

Code :

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

1
2
3
4
5
6
7
8
9
10
 
library mydll;
 
uses
  Data.IDataSet;
 
procedure MyAddRecord(MyDataSet: IDataSet);
begin
  ...
end;

// exe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
type
  TFieldImpl = class(TInterfacedObject, IField)
   ...
  end;
 
  TDataSetImpl = class(TInterfacedObject, IDataSet)
    FDataSet: TTClientDataSet;
    function GetFieldCount: Integer;
    function GetField(Index: Integer): IField;
  end;

c'est du boulot, mais ensuite tu peux manipuler tes interfaces en toute liberté y compris avec un autre langage de programmation

[ShaiLeTroll]

Compilé en BPL d'exécution, ShareMem, un EXE peut utiliser des classes d'une DLL, je l'ai fait avec une TSQLConnection partagé entre un EXE et peut-être 20 DLLs
Idem, une fenêtre de l'EXE affiche une fenêtre de la DLL via imbrication de la propriété Parent, cette dernière pouvant contenir une fenêtre aussi imbriqué par Parent d'une seconde DLL comme des poupées russes.

Même si j'ai pratiqué énormément les interfaces et je confirme que c'est un gros boulot

[Paul TOTH]

Compilé en BPL d'exécution, ShareMem, un EXE peut utiliser des classes d'une DLL, je l'ai fait avec une TSQLConnection partagé entre un EXE et peut-être 20 DLLs
Idem, une fenêtre de l'EXE affiche une fenêtre de la DLL via imbrication de la propriété Parent, cette dernière pouvant contenir une fenêtre aussi imbriqué par Parent d'une seconde DLL comme des poupées russes.

Même si j'ai pratiqué énormément les interfaces et je confirme que c'est un gros boulot

Attention, il y a une marge entre "ça fonctionne" et "c'est la bonne approche"

je me souviens d'un projet Delphi 5 qui partageait une TStringList avec une DLL Delphi 2005...et "ça fonctionnait" effectivement, mais pour la simple et bonne raison que la DLL créait et chargeait la SL et l'exe se contentait de la lire sans jamais rien modifier..comme TStringList hérite de TStrings avec des méthodes virtuelles partout (qui n'avaient pas évolué entre les deux versions de Delphi); techniquement, on a quasiment une Interface en fait. Si la DLL avait été réalisée sous Delphi 2009 en Unicode ça aurait été totalement incompatible.

si on veux faire des modules, il faut utiliser des BPL, c'est d'autant plus intéressant que le code est réellement partagé et que la taille des binaires diminues drastiquement, et de plus Delphi se charge de vérifier que les BPL et l'EXE sont bien compatibles. Sinon il faut faire le travail d'abstraction via des Interface ou même une API de type C.