Problem with joystick axes on delphiX

**rbonkie** · 22-11-2005, 01:51 PM

Please help,

I use delphi X directinput for joystick control. When I read the values from my joystick I see that axes are switched. So the Y value is read at the dijoystate2.IZ and the X value is nowhere. As soon as I set the property UseDirectInput to false, the axes are OK. But then I can't use for example the torsion of the joystick handle. Who can help me out?

This is how I read the values (via a timer):

Code:

procedure TForm6.DXTimer1Timer&#40;Sender&#58; TObject; LagCount&#58; Integer&#41;;
var
  js &#58; Tdijoystate2;
begin
  dxinput1.Update;
  js &#58;= dxinput1.Joystick.Joystate;
  lb.Clear;
  lb.AddItem&#40;'IX' + inttostr&#40;js.lX&#41;, nil&#41;;
  lb.AddItem&#40;'IY' + inttostr&#40;js.lY&#41;, nil&#41;;
  lb.AddItem&#40;'IZ' + inttostr&#40;js.lZ&#41;, nil&#41;;
  lb.AddItem&#40;'IRx' + inttostr&#40;js.lRx&#41;, nil&#41;;
  lb.AddItem&#40;'IRy' + inttostr&#40;js.lRy&#41;, nil&#41;;
  lb.AddItem&#40;'IRZ' + inttostr&#40;js.lRZ&#41;, nil&#41;;
  lb.AddItem&#40;'IVx' + inttostr&#40;js.lVX&#41;, nil&#41;;
  lb.AddItem&#40;'IVy' + inttostr&#40;js.lVy&#41;, nil&#41;;
  lb.AddItem&#40;'IVZ' + inttostr&#40;js.lVz&#41;, nil&#41;;
  lb.AddItem&#40;'IVRx' + inttostr&#40;js.lVRx&#41;, nil&#41;;
  lb.AddItem&#40;'IVRy' + inttostr&#40;js.lVRy&#41;, nil&#41;;
  lb.AddItem&#40;'IVRz' + inttostr&#40;js.lVRz&#41;, nil&#41;;
  lb.AddItem&#40;'IAx' + inttostr&#40;js.lAX&#41;, nil&#41;;
  lb.AddItem&#40;'IAy' + inttostr&#40;js.lAy&#41;, nil&#41;;
  lb.AddItem&#40;'IAz' + inttostr&#40;js.lAz&#41;, nil&#41;;
  lb.AddItem&#40;'IARx' + inttostr&#40;js.lARx&#41;, nil&#41;;
  lb.AddItem&#40;'IARy' + inttostr&#40;js.lARy&#41;, nil&#41;;
  lb.AddItem&#40;'IARz' + inttostr&#40;js.lARz&#41;, nil&#41;;
  lb.AddItem&#40;'IFx' + inttostr&#40;js.lFX&#41;, nil&#41;;
  lb.AddItem&#40;'IFy' + inttostr&#40;js.lFy&#41;, nil&#41;;
  lb.AddItem&#40;'IFz' + inttostr&#40;js.lFz&#41;, nil&#41;;
  lb.AddItem&#40;'IFRx' + inttostr&#40;js.lFRx&#41;, nil&#41;;
  lb.AddItem&#40;'IFRy' + inttostr&#40;js.lFRy&#41;, nil&#41;;
  lb.AddItem&#40;'IFRz' + inttostr&#40;js.lFRz&#41;, nil&#41;;
  lb.AddItem&#40;'rglslider0' + inttostr&#40;js.rglSlider&#91;0&#93;&#41;, nil&#41;;
  lb.AddItem&#40;'rglslider1' + inttostr&#40;js.rglSlider&#91;1&#93;&#41;, nil&#41;;
  lb.AddItem&#40;'rglVslider0' + inttostr&#40;js.rglVSlider&#91;0&#93;&#41;, nil&#41;;
  lb.AddItem&#40;'rglVslider1' + inttostr&#40;js.rglVSlider&#91;1&#93;&#41;, nil&#41;;
  lb.AddItem&#40;'rglAslider0' + inttostr&#40;js.rglASlider&#91;0&#93;&#41;, nil&#41;;
  lb.AddItem&#40;'rglAslider1' + inttostr&#40;js.rglASlider&#91;1&#93;&#41;, nil&#41;;
  lb.AddItem&#40;'rglFslider0' + inttostr&#40;js.rglFSlider&#91;0&#93;&#41;, nil&#41;;
  lb.AddItem&#40;'rglFslider1' + inttostr&#40;js.rglFSlider&#91;1&#93;&#41;, nil&#41;;

end;

lb is a listbox on a form that I fill with the actual values of the joystick.

Richard

**User137** · 22-11-2005, 11:12 PM

Joystate? Have you tried dxinput1.Joystick.X , dxinput1.Joystick.Y and so on? Like dx keyboard i hardly ever use keyboard.states. Commonly those states are defined clicking the TXDInput component on form.

**rbonkie** · 25-11-2005, 08:18 PM

This gives me the same problem. The axes are stil wrong.

Richard

Moderation Process Reminder

Thread: Problem with joystick axes on delphiX

Thread Tools

Display