[Lazarus] Gestion d'un Joystick avec Lazarus - MMSystem - Marche pas

Version imprimable

28/12/2004, 23h57
Tom-G

[Lazarus] Gestion d'un Joystick avec Lazarus - MMSystem - Marche pas
Salut,

J'ai écrit une petite appli en delphi pour gérer un joystick. Ca marche bien et je voudrais le porter sur FreePascal via Lazarus et là problème.

J'utilise MMSystem.

Une partie du code delphi est :
Code:

1 2 3 4 5 procedure TForm1.FormCreate(Sender: TObject); var myJoyCaps: TJoyCaps; begin ...
J'ai remplacé TJoyCaps par JoyCaps dans Lazarus (sinon erreur). Le programme se compile et s'exécute mais le joystick ne fonctionne pas.

Comment faire ?
Quelqu'un a t il un exemple de prog avec joystick et Lazarus ?

Merci,
Abonn

je n'ai pas Lazarus d'installé, mais j'ai freepascal et delphi...

sous delphi la definition de TJoyCaps dans mmsystem est la suivante:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
  tagJOYCAPSA = record
    wMid: Word;                  { manufacturer ID }
    wPid: Word;                  { product ID }
    szPname: array[0..MAXPNAMELEN-1] of AnsiChar;  { product name (NULL terminated string) }
    wXmin: UINT;                 { minimum x position value }
    wXmax: UINT;                 { maximum x position value }
    wYmin: UINT;                 { minimum y position value }
    wYmax: UINT;                 { maximum y position value }
    wZmin: UINT;                 { minimum z position value }
    wZmax: UINT;                 { maximum z position value }
    wNumButtons: UINT;           { number of buttons }
    wPeriodMin: UINT;            { minimum message period when captured }
    wPeriodMax: UINT;            { maximum message period when captured }
    wRmin: UINT;                 { minimum r position value }
    wRmax: UINT;                 { maximum r position value }
    wUmin: UINT;                 { minimum u (5th axis) position value }
    wUmax: UINT;                 { maximum u (5th axis) position value }
    wVmin: UINT;                 { minimum v (6th axis) position value }
    wVmax: UINT;                 { maximum v (6th axis) position value }
    wCaps: UINT;                 { joystick capabilites }
    wMaxAxes: UINT;	 	{ maximum number of axes supported }
    wNumAxes: UINT;	 	{ number of axes in use }
    wMaxButtons: UINT;	 	{ maximum number of buttons supported }
    szRegKey: array[0..MAXPNAMELEN - 1] of AnsiChar; { registry key }
    szOEMVxD: array[0..MAX_JOYSTICKOEMVXDNAME - 1] of AnsiChar; { OEM VxD in use }
  end;

sous freepascal on peut lire ça:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
_JOYCAPSA = packed record
wMid: WORD;
wPid: WORD;
szPname: array [0..Pred(MAXPNAMELEN)] of CHAR;
wXmin: UINT;
wXmax: UINT;
wYmin: UINT;
wYmax: UINT;
wZmin: UINT;
wZmax: UINT;
wNumButtons: UINT;
wPeriodMin: UINT;
wPeriodMax: UINT;
wRmin: UINT;
wRmax: UINT;
wUmin: UINT;
wUmax: UINT;
wVmin: UINT;
wVmax: UINT;
wCaps: UINT;
wMaxAxes: UINT;
wNumAxes: UINT;
wMaxButtons: UINT;
szRegKey: array [0..Pred(MAXPNAMELEN)] of CHAR;
szOEMVxD: array [0..Pred(MAX_JOYSTICKOEMVXDNAME)] of CHAR;
end;

Pour ce dernier on manipule des array of char contre des array of ansichar dans Delphi...
Ceci est peut-etre la cause de tes soucis...

29/12/2004, 23h29
Eric Sigoillot

Citation:

Envoyé par Clandestino

Pour ce dernier on manipule des array of char contre des array of ansichar dans Delphi...
Ceci est peut-etre la cause de tes soucis...

Je crains que non : sous Delphi, AnsiChar = Char. Les seuls différents sont les WideChar codés sur 2 octets. Donc le problème vient d'ailleurs.

Tu peux nous montrer les prototypes des API utilisées par Lazarus ?

@++

Merci pour vos réponses.
Je ne suis pas un expert en Pascal, j'espère que c'est ceci dont tu parles :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Form1Create(Sender: TObject);
var
 myJoyCaps: JoyCaps; // Syntaxe Delphi -> myJoyCaps: TJoyCaps;
begin
 joyGetDevCaps(joystickid1,@myJoyCaps,sizeof(myJoyCaps));
 joySetCapture(self.Handle, joystickid1, 100, true);
end;
 
et puis par exemple ensuite j'utilise :
procedure TForm1.MMJOY1MOVE (var LocMessage: TMMJoyStick);
begin
Edit1.Text := IntToStr(LocMessage.ypos); 
Edit2.Text := IntToStr(LocMessage.xpos); 
trackbar1.position := LocMessage.ypos;
trackbar2.position := LocMessage.xpos;
 
Edit3.Text := floattostr(Percentage(LocMessage.ypos));
Edit4.Text := floattostr(Percentage(LocMessage.xpos));
end;

Modération par Wormful_sickfoot :
- Balises code ajoutées
Merci de lire les règles du forum.

30/12/2004, 18h04
Clandestino

Tu as raison HDD34, ansichar et char sont equivalents sous Delphi... :o

Je remarque aussi que les arrays n'ont pas la meme taille sous delphi et FPC mais ceci est-il la raison de celà?

Je n'ai pas eu l'occasion de programmer avec ces fonctions...