HidController.OnDeviceChange ist ein Methoden-Zeiger (Methode: Procedure/Function in einer Klasse); nicht kompatibel mit einer Prozedur ausserhalb einer Klasse.... sprich:
erstelle eine Klasse, die zumindest eine Methode HidControllerDeviceChange enthält:
Delphi-Quellcode:
type
TServiceLCD = class(TObject)
public
procedure HidControllerDeviceChange(Sender: TObject);
end;
var
_ServiceLCD : TServiceLCD;
procedure TServiceLCD.HidControllerDeviceChange(Sender: TObject);
begin
......
[..]
procedure SERVICE_MAIN;
var i: integer;
begin
HidController:= TJvHidDeviceController.Create(HidController);
HidController.OnDeviceChange:=_ServiceLCD.HidControllerDeviceChange;
.....
[..]
Begin
_ServiceLCD:=TServiceLCD.Create();
PROG_MAIN;