[Klasse] TJoystick - alles in einer kleinen Unit!

[LDericher]

Hallo DP!

Hier meine Lösung zur Einbindung eines Joysticks in Delphi-Programme.
Ist sehr allgemein gehalten und darf meinetwegen auch verändert werden: Force Feedback wird nicht unterstützt, ist aber auch meinerseits nicht geplant.
Kommentare sind noch nicht vorhanden - geplant aber kann dauern.

Viel Spaß damit wünscht euch

Euer LDer.

P.S.: Ich schreibe doch mal schnell eine Kurz-Anleitung:

Delphi-Quellcode:

//Objekt erstellen
Joy:=TJoystick.Create;

//Reaktionszeit einstellen
Joy.PollInterval:=10;

//Achsenhandling einstellen:
////htSlider: Event OnAxis wird aufgerufen, sobald die Achse bewegt wird (Standard)
////htAxis: Event OnAxis wird bei jedem Polling (zuvor eingestellt) aufgerufen.
Joy.Handling[aX]:=htAxis;
Joy.Handling[aY]:=htAxis;

//Zuweisen der Events (Standard: nil):
////TButtonProc=procedure(pButton:TButtonNumber; State:TButtonState)of object;
//////pButton: Der Button, der das Event ausgelöst hat (0..31)
//////State: Neuer Status von pButton (0: losgelassen, 1: gedrückt)
////TAxisProc=procedure(pAxis:TAxis; State:TAxisState)of object;
//////pAxis: Die Achse, die das Event ausgelöst hat (0..7)|(aX, aY, aZ, aR, aU, aV, povX, povY)
//////State: Neuer Status von pAxis (-100: ganz nach links/unten bewegt ... 0: zentriert ... 100: ganz nach rechts/oben bewegt)
Joy.OnButton:=Self.ButtonEvent;
Joy.OnAxis:=Self.AxisEvent;

Sobald das Objekt freigegeben wird, speichert es alle seine Daten in 'Joystick.ini' im Programmverzeichnis. Beim Erstellen einer neuen Instanz werden diese Einstellungen geladen, falls vorhanden.

[Jakob Ullmann]

Zitat:

Zitat von Superwinger

Force Feedback wird nicht unterstützt, ist aber auch meinerseits nicht geplant.

Das ist schade, sonst hätte ich jetzt die Unit getestet; da ich aber nur Force Feedback habe, geht das natürlich nicht.

[Die Muhkuh]

Zitat:

Zitat von Superwinger

Sobald das Objekt freigegeben wird, speichert es alle seine Daten in 'Joystick.ini' im Programmverzeichnis. Beim Erstellen einer neuen Instanz werden diese Einstellungen geladen, falls vorhanden.

Da hast Du bei Vista schon verloren. Wie wäre es, wenn man Pfade einstellen kann und ob man das ganze überhaupt speichern möchte?

[LDericher]

Hey, danke für eure schnellen Rückmeldungen!

@Die Muhkuh
Gute Idee, aber da ich kein Vista benutze, bin ich selbst schonmal nicht betroffen :P
Bau' du es doch ein ;)
Nee, ehrlich, werde ich wohl bald machen, wenn mir keiner zuvorkommt...

@Jakob Ullmann
Ebenso Force Feedback - vielleicht als Extra... Wenn sich wer findet, gut, oder ich hab halt mal Langeweile ;)

Das ganze ist halt Teil eines größeren Projektes, und das wird erstmal gebaut bevor ich die Klasse verfeinere.

Gruuß vom LDer

[Die Muhkuh]

Du machst Force Feedback und ich bau meinen Vorschlag selbst ein? ;)

[LDericher]

Wenn du eine Ahnung hast, wie FF implementiert wird, gerne ;)

[Die Muhkuh]

Lies meinen Satz richtig :stupid:

[LDericher]

Zitat:

Zitat von Die Muhkuh

|Du{Ich} machst{baust ein:} Force Feedback| und |ich bau meinen Vorschlag selbst ein?{"?" - "Machen wir das so?") ;)|

Oder nicht?

[igel457]

Soweit ich weiß, ist Force Feedback nur mit DirectInput möglich. Mit den Joystick-Befehlen aus der MMSystem.pas (IMHO übrigens nicht mehr verwendet werden sollten, da Überrest aus Windows 3.1) kommst du da nicht viel weiter...

[LDericher]

So, ich hab jetzt mal ne Komponente draus gebastelt :)

Siehe Anhang^^

Gruß vom LDer.