Utiliser une DLL de bridge écrite en C

Version imprimable

Bonjour, j'utilise une DLL écrite en C. Il s'agit de "DDS.DLL" écrite par Bo Haglund (la référence en matière de Bridge)
http://privat.bahnhof.se/wb758135/br...mentation.html
Cette DLL comporte plusieurs fonctions.
J'utilise actuellement sans problème la fonction "CalcTTable" définie ainsi dans la doc :
CalcDDtable :struct ddTableDeal tableDeal,
struct ddTableResults * tablep

Les structures (packed records en delphi) sont définies de la manière suivante :
ddTableDeal : unsigned int cards[4][4]; //Encodes a deal. First index is hand. Hand encoding. Second index is suit. Suit encoding.
ddTableResults : int resTable[5][4]; // Encodes the solution of a deal ......

Lors de l'appel de la fonction, je passe comme paramètres la structure ddTableDeal (initialisée avec les valeurs nécessaires au calcul) et la structure ddTableResults qui me sert à récupérer les résultats du calcul.
Cette fonction renvoie un integer (1 si tout se passe bien, sinon un autre code approprié en fonction du type d'erreur) et "calcule " donc la structure ddTableResults que j'exploite ensuite dans mon programme. Pour cette fonction, tout va bien.

J'ai un problème pour la seconde fonction "Par" définie ainsi dans la doc :
Par : struct ddTableResults * tablep,
struct parResults *presp,
int vulnerable

Les structures de cette fonction sont définies de la manière suivante :
ddTableDeal : unsigned int cards[4][4]; //identique à la celle de la fonction "CalcTTable"
parResults : char parScore[2][16]; //First index is NS/EW.
char parContractsString [2][128]; //First index is NS/EW.

Lors de l'appel de cette fonction, je passe comme paramètres la structure ddTableDeal (initialisée avec les valeurs nécessaires calculées avec la fonction précédente ), vulnerable défini à 0, et la structure parResults qui doit me servir à récupérer les résultats du calcul.

Cette fonction me renvoie bien 1 (donc tout se passe sans erreur), mais les résultats que je récupère dans la structure "parResults" ne sont pas corrects. J'obtiens des caractères style asiatiques alors que je dois obtenir par exemple des résultats du style "NS:NS 23S,NS 23H"

voici un extrait de mon code :
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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 Type TddTableDeal=packed Record Cards:array [0..3,0..3] of Integer; end; TddTableResults=packed Record resTable:array [0..4,0..3] of Integer; end; PtrddTableResults =^TddTableResults; TparResults=packed Record parScore : array [0..1,0..15] of Char; parContractsString : array [0..1,0..127] of Char; vulnerable:integer; end; PtrparResults =^TparResults; .......... implementation uses unit1; var MyDeal:Tdeal; futp:PtrFutureTricks; MyTableDeal:TddTableDeal; Tablep:PtrddTableResults; presp:PtrparResults; function CalcDDtable(TableDeal:TddTableDeal;Tablep:PtrddTableResults):integer; stdcall; external 'DDS.dll'; //Pas de problème pour cette fonction function Par(Tablep:PtrddTableResults;presp:PtrparResults;vulnerable:integer):integer; stdcall; external 'DDS.dll'; procedure CalculDuPar(donne:string); // Calcul du Par var i,j:integer; CodeRetour:integer; S:string; begin Resoudre_CalcDDtable(donne); // Procédure qui fonctionne et qui me permet de récupérer le tableau resTable:array [0..4,0..3] of Integer // avec les bonnes valeurs. Ces valeurs sont stockées dans le tableau NbreLevees[i,j] new(Tablep); for i:=0 to 4 do begin for j:=0 to 3 do begin Tablep.resTable[i,j]:=NbreLevees[i,j]; end; end; new(presp); CodeRetour:=Par(Tablep,presp,0); // La function de Bo Haglund (renvoie 1 si tout se passe bien sinon autre code d'erreur) for i:=0 to 1 do begin for j:=0 to 15 do begin S:=S+presp.parScore[i,j]; end; end; showmessage(S); // C'est là que j'obtiens des caractères asiatiques au lieu par exemple de "NS:NS 23S, NS23 H" for i:=0 to 1 do begin for j:=0 to 127 do begin S:=S+presp.parContractsString[i,j]; end; end; showmessage(S);// C'est là que j'obtiens des caractères asiatiques au lieu par exemple de "NS:NS 23S, NS23 H" dispose(Tablep); dispose(presp); end;
Merci de votre aide (ça fait 8 jours que je bloque là-dessus !!)

Jean-Louis

04/06/2015, 11h57
SergioMaster

Bonjour,

Citation:

Envoyé par illuch

J'obtiens des caractères style asiatiques alors que je dois obtenir par exemple des résultats du style "NS:NS 23S,NS 23H"

les caractères de "Style asiatique" sont typiquement un problème d'encodage. Selon la version de Delphi , si cette dernière est Unicode les strings sont des WideString et non des AnsiString.
Tout dépend de la bibliothèque mais déclarer S en AnsiString devrait être la solution à tester
05/06/2015, 22h19
illuch

Citation:

Envoyé par SergioMaster

Bonjour,

les caractères de "Style asiatique" sont typiquement un problème d'encodage. Selon la version de Delphi , si cette dernière est Unicode les strings sont des WideString et non des AnsiString.
Tout dépend de la bibliothèque mais déclarer S en AnsiString devrait être la solution à tester

Merci Sergio, grâce à ton aide, j'ai résolu mon problème.
Il fallait que j'initialise mes records ainsi :

Citation:

TparResults=packed Record
parScore : array [0..1,0..15] of AnsiChar; et non pas array [0..1,0..15] of Char
parContractsString : array [0..1,0..127] of AnsiChar;
vulnerable:integer;
end;

J.Louis
06/06/2015, 07h17
Roland Chastain

Citation:

Envoyé par illuch

Bonjour, j'utilise une DLL écrite en C. Il s'agit de "DDS.DLL" écrite par Bo Haglund (la référence en matière de Bridge)
http://privat.bahnhof.se/wb758135/br...mentation.html

Bonjour ! Très intéressant, ce lien.

Est-ce que vous pourriez poster un exemple très simple d'utilisation de la DLL, avec quelques mots d'explication pour ceux qui, comme moi, ne connaissent pas le jeu ?

1 pièce(s) jointe(s)

Citation:

Envoyé par Roland Chastain

Bonjour ! Très intéressant, ce lien.

Est-ce que vous pourriez poster un exemple très simple d'utilisation de la DLL, avec quelques mots d'explication pour ceux qui, comme moi, ne connaissent pas le jeu ?

Le bridge se joue à 4 par équipe de 2 que l'on nomme Nord/Sud et Est/Ouest. Dans une partie (une donne), chaque joueur a 13 cartes. Il s'agit pour chaque paire de faire le maximum de levées (plis) sur les 13 possibles avec une des quatre couleurs comme atout ou bien à Sans atout.
Voici un exemple succinct. Dans cette exemple, j'utilise la fonction "CalcDDTable" contenue dans la DLL "DDS.dll" (il y en a beaucoup d'autres).

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
 
