Callback function avec une DLL

Version imprimable

Bonjour,

J'essaye de faire un callback avec une dll, j'ai trouver un exemple sur google et je n'arrive pas a compiler la partie client :(

Quelqu'un pourrait m'eclairer?

http://www.delphi3000.com/articles/article_2362.asp?SK=

Type incompatibles: 'procédure normale et pointeur de méthode'

Code:

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
 
type
  TCallBackFunction = function(sig: integer):boolean;
 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    function callME(sig: integer):boolean;
 
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
procedure TestCallBack(myCBFunction: TCallBackFunction); register;
                                         external('watchcom.dll');
{$R *.dfm}
 
function TForm1.callMe(sig: integer): boolean;
   begin
     showmessage('I was called with'+ inttostr(sig));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  testCallBack(callMe);
end;
 
end.

tu fais une confusion entre une procédure et une méthode objet :)
Code:

1 2 3 4 5 function { TForm1. }callMe(sig: integer): boolean; begin showmessage('I was called with'+ inttostr(sig)); end;
mais tu peux faire ceci
Code:

1 2 3 4 type TCallBackFunction = function:boolean; of object; // le paramètre 'sig' est utilisé comme pointer "self"
ensuite il manque probablement un stdcall :)

c'est un peu violent d'utiliser Self comme ça quand même !
pour rester plus "prudent", dadouuuu, utilise la première méthode, mets callMe en dehors de l'objet

pour le stdcall, tout dépend si tu l'as mis dans ta DLL, c'est conseillé de le mettre partout !

Code:

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
type
  TCallBackFunction = function(sig: integer):boolean; stdcall;
 
procedure TestCallBack(myCBFunction: TCallBackFunction); stdcall;   
external 'watchcom.dll' name 'TestCallBack'; // attention à la déclaration, utilise plutôt LoadLibrary et GetProcAddress !
 
function callMe(sig: integer): boolean; stdcall; 
begin
     showmessage('I was called with'+ inttostr(sig));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  testCallBack(callMe);
end;
 
end.

15/04/2010, 10h58
Paul TOTH

Citation:

Envoyé par ShaiLeTroll

c'est un peu violent d'utiliser Self comme ça quand même !

d'autant que j'ai dit une bêtise :)

ça ne serait possible QUE si le paramètre sig était un paramètre de TestCallBack, or là c'est une valeur renvoyée par watchcom.dll qui ne sera donc pas un pointeur objet Delphi :)
18/04/2010, 17h36
sjrd
Donc, pour résumer, il ne faut pas confondre un pointeur sur une routine (sans of object) et un pointeur sur une méthode (avec of object), comme l'explique en détails ce tutoriel.

Ainsi, soit tu déclares le type TCallbackFunction comme :
Code:

1 2 type TCallbackFunction = function(sig: Integer) stdcall;
et tu déclares ta routine CallMe sans TForm1 :
Code:

1 2 3 function CallMe(sig: Integer); stdcall; begin end;
Soit tu déclares le type TCallbackFunction comme :
Code:

1 2 type TCallbackFunction = function(sig: Integer) of object stdcall;
et tu déclares ta routine CallMe avec TForm1 :
Code:

1 2 3 function TForm1.CallMe(sig: Integer); stdcall; begin end;
Si, pour une raison ou une autre, tu veux déclarer TCallbackFunction sans le of object, mais que tu veux déclarer CallMe comme méthode de TForm1, tu peux utiliser la routine MakeProcOfStdCallMethod telle que développée dans ce tutoriel.

et si tu as delphi 2009 ou mieux tu peux faire :
Code:

1 2 type TCallBackFunction = reference to function(Sig: integer): boolean; stdcall;