Joystick mit Hilfe von JVCL verwenden klappt nicht.

[Phiennes]

Hi,


Ich versuche ein Testprogramm zu schreiben bei dem die Parameter des Joysticks ausgegeben werden, da ich diesen bei einer Simulation verwenden möchte, die ich momentan Programmiere. Also hab' ich mich schlau gemacht und die JVCL-Lib runtergeladen und installiert.

Leider schaffe ich es nicht, das Programm dazuzubringen überhaupt in irgendeiner Art und Weise auf meinen Joystick zu reagieren.

Delphi-Quellcode:

var
  Form1: TForm1;
  alpha:TJvJoystick;

procedure TForm1.Button1Click(Sender: TObject);  // Startbutton
begin
alpha.Create(Form1);  // Anstatt Form1 soll da wohl irgendwas vom Typ AOwner hin, aber ich weiß nicht was das sein soll.
Timer1.Interval:=1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text:=IntToStr(alpha.JoyStick1.XPosition);  // Hier soll die Position ausgegeben werden.
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
alpha.Destroy;
form1.Close;
end;

Wie man unschwer sieht habe ich nach 3 Stunden langer Suche immer noch absolut keine Ahnung wie ich JVCL benutzen kann^^.


Bitte....., ich brauch' professionelle Hilfe

lG Phiennes


PS: Ich benutze delphi 7 professionell

[igel457]

Ich habe zwar keine Ahnung von dieser Komponente, jedoch könntest du mal diesen Code ausprobieren: http://www.delphipraxis.net/internal...light=joystick

[Phiennes]

Das hab' ich davor ausprobiert. Da hat sich auch nichts getan. Wobei ich kein DelphiX nutze, was wie ich glaube dort vorraussetzung ist. Bei dem Quelltext des tutorials habe ich lediglich shape1-4 durch Edit1-4 ersetzt und den DelphixTimer durch Timer1. Es passiert einfach nichts, das verstehe ich nicht.

[sx2008]

Ein typischer Anfängerfehler.
Objekte werden so erzeugt: objektvariable := TKlasse.Create(opt. Parameter);

Delphi-Quellcode:

{ falscher Code
alpha.Create(Form1);  // Anstatt Form1 soll da wohl irgendwas vom Typ AOwner hin, aber ich weiß nicht 
was das sein soll. 
}
// richtig
alpha := TJvJoystick.Create(nil);

PS: Timerinterval sollte nicht kleiner als 50 sein.

[igel457]

Die Klasse hat nichts mit DelphiX zu tun. Hast du schonmal andere Device Nummern probiert?

[Phiennes]

@sx2008:
Ok gut zu wissen^^. Edit1.Text zeigt jetzt beim Klick auf den Button '0' an. Egal was ich mit dem Joystick mache, er reagiert nicht. Kann das am Joystick liegen? Eigentlich nicht oder?

@igel457
Wo sollte ich die wie ändern? Leider verstehe ich nicht allzuviel von diesem Quelltext .

[Phiennes]

Supi ich habs geschafft. Das Problem bestand darin, dass ich unter Systemsteuerung beim Joystick "Mit älteren Programmen verwenden" auswählen musste.


Danke^^.

[igel457]

Vermutlich ist die von der JVCL und meinem Quellcodeschnippsel gekapselte Windows API-Schnittstelle "deprecated" und sollte zu Gunsten von DirectInput eigentlich nicht mehr verwendet werden.

[Phiennes]

Eine Frage hätte ich da allerdings noch. Bei deinem Quelltext wird mir immer eine Wanrung in Bezug auf

"Device.wXpos-CenterX"

angezeigt. ([Warnung] Unit1.pas(165): Vorzeichenbehaftete und -lose Typen werden kombiniert - beide Operanden werden erweitert)

Kann ich die Warnung irgendwie beseitigen?

[hathor]

Teste dieses Programm:

http://www.wordware.com/computer/err...MMcode_new.zip