TsgcSTUNClient › Olaylar › OnSTUNResponseSuccess
STUN sunucusu, istemci eşlenmiş adresiyle başarılı bir Binding Response döndürdüğünde tetiklenir.
property OnSTUNResponseSuccess: TsgcSTUNResponseSuccessEvent;
// TsgcSTUNResponseSuccessEvent = procedure(Sender: TObject; const aSocket: TsgcSocketConnection; const aMessage: TsgcSTUN_Message; const aBinding: TsgcSTUN_ResponseBinding) of object
—
Sunucu bir Binding Request'e 2xx STUN yanıtıyla yanıt verdiğinde çağrılır. aBinding.RemoteIP ve aBinding.RemotePort, sunucu tarafından keşfedilen reflexive (NAT eşlemeli) adresi içerir; aMessage, döndürülen ek öznitelikler dahil tam yanıta erişim sağlar.
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;