Discussion :

[anapurna]

salut ,

arf je n'avait pas fait attention

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

Moi je dirais plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[delphibou]

je vous donne les descriptions des ports

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[Aka Guymelef]

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

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.

[delphibou]

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

[delphibou]

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.

[anapurna]

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

[delphibou]

j'ai remplacé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
{* cdPortDescripRsrvd
   Reserved port descriptor*}
type cdPortDescripRsrvd = record
        DataType        :cdDevDataType;
	      pDIPDevID       :string;
end;

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[delphibou]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 cdWChar            =Word;