TcpClient - Antwort XML unvollständig.

[rollstuhlfahrer]

Ich bin mir jetzt nicht ganz sicher, aber sollte nicht IdHTTPClient ausreichen?

Bernhard

[Klaus01]

Guten Abend,

wenn aus dem Buffer mit readeLn gelesen wird,
dann wird nur eine Zeile (bis zum ersten CR LF) gelesen.

Ich meine es wäre besser, solange aus dem Buffer zu lesen
bis InputBufferIsEmpty = true ist.

Grüße
Klaus

[Garfield]

Einen IdHTTPClient finde ich nicht, nur den IdHTTPseerver.

Zitat von Klaus01:

... bis InputBufferIsEmpty = true ist.

Damit kann ich leider nichts anfangen.

[Klaus01]

.. hatte mir das in etwa so vorgestellt:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  TcpClient : TIdTcpClient;
  temp : String;
  count : Integer;
begin
  Memo1.Clear;

  TcpClient := TIdTcpClient.Create(nil);
  TcpClient.Host := Edit1.Text;
  TcpClient.Port := StrToInt(Edit2.Text);
  try
    TcpClient.Connect;
    if TcpClient.Connected then
      begin
        if TcpClient.IOHandler.Connected then
          begin
            TcpClient.IOHandler.Write(Memo2.Text);
             
            while not tcpClient.IOHandler.InputBufferIsEmpty do
              begin
               temp := TcpClient.IOHandler.ReadLn;
               Memo1.Lines.Add(temp);
              end;
          end;
      end;
  finally
    TcpClient.Disconnect;
    TcpClient.Destroy;
  end;
end;

[ungetestet]

Grüße
Klaus

[rollstuhlfahrer]

Zitat von Garfield:

Einen IdHTTPClient finde ich nicht, nur den IdHTTPseerver.

Das Ding heißt leider nur IdHTTP (nicht -Client).

Bernhard

[Garfield]

Zitat von Klaus01:

.. hatte mir das in etwa so vorgestellt:

Mit zwei kleinen Einfügungen geht es. Allerdings fehlt wieder die letzte Zeile mit den zwei schließenden Tags. Nach einer Weile gibt es eine Meldung "Connection Closed Gracefully.". Wenn man einen Fehler in das Script einbaut, bekommt man einen Fehler mit der gesamten Meldung:

Code:

HTTP/1.1 500 Internal Server Error
DATE: Sat, 15 Jan 2011 23:17:24 GMT
SERVER: FRITZ!Box Fon WLAN 7320 UPnP/1.0 AVM FRITZ!Box Fon WLAN 7320 (UI) 100.04.88
CONNECTION: keep-alive
CONTENT-LENGTH: 434
CONTENT-TYPE: text/xml; charset="utf-8"

<?xml version="1.0"?>
<s:Envelope
xmlns:s="http://schemas.xmlsoap.org/soap/envelope/"
s:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
<s:Body>
<s:Fault>
<faultcode>s:Client</faultcode>
<faultstring>UPnPError</faultstring>
<detail>
<UPnPError xmlns="urn:schemas-upnp-org:control-1-0">
<errorCode>401</errorCode>
<errorDescription>invalid action</errorDescription>
</UPnPError>
</detail>
</s:Fault>
</s:Body>
</s:Envelope>

Zitat von rollstuhlfahrer:

Das Ding heißt leider nur IdHTTP (nicht -Client).

Bei der Suche musste ich feststellen, das IdHTTP fast immer als IdHTTPClient bezeichnet wird. Das Problem ist dabei, dass eine URL benötigt wird, welche ich nicht habe bzw nicht zusammenbekomme. Es gibt einen Host, einen Port und eine ControlURL.

[Garfield]

Auf der Suche nach der Fehlermeldung fand ich diese Lösung: Die gesendete und empfangene Nachricht enden mit dem selben schließenden Tag. Deshalb funktioniert dies:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  TcpClient : TIdTcpClient;
begin
  Memo1.Clear;

  TcpClient      := TIdTcpClient.Create(nil);
  TcpClient.Host := 'fritz.box';
  TcpClient.Port := 49000;
  try
    TcpClient.Connect;
    if TcpClient.Connected
    then begin
      if TcpClient.IOHandler.Connected
      then begin
        TcpClient.IOHandler.Write(Memo3.Text);

        Memo1.Text := TcpClient.IOHandler.WaitFor(Memo3.Lines.Strings[Memo3.Lines.Count - 1]);
        Memo1.Lines.Add(Memo3.Lines.Strings[Memo3.Lines.Count - 1]);
      end;
    end;
  finally
    TcpClient.Disconnect;
    TcpClient.Destroy;
  end;
end;

Code:

HTTP/1.1 200 OK
DATE: Sun, 16 Jan 2011 00:20:28 GMT
SERVER: FRITZ!Box Fon WLAN 7320 UPnP/1.0 AVM FRITZ!Box Fon WLAN 7320 (UI) 100.04.88
CONNECTION: keep-alive
CONTENT-LENGTH: 430
CONTENT-TYPE: text/xml; charset="utf-8"
EXT:

<?xml version="1.0"?>
<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/" s:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"><s:Body>
<u:GetStatusInfoResponse xmlns:u="urn:schemas-upnp-org:service:WANIPConnection:1">
<NewConnectionStatus>Connected</NewConnectionStatus>
<NewLastConnectionError>ERROR_NONE</NewLastConnectionError>
<NewUptime>80745</NewUptime>
</u:GetStatusInfoResponse>
</s:Body> 
</s:Envelope>

Das einzige, was etwas stört, sind die "falschen" Zeilenschaltungen im XML.

Anscheinend ist es ein Fehler in der verwendeten Indy-Version.

[Garfield]

Der Fehler scheint in meiner Fritzbox zu stecken. Bei der Antwort fehlt in der letzten Zeile das LF (#10). Deshalb wartet Indy auf weitere Daten bis die Verbindung geschlossen wird.
___

Nachtrag:

Oben hatte ich die Indy 10-Version welche bei TurboDelphi dabei war verwendet. Bei der aktuellen Indy 10 wird beim WaitFor der angegebene Text mit zurück gegeben.