Fórum Erro com POST no IdHTTP do Indy #580936
04/05/2017
0
Estou tentando realizar um post e estou tendo esse erro :
abaixo meu codigo;
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
Curtir tópico
+ 0
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);
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
Clique aqui para fazer login e interagir na Comunidade :)