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