Type
 TddTableDeal=packed Record // Utilisé dans "CalcDDTable"
   Cards:array [0..3,0..3] of Integer; // Encodes a deal : 1st index =Hand; 2nd index:=suir; valeur=les cartes
                                // ex : Deal.remainCards[2,1]=8192+32=8224 => Roi 5 de Coeur pour Sud
                               // Deal.remainCards[3,2]= 16384+4=16388 => As et 2 de Carreau pour Ouest
 end;
 
 TddTableResults=packed Record  // Utilisé dans "CalcDDTable"
   resTable:array [0..4,0..3] of Integer; // Encodes the solution of a deal for combinaisons of denomitation and declarer
                                       // 1st index : contrat ((0:Pique, 1:Coeur, 2:Carreau, 3Trèfle, 4: sans Atout
                                       // 2nd index : déclarant (0:Nord, 1:Est, 2:Sud, 3:Ouest
                                       // le résultat = nombre de plis possibles
 end;
 PtrddTableResults =^TddTableResults;
 
 procedure Resoudre_CalcDDTable(donne:string);   // Tableau des levées possibles
 
implementation
 
uses unit1;
 
  var MyTableDeal:TddTableDeal;
       Tablep:PtrddTableResults;
 
 function CalcDDtable(ddTableDeal:TddTableDeal;Tablep:PtrddTableResults):integer; stdcall; external 'DDS.dll';
 
 
procedure Resoudre_CalcDDtable(donne:string); // Tableau des levées possibles
var i,j:integer;
    CodeRetour:integer;
 begin
// donne est fourni sous forme par exemple de 'N:T5.K4.652.A98542 K6.QJT976.QT7.Q6 432.A.AKJ93.JT73 AQJ987.8532.84.K'
// cela signifie que Nord est donneur et a 10 5 à Pique,652 à Cœur, As98542 à Carreau et R6 à Trèfle, ensuite id pour Est, Sud et Ouest
  for i:=0 to 3 do begin                                   // Hand (orientation): Nord, Est, Sud, Ouest
   for j:=0 to 3  do begin                                 // Suit (couleur)    : Pique, Coeur, Carreau, Trèfle, Sans Atout
    MyTableDeal.Cards[i,j]:= HoldingCodage(i,j,donne);  // La donne à tester (après avoir été codée par la fonction "HoldingCodage" 
                                                                   // Par ex. : si Deal.remainCards[3,2]= 16384+4=16388
                                                                   // => alors Ouest n'a que As et 2 dans la couleur Carreau)
   end;
  end;
  new(Tablep);
  CodeRetour:=CalcDDTable(MyTableDeal,Tablep);// La function de Bo Haglund (renvoie 1 si pas d'erreur sinon renvoie un code d'erreur approprié)
  for i:=0 to 4 do begin                             // 1st index : contrat (O:Pique, 1:Coeur, 2:Carreau, 3Trèfle, 4: sans Atout)
   for j:=0 to 3 do begin                           // 2nd index : déclarant (0:Nord, 1:Est, 2:Sud, 3:Ouest)
    NbreLevees[i,j]:=Tablep.resTable[i,j];  //Tableau :nbre de plis possibles pour N, E, S et O en fonction de l'atout (P,C,K ou Trèfle) ou Sans Atout
   end;
  end;
   dispose(Tablep);
 end;

voilà ce que ça donne :

Pièce jointe 179839

Pour d'autres renseignements, contactez-moi en direct (je ne sais pas comment faire, je suis nouveau sur le forum).

JL

06/06/2015, 16h34
Roland Chastain

Merci pour l'exemple et les explications. Bonne continuation dans votre projet !