TsgcSTUNClientイベント › OnSTUNResponseSuccess

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.RemoteIPaBinding.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;

イベントに戻る