Traduire un programme C++ en delphi

salut ,

arf je n'avait pas fait attention

Citation:

---

Envoyé par Aka Guymelef

Haaa il y a donc un espace entre prUInt32 et m_SelectedSDK (cf premier post ;))

Moi je dirais plutôt :

Code:

---

1 2 3 4 5 6 7

type SDK_AND_INFO = record m_SelectedSDK :prUInt32; case SrcInfo: Integer of 0: (SelectedSrc_PRSDK: prDeviceInfoTable); 1: (SelectedSrc_CDSDK: cdSourceInfo); end; end;

---

Maintenant c'est vrai que la syntaxe qui s'approche le plus du union C++ c'est le Case Of dans les Record au vu de ce que j'ai lu mais pourtant j'ai pas le sentiment que ça fasse exactement la même chose, à tester donc...

---

y'a un end de trop
dans un record le end du record détermine la fin du case

Code:

---

1 2 3 4 5 6

type SDK_AND_INFO = record m_SelectedSDK :prUInt32; case SrcInfo: Integer of 0: (SelectedSrc_PRSDK: prDeviceInfoTable); 1: (SelectedSrc_CDSDK: cdSourceInfo); end;

---

je vous donne les descriptions des ports

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

{*-----------------------------------------------------------   Port descriptions *}   {* cdPortDescripSTI   Port descriptor for device using STI interface*} type cdPortDescripSTI = record DataType :cdDevDataType; DeviceInternalName:array[0..127] of cdWChar; end;   {* cdPortDescripWIA   Port descriptor for device using WIA interface*} type cdPortDescripWIA = record ModelID :cdUInt32; szLaunchedDeviceName:array[0..75] of cdChar; end;   {* cdPortDescripRsrvd   Reserved port descriptor*} type cdPortDescripRsrvd = record DataType :cdDevDataType; pDIPDevID :string; end;

---

Merci de me corriger Anapurna, c'est vrai que je ne suis pas du tout familier de cette syntaxe case of dans un record, j'ai lu l'aide de Delphi un peu trop en diagonale sur ce coup :aie:

Sinon on a trouvé le coupable mister, dans cdPortDescripRsrvd le champ pDIPDevID est déclaré avec un type String, c'est lui qui empêche la compilation.

j'ai essayé sans le 'end' en trop et j'ai toujours le meme message d'erreur:cry:

effectivement si j'enlève cette ligne là la compilation fonctionne nikel. reste à savoir si j'ai reellement besoin de cette ligne de code sinon la compilation marcherai à merveille.

salut

remplace la class string c++ par un entier en delphi
en fait cela doit correspondre au pointeur sur la class string du c++

@+ Phil

j'ai remplacé :

Code:

---

1 2 3 4 5 6

{* cdPortDescripRsrvd   Reserved port descriptor*} type cdPortDescripRsrvd = record DataType :cdDevDataType; pDIPDevID :string; end;

---

par :

Code:

---

1 2 3 4 5 6

{* cdPortDescripRsrvd   Reserved port descriptor*} type cdPortDescripRsrvd = record DataType :cdDevDataType; pDIPDevID :^cdWChar; end;

---

et cela fonctionne à merveille je remercie tout le monde pour l'aide apporter à cet traduction.

maintenant je vais continuer la suite de la traduction du programme, un gros travail m'attend en espérant ne plus être bloqué comme cela

merci encore

à oui je précise une déclaration pour ceux que cela interresse:

Code:

---

cdWChar =Word;

---