Lire la valeurs d'un record

Question

Bonjour bonsoir ,

     Dans l'unité MMSystem, il y a :
type
  PMixerLineA = ^TMixerLineA;
  PMixerLineW = ^TMixerLineW;
  PMixerLine = PMixerLineA;
  {$EXTERNALSYM tagMIXERLINEA}
  tagMIXERLINEA = record
    cbStruct: DWORD;               { size of MIXERLINE structure }
    dwDestination: DWORD;          { zero based destination index }
    dwSource: DWORD;               { zero based source index (if source) }
    dwLineID: DWORD;               { unique line id for mixer device }
    fdwLine: DWORD;                { state/information about line }
    dwUser: DWORD;                 { driver specific information }
    dwComponentType: DWORD;        { component type line connects to }
    cChannels: DWORD;              { number of channels line supports }
    cConnections: DWORD;           { number of connections [possible] }
    cControls: DWORD;              { number of controls at this line }
    szShortName: array[0..MIXER_SHORT_NAME_CHARS - 1] of AnsiChar;
    szName: array[0..MIXER_LONG_NAME_CHARS - 1] of AnsiChar;
    Target: record
      dwType: DWORD;                 { MIXERLINE_TARGETTYPE_xxxx }
      dwDeviceID: DWORD;             { target device ID of device type }
      wMid: WORD;                                   { of target device }
      wPid: WORD;                                   {      " }
      vDriverVersion: MMVERSION;                    {      " }
      szPname: array[0..MAXPNAMELEN - 1] of AnsiChar;  {      " }
  end;

Lorsque je veux allé lire la valeur de szName par exemple, je fais mixer.Destinations[j].Data.szName et ca fonctionne, j'arrive à avoir la valeur, 
mais j'aimerais lire la valeur dwType dans le Target:Record, alors j'essaie de cette maniére : 
mixer.Destinations[j].data.Target.dwType mais là il me dit que dwType n'est pas déclaré...

Je ne dois pas utiliser les records correctement, pourriez vous m'éclairer sur la manière dont je dois l'utiliser pour lire ma valeur ?

Merci à tous 

<hr />
L'Armand joue, l'arme en joug... Mon site

L_art_ment · Answer

Euh... Ce soucis se posait avec ma version Turbo Delphi, j'ai essayé avec Delphi 7 et ca fonctionne correctement, j'ai fais exactement la même chose pourtant... Je ne comprend pas pourquoi ca fonctionne sur l'un et pas sur l'autre.. 

<hr />
L'Armand joue, l'arme en joug... Mon site

Bacterius · Answer

Bonsoir,
essaye un :

with mixer.Destinations[j].data.Target do
 MaVariable := dwType;

??

Je ne peux même pas voir le problème, quel type utilises-tu pour accéder à cet enregistrement ? PMixerLineA ? TMixerLine ? MIXERLINE ?

Cordialement, Bacterius !

Bacterius · Answer

Ca doit être un problème de syntaxe, tente mon with..do.

Cordialement, Bacterius !

Bacterius · Answer

Hmm ...
Ce type là (TMixerDestinations) est inconnu dans mon MMSystem (Delphi 6) ...
Bizarre ...

Et :

with mixer.Destinations[j].data do
            showmessage(inttostr(Target.dwType));
          end;

??

Sinon je ne sais plus quoi faire ... encore si je pouvais visualiser le problème dans mon IDE je pourrais être plus utile mais là ... :x

Cordialement, Bacterius !

L_art_ment · Answer

Il ne me le prend pas non plus celui là...

Bein je vais peut être mettre le source demain qui utilise le MMSystem, si tu voudra jetter un oeil... Mais je ne sais pas si il sera fini demain...

<hr />
L'Armand joue, l'arme en joug... Mon site

Lire la valeurs d'un record

5 réponses

Votre réponse

Discussions similaires