集成WebSocket通信-Delphi idHTTP

Question

Olá，

通过WebSocket实现uma集成的com com API，使用idHTTP的组件，porém，minha chamada esta retornando vazia，alguémpoderia me auxiliar？ abaixo ocódigo：

var
  URL, Retorno, sResposta: String;
  JsonStreamRetorno, JsonStreamEnvio: TStringStream;
  Cliente: TIdHTTP;
begin 
  URL := 'http://172.16.40.221:8085';
  JsonStreamEnvio := TStringStream.Create(RetornarChamadaDiscador);
  JsonStreamRetorno := TStringStream.Create('');
  Cliente:=TIdHTTP.Create(Application);
  try
    begin
    Cliente.Request.Clear;
    Cliente.Request.BasicAuthentication := false;
    Cliente.Request.ContentType := 'application/json';
    Cliente.Request.Connection  := 'keep-alive';
    Cliente.Request.UserAgent   := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.96 Safari/537.36';
    Cliente.Request.AcceptEncoding := 'gzip, deflate';
    Cliente.Request.AcceptLanguage := 'pt-BR,pt;q=0.8,en-US;q=0.6,en;q=0.4';
    Cliente.Request.CacheControl := 'no-cache';
    Cliente.Response.ContentType := 'application/json';
    try
     sResposta:=Cliente.Post(URL, JsonStreamEnvio);
     ShowMessage(sResposta);
    except on E:EIdHTTPProtocolException do
       ShowMessage(e.ErrorMessage);
  end;
end;
   finally
     //> Nenhuma dessas formar funciou para pegar o retono 
     mmRetorno.Lines.LoadFromStream(JsonStreamRetorno);
     mmRetorno.Lines.add('1=' + JsonStreamRetorno.DataString);
     mmRetorno.Lines.add('3=' + Retorno);
 end;

Muito obrigado。