IDHTTPServer und Rückgabewert

[GuenterS]

Hallo,

ich habe eine Kombination zweier Programme, welche über das HTTP Protokoll kommunizieren sollen (z.B. Statusabfrage).

Im "client" habe ich folgenden Code platziert

Delphi-Quellcode:

lStream := TStringStream.Create('');
try
   lResultStr := IDHTTP.Post('http://192.168.1.5/status', lStream);
finally
  lStream.Free;
end;

Im Serverteil des anderen Programmes habe ich folgendes:

Delphi-Quellcode:

procedure TForm1.HTTPSRVCommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  if (UpperCase(ARequestInfo.Document) = '/STATUS') then
    aResponseInfo.ContentText := '1';
end;

Ich würde nun gerne im Client, den Rückgabewert auswerten können, aber das kommt einfach nicht an. Vermutlich verwende ich einfach eine falsche Eigenschaft.

Hat vielleicht jemand einen Hinweis was ich falsch mache?