TsgcSTUNClient › イベント › OnSTUNResponseSuccess
STUN サーバーがクライアントのマップされたアドレスを含む成功したバインディングレスポンスを返したときに発生します。
property OnSTUNResponseSuccess: TsgcSTUNResponseSuccessEvent;
// TsgcSTUNResponseSuccessEvent = procedure(Sender: TObject; const aSocket: TsgcSocketConnection; const aMessage: TsgcSTUN_Message; const aBinding: TsgcSTUN_ResponseBinding) of object
—
サーバーがバインディングリクエストに 2xx STUN レスポンスで応答したときに呼び出されます。aBinding.RemoteIP と aBinding.RemotePort には、サーバーが発見したリフレキシブ(NAT マッピング)アドレスが含まれます。aMessage は返された追加属性を含む完全なレスポンスへのアクセスを提供します。
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;