Pole objektů a jejich události do procedury

[jarex]

Mám problém, mám vytvořeno 100 účtů SIP klientů. A k nim potřebuji nějak přiřadit eventy tak, aby se v zaregistrované proceduře vědělo, od kterého klienta event dorazil.

Kód: Delphi [Vybrat]

1.  for I := 0 to 99 do
2.     begin
3.     FSipCaller[i] := TSipClient.Create(nil);
4.     FSipCaller[i].OnAnswer := SipClientAnswer;
5.     FSipCaller[i].OnBye := SipClientBye;
6.     FSipCaller[i].OnCall := SipClientCall;
7.     FSipCaller[i].OnRegistration := SipClientRegistration;
8.     end;

Pokud to mám takto, tak každý určitý event padne do procedury, ale tam už nevím, ze kterého zaregistrovaného SIP to přišlo.

 

[Jan Fiala]

Proc nema objekt nejakou identifikaci, aby sis ho pak v poli dohledal?
Jinak muzes projit pole a testovat, zda ten ktery byl predan do udalosti soyhlasi s nejakym v poli

Kód: Delphi [Vybrat]

1. For i ...
2. If sender is FSipCaller[i] then...

[jarex]

Moc děkuji, toto mi moc pomohlo.