TsgcSTUNClient › Zdarzenia › OnSTUNResponseSuccess
Wywoływane, gdy serwer STUN zwraca pomyślną odpowiedź Binding Response z adresem klienta.
property OnSTUNResponseSuccess: TsgcSTUNResponseSuccessEvent;
// TsgcSTUNResponseSuccessEvent = procedure(Sender: TObject; const aSocket: TsgcSocketConnection; const aMessage: TsgcSTUN_Message; const aBinding: TsgcSTUN_ResponseBinding) of object
—
Wywoływane, gdy serwer odpowiada na żądanie Binding Request odpowiedzią STUN 2xx. Właściwości aBinding.RemoteIP i aBinding.RemotePort zawierają adres refleksyjny (zmapowany przez NAT) odkryty przez serwer; aMessage zapewnia dostęp do pełnej odpowiedzi, w tym wszelkich dodatkowych atrybutów.
procedure TForm1.oSTUNSTUNResponseSuccess(Sender: TObject;
const aSocket: TsgcSocketConnection; const aMessage: TsgcSTUN_Message;
const aBinding: TsgcSTUN_ResponseBinding);
begin
DoLog('Remote IP: ' + aBinding.RemoteIP +
'. Remote Port: ' + IntToStr(aBinding.RemotePort));
end;