Obtener json de una URL

[look]

Empezado por Neftali [Germán.Estévez]

El problema es que a ese código [look] le falta la parte de acceder a una dirección HTTPS.
Para hacerlo (a diferencia d una HTTP) tienes que usar un componente TIdSSLIOHandlerSocket que se "engancha" con el TidHttp y que es el que se encarga de cargar las DLL's para poder usar SSL.

hola, y si utilizamos mejor un NetHTTPClient ???

Código Delphi [-]
function GetJSON(test: string): string;
var
  NetHTTP: TNetHTTPClient;
  lParamList: TStringList;
begin

  lParamList := TStringList.Create;
  lParamList.Add('dummy='+test);
  NetHTTP := TNetHTTPClient.Create(nil);
  try
    Result := NetHTTP.Post('https://........./root/demo/GetJSON.php', lParamList).ContentAsString;
  finally
    NetHTTP.Free;
    lParamList.Free;
  end;

end;