No hay respuestas en este tema

[tiquinho]

Buenas tardes a todos

 

tengo un problema cuando intento conectarme a un servicio REST

 

El error es HTTP/1.0 400 Bad Request

 

Este es el código:

php

var
 
  sResponse,url: string;
  JsonToSend: TStringStream;
  HTTP1: TIdHTTP;
 
begin
 
  url:= 'http://54.39.180.178:8087/app_dev.php/cuenta/login';
 
  JsonToSend := TStringStream.Create(Utf8Encode(Json)); // D2007 and earlier only
  //in D2009 and later, use this instead:
 
  try
    HTTP1 := TIdHTTP.Create;
    HTTP1.Request.Clear;
    HTTP1.HandleRedirects := True;
    HTTP1.ReadTimeout := 5000;
    HTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
    HTTP1.Request.ContentEncoding := 'utf-8';
    HTTP1.Request.BasicAuthentication := True;// FBasicByDefault
 
    HTTP1.Request.BasicAuthentication := True;
    HTTP1.Request.Authentication := TIdBasicAuthentication.Create;
    HTTP1.Request.Authentication.Username := 'SITIS';
    HTTP1.Request.Authentication.Password := 'a@a';
 
    try
      sResponse := HTTP1.Post(url,JsonToSend) ;
    except
      on E: Exception do
        ShowMessage('Error on request: '#13#10 + e.Message);
    end;
  finally
    JsonToSend.Free;
  end;

cuando ejecuta el post me sale el error, no se que me falta configurar.

 

Si lo hago por el postmart me funciona. Les adjunto la imagen

 

Agradezco la ayuda que me puedan aportar