Http Delete

[Reinaldo Alberto]

Meus caros, 

Alguém  tem um exemplo de como trabalhar com Delete no Indy 10.0.52 ?

Essa versão chama o post, put e get normal, sem problemas, mas não tem o Delete entre seus métodos. Aí estou fazendo da seguinte forma: chamo o ancestral do IdHttp - HtAcess e passo o hmDelete como parâmtro pro Request, mas me retorna um Bad Request. 

Se tiverem uma solução alternativa como Synapse também aceito. 

 

function Thoradosalao.DeleteServico(Id: Integer): String;
var
  lhttp :TIdHTTP;
  lparams :TStringList;
  lresponse :TStringStream;
  lhttpAcess : TIdHTTPAccess;
begin
  lhttp := TIdHTTP.Create;

  lparams := TStringList.Create;
  lresponse := TStringStream.Create('');
  try
    try
      //lhttp.Request.CustomHeaders.Values['Authorization'] := Ftoken;
      lhttpAcess := TIdHTTPAccess(lhttp);

      lparams.Add(IntToStr(Id));

      lhttpAcess.Request.CustomHeaders.Values['Authorization'] := Ftoken;
      lhttpAcess.Request.Accept := 'text/html';
      lhttpAcess.Request.ContentType := 'application/json';
      lhttpAcess.Request.ContentEncoding := 'utf-8';

      lhttpAcess.DoRequest(hmDelete, 'http://exemplo.com, nil, lresponse, [] );

      lresponse.Position := 0;

      Result := IntToStr(lhttp.ResponseCode);
    except on E :Exception do
      Result := 'Erro: ' + E.Message;
    end;
  finally
    lhttp.Free;
  end;
end;