Probleme de conversion de code C++ en Delphi

Version imprimable

Bonjour,

Je voudrais savoir si quelqu'un peut m'aider sur la conversion de cette structure C++ en Delphi, en particulier "union",

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
struct OmMediaSummary {    
 
OmMediaType type;       
OmVideoSampleRatio vsr;   
OmVideoAspectRatio aspect;
uint bitrate;           
uint bitsPerUnit;                               
uint sampleRate;
uint channels;      
 
  union Specific {        
 
     struct Mpeg {
       uint gopLength; 
       uint subGopLength
     } mpeg;        
     struct Audio {            
       OmAudioFormat format;            
       unsigned char bigEndian;            
       unsigned char sampleStride;        
     } audio;        
     struct Vbi {            
       uint lineMask;        
     } vbi;    
 
  } specific;    
 
  OmMediaSummary()      
: type(omMediaUnknown),
vsr(omVideoSampleNone),
aspect(omVideoAspectNone),        
bitrate(0),
bitsPerUnit(0),        
sampleRate(0),        
channels(0)
    {
       specific.mpeg.gopLength = 0;
        specific.mpeg.subGopLength = 0;    
}
};

Si quelqu'un a une idee merci beaucoup,

Pascal

Bonjour et bienvenue sur les forums de Développez.com :D

Sans aucune certitude voila ce que je proposerais :

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
type
  TMpeg = record
    gopLength: Cardinal;
    subGopLength: Cardinal;
  end;
 
  TAudio = record
    format: OmAudioFormat;
    bigEndian: Byte;
    sampleStride: Byte;
  end;
 
  TVbi = record
    lineMask: Cardinal;
  end;
 
  TOmMediaSummary = record
    type: OmMediaType;
    vsr: OmVideoSampleRatio;
    aspect: OmVideoAspectRatio;
    bitrate: Cardinal;
    bitsPerUnit: Cardinal;                               
    sampleRate: Cardinal;
    channels: Cardinal;
    case Integer of
      0: mpeg: TMpeg;
      1: audio: TAudio;
      2: vbi: TVbi;
  end;

Tout le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
OmMediaSummary()      
: type(omMediaUnknown),
vsr(omVideoSampleNone),
aspect(omVideoAspectNone),        
bitrate(0),
bitsPerUnit(0),        
sampleRate(0),        
channels(0)
    {
       specific.mpeg.gopLength = 0;
       specific.mpeg.subGopLength = 0;    
}

correspond à un genre de "constructeur" pour les record (pas disponible en Delphi, 7 du moins) et permet d'initialiser les champs avec les valeurs entre parenthèses.

03/06/2008, 13h54
gossetpascal

Merci beaucoup,
je vais tester,

Pascal