Discussion :

[dadouuuu]

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 :

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
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.

[Paul TOTH]

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

Code :

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

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 :

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

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

[ShaiLeTroll]

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 :

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
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.

[Paul TOTH]

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

[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 :

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

1
2
type
  TCallbackFunction = function(sig: Integer) stdcall;

et tu déclares ta routine CallMe sans TForm1 :

Code :

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

1
2
3
function CallMe(sig: Integer); stdcall;
begin
end;

Soit tu déclares le type TCallbackFunction comme :

Code :

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

1
2
type
  TCallbackFunction = function(sig: Integer) of object stdcall;

et tu déclares ta routine CallMe avec TForm1 :

Code :

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

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.

[Dr.Who]

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

Code :

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

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