GARANTIR DESCONTO

Fórum Erro com POST no IdHTTP do Indy #580936

04/05/2017

0

Estou tentando realizar um post e estou tendo esse erro :
HTTP/1.1 401 Unauthorized


abaixo meu codigo;



procedure TForm2.Button1Click(Sender: TObject);
var dados : TStrings;
    retorno : string;
begin
  IdHTTP1.Request.CustomHeaders.Clear;
  IdHTTP1.Request.ContentType := 'application/json';
  IdHTTP1.Request.Connection  := 'Keep-Alive';
  IdHTTP1.Request.UserAgent   := 'User-Agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.96 Safari/537.36';
  IdHTTP1.HandleRedirects := true;

  dados := TStringList.Create();
  try
    dados.Add(Memo1.Text);

    retorno := IdHTTP1.Post('http://127.0.0.1:888/api/teste/pedido_venda/inclui',dados);
  finally

  end;

  dados.Free;
end;
Robson Morais

Robson Morais

Responder

Posts

05/10/2017

Paulo Junior

Faça diferente, ao invés de receber o retorno direto na string passe para um objeto do tipo TstringStream e depois use deste objeto o método DataString.

Ex.:

retorno := TstringStream.Create;

IdHTTP1.Post('http://127.0.0.1:888/api/teste/pedido_venda/inclui', dados, retorno);
ShowMessage(retorno.DataString);
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar