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?