Estou compilando um projeto para Win32 utilizando a biblioteca DirectInput do DirectX para gerenciar Joysticks.
Tentei com sucesso identificar se algum Joystick está conectado através da enumeração:
uses
Classes, Winapi.DirectInput, FMX.Platform.Win,
SysUtils, WinAPI.Windows, FMX.Dialogs,
StartUpCopy, FMX.Forms,
Generics.Collections;
var
DI : IDirectInput;
KeyBoard : IDirectInputDevice;
JoySticks : TList<IDirectInputDevice>;
I : Integer;
begin
JoySticks := TList<IDirectInputDevice>.Create();
DirectInput8Create(HInstance, DIRECTINPUT_VERSION, IID_IDirectInput8W, DI, nil);
DI.EnumDevices(
DI8DEVCLASS_GAMECTRL,
@function(var lpddi: TDIDeviceInstanceW; pvRef: Pointer) : BOOL
var
JS : IDirectInputDevice;
begin
if not FAILED(DI.CreateDevice(lpddi.guidInstance, JS, nil)) then
begin
JoySticks.Add(JS);
Result := DIENUM_STOP;
end
else
Result := DIENUM_CONTINUE;
end, nil, DIEDFL_ATTACHEDONLY);
if (JoySticks.Count < 1) then
begin
ShowMessage('Joystick não encontrado.');
Halt;
end;
// ...
Porém para de fato identificar os objeto dos Joysticks tenho um erro bem esquisito no seguinte trecho:
for I := 0 to JoySticks.Count do
begin
JoySticks[I].SetDataFormat(c_dfDIJoystick2);
JoySticks[I].SetCooperativeLevel(ApplicationHWND, DISCL_FOREGROUND or DISCL_NONEXCLUSIVE);
JoySticks[I].EnumObjects(
@function(var lpddoi: TDIDeviceObjectInstanceW; pvRef : Pointer) : BOOL
var
PropRange : DIPROPRANGE;
begin
PropRange.diph.dwSize := SizeOf(DIPROPRANGE);
PropRange.diph.dwHeaderSize := SizeOf(DIPROPHEADER);
PropRange.diph.dwHow := DIPH_BYID;
PropRange.diph.dwObj := lpddoi.dwType;
PropRange.lMin := -1000;
PropRange.lMax := 1000;
Result := DIENUM_CONTINUE;
if FAILED(JoySticks[I].SetProperty(DIPROP_RANGE, PropRange.diph)) then
Result := DIENUM_STOP;
{ De acordo com o Debugger, o erro (Access Violation)
acontece após o fim das instruções no Callback, o que
é estranho uma vez que o código do callback em sí não
causa erro algum. }
end, nil, DIDFT_ALL);
if(JoySticks[I].Acquire <> DI_OK) then
ShowMessage('Acq Faild');
end;
end;
Encontrei pouca documentação em Delphi sobre o assunto, na verdade o código em sí é uma "tradução" de um exemplo em C# que encontrei.
O que falta neste processo? O que estou deixando passar? Alguém já implementou este tipo de rotina em Delphi por aqui?