Discussion :

[gcvoiron]

Voilà le début (après on ne parle plus de "Destinations") de la déclaration de TAudioMixer :

Code :

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

1
2
3
4
5
  TAudioMixer = class(TComponent)
  private
    XWndHandle:HWnd;
 
    FDestinations:TMixerDestinations;

Et voilà l'info bulle :

Type AMixer.TAudioMixer: Class(TComponent) - AMixer.pas (236)

[HumanTool]

OK...faut faire la même chose sur TMixerDestinations....

[gcvoiron]

Il y a aussi plus bas :

Code :

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

    property Destinations:TMixerDestinations read FDestinations;

[gcvoiron]

Et voilà pour TMixerDestinations :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
  TMixerDestinations=class(TObject)
  private
    FDestinations:TPointerList;
  protected
    function GetDestination (Ind:Integer):TMixerDestination;
    procedure DoFreeItem (Pntr:Pointer);
    function GetCount:Integer;
  public
    constructor Create (AMixer:TAudioMixer);
    destructor Destroy; override;
    property Count:Integer read GetCount;
    property Destination[Ind:Integer]:TMixerDestination read GetDestination; default;
  end;

[HumanTool]

Il semblerait que Count représenterait le nombre d'élément dans Destinations, à vérifier avec le GetCount (Recherche dans tout le code).
Donc peut être que dans le ShowMessage tu peut faire :

Code :

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

ShowMessage(IntToStr(f_mixer.Count));

[gcvoiron]

Il faut ajouter quelquechose dans 'uses' pour Count ?

Code :

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

[Erreur] UswVoip_AudioMixer.pas(95): Identificateur non déclaré : 'Count'

[HumanTool]

Autant pour moi on en revient à ce que disait Lung

Code :

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

ShowMessage(IntToStr(f_mixer.Destinations.Count));

[gcvoiron]

Là c'est GOOD ! Et le f_mixer.Destinations.Count vaut 1.

[HumanTool]

Donc la 2e boucle ne peut s'exécuter

Code :

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

1
2
3
4
 
for i := 0 to f_mixer.Destinations[1].Connections.Count-1 do begin
    f_InNames.Add(f_mixer.Destinations[1].Connections[i].data.szName);
end;

[gcvoiron]

En virant la boucle for, et mettant la variable i en dure à 0, 1... ça donne :

Code :

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

1
2
3
  //for i := 0 to f_mixer.Destinations[1].Connections.Count-1 do begin
    begin f_InNames.Add(f_mixer.Destinations[1].Connections[0].data.szName);
  end;

Et ça plante...

[HumanTool]

le problème n'est pas sur Connections mais sur Destinations[1] qui pointe sur un aucun objet, car non initialisé ou bien parce qu'il en trouvé qu'un c'est pour cela que la 1e boucle avec Destinations[0] marche.

Ta mission est de trouver où cette liste est initialisée !

[gcvoiron]

Ok, merci pour tout.
Je me lance !