Discussion :

[J_apprenti]

Salut tout le monde!
j'ai un programme qui utilise une librairie écrite en java, j'arrive a charger la librairie et appeler des procédures, mon problème et de passer des objets ou des adresses de procédure, pour un callback par exemple;

exemple:
j'ai ce code dans la libraire en java:

Code :

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

1
2
3
4
5
public interface callbackproc
	{
		int callbackproc(int a1, int a2);
	} 
public static native void Java_callback(callbackproc proc);

comment je peux passer a la procédure Java_callback l'adresse de ma fonction callbackproc que je crée dans mon programme et qui pourra prendre cette forme

Code :

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

function Java_callback_proc(a1, a2: integer): integer;

je serai reconnaisson si quelqu’un peut m'aider.
merçi d'avance

[ShaiLeTroll]

Tu notes que ce n'est pas une CallBack direct mais celle d'une interface !

En espérant que les Interfaces JAVA et les Interfaces Delphi (plutôt conçu pour le COM) sont compatibles !

Attention, le nom de l'interface et de la méthode dont ton exemple sont les mêmes, je ne sais si c'est autorisé ça !

Code :

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

1
2
3
4
5
type
  TCallBackImpl = class(TInterfacedObject, callbackproc) // implementation d'interface et donc de la méthode callbackproc
  public
    function callbackproc(a1, a2: integer): integer; stdcall; // je présume de cette convention d'appel !
  end;

Code :

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

1
2
3
4
function TCallBackImpl.callbackproc(a1, a2: integer): integer;
begin
  ...
end;

Code :

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

1
2
3
4
5
6
var
  Intf: callbackproc; 
begin
  Intf:= TCallBackImpl.Create(); // libération implicite par TInterfacedObject
  Java_callback(Intf);
end;