Discussion :

[cpofm]

Salut à tous,

J'ai un petit problème concernant le récuperation d'un evenement dans une Dll.

J'ai créé une Dll utilisant l'unité Comport afin de récuperer un code barre en utilisant une douchette via le port série.

Tout fonctionne bien que ce soit la Dll ou l'application hote.

Le seul probleme, je ne vois pas comment je peux intercepter l'evenement onpacket du Tcomdatapacket et transmettre la chaine récupérée à l'application.

Merci d'avance

[Reisubar]

Je pense qu'il faut passer l'adresse de la fonction à appeller à la DLL, qui fera un "callback" quand nécessaire :

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
type
  TMyCallback = procedure (ADataRead: PAnsiChar); stdcall;
 
//Côté application
 
...
SetReadDataCallback(@ReadDataCallback);
 
procedure ReadDataCallback(ADataRead: PAnsiChar); stdcall;
begin
  //faire quelque chose...
end;
 
//Côté DLL
 
GCallback: TMyCallback = nil;
 
procedure SetReadDataCallback(ACallback: TMyCallback);
begin
  GCallback := ACallback;
end;
 
procedure OnDataRead(...)
begin
  //ici on est dans le gestionnaire d'évènement...
  //si assigné, on appelle le callback
  if Assigned(GCallback) then
    GCallback(PAnsiChar(TheData));
end;