TsgcSTUNClient › Events › OnSTUNResponseSuccess
Wird ausgelöst, wenn der STUN-Server eine erfolgreiche Binding Response mit der gemappten Adresse des Clients zurückgibt.
property OnSTUNResponseSuccess: TsgcSTUNResponseSuccessEvent;
// TsgcSTUNResponseSuccessEvent = procedure(Sender: TObject; const aSocket: TsgcSocketConnection; const aMessage: TsgcSTUN_Message; const aBinding: TsgcSTUN_ResponseBinding) of object
—
Wird aufgerufen, wenn der Server eine Binding Request mit einer 2xx-STUN-Antwort beantwortet. aBinding.RemoteIP und aBinding.RemotePort enthalten die vom Server entdeckte reflexive (NAT-gemappte) Adresse; aMessage ermöglicht den Zugriff auf die vollständige Antwort, einschließlich aller zurückgegebenen zusätzlichen Attribute.
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;