UPN - Problem

[1aa]

Nabend ich habe ein Problem mit FritzBox und UPNP-Status informationen auslesen:
Wie man am code sehen kann will ich mir die aktuelle IP Adresse ausgeben lassen, funktioniert soweit auch.... aber das auslesen dauert beim 1. mal ca. 20-30 sek beim 2. mal liest er garnix mehr aus....
kann mir einer sagen woran das leigen könnte.... Danke

Hier der Betreffende Code:

Delphi-Quellcode:

fSocket : TTCPClient;

[..........]

function TFritzBox.GetIP : String;
 var 
     Stringliste : TStringlist;
     buffer : AnsiString;
begin
//Senden vorbereiten------------------------------------------------------------
  Stringliste := TStringlist.Create;
    try
      Stringliste.Clear;
        Stringliste.Add('POST /upnp/control/WANCommonIFC1 HTTP/1.1');
        Stringliste.Add('Host: 192.168.178.1:49000');
        Stringliste.Add('Accept: */*');
        Stringliste.Add('Content-Type: text/xml;charset=utf-8');
        Stringliste.Add('SoapAction:urn:schemas-upnp-org:service:WANIPConnection:1#GetExternalIPAddress');
        
        buffer := ('<?xml version="1.0" encoding="utf-8"?>'+
                         ' <s:Envelope s:encodingStyle="http://schemas.xmlsoap.'+
                         'org/soap/encoding/" xmlns:s="http://schemas.xmlsoap.org/soap/envelope/"> '+
                         '<s:Body> '+
                         '<u:GetExternalIPAddress xmlns:u="urn:schemas-upnp-org:service:WANIPConnection:1" />'+
                         ' </s:Body> </s:Envelope>');
        Stringliste.Add('Content-Length:' + inttostr(length(buffer)));
        Stringliste.Add('');
        Stringliste.Add(buffer);
        buffer := Stringliste.Text;
    finally
      Stringliste.Free;
    end;
//Senden------------------------------------------------------------------------
      fSocket.SendBuf(buffer[1],length(buffer));
      result := fSocket.Receiveln('#13#10')
end

[Der schöne Günther]

Schau doch mit Wireshark erstmal, was überhaupt über die Leitung wandert.

[1aa]

Danke problem gelöst!