Adaptar código a FMX Android

[wilcg]

Amigos del foro nuevamente por aqui,
Estoy realizando una aplicación Android, y necesito ayuda con este codigo. Ya que para WINDOWS funciona correctamente y para ANDROID me da error.

Código Delphi [-]
const
  URL = 'http://www.sunat.gob.pe/cl-at-ittipcam/tcS01Alias';

Código Delphi [-]
// Obtenemos la página
  IdHTTP1.Get(URL);

  // Efectuamos el POST con los parámetros requeridos
  Params := TStringList.Create();
  Params.Values['anho'] := '2018';
  Params.Values['mes'] := '1';

  try
    Response := IdHTTP1.Post(URL, Params);
  finally
    Params.Free;
  end;

  // Creamos un documento HTML con los datos obtenidos
  Documento := coHTMLDocument.Create as IHTMLDocument;  //<<<<<<<<=====AQUI ME MARCA EL ERROR  ===========>>>>>>>>
  Documento.Write(Response);
  Documento.Close();

Como convertir esa linea a ANDROID o alguna solución diferente pero que haga la misma función.

[Ñuño Martínez]

¿Y qué error te da?

[wilcg]

El error me marca aquí

Código Delphi [-]
Documento := coHTMLDocument.Create as IHTMLDocument;

Teniendo en cuenta esto en WINDOWS, que funciona bien

Código Delphi [-]
uses 
  ActiveX, MSHTML;

Pero para FMX Android me da error.

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

Empezado por wilcg

Teniendo en cuenta esto en WINDOWS, que funciona bien
Código Delphi [-]uses ActiveX, MSHTML;


Pero para FMX Android me da error.

De todas formas diría que MSHTML es una librería para Windows, por lo tanto es lóigico que para Android no esté funcionando.
Y diría que en algún momento el IDE te debería haber avisado de esto.

[Ñuño Martínez]

Empezado por wilcg

El error me marca aquí

Código Delphi [-]
Documento := coHTMLDocument.Create as IHTMLDocument;

Teniendo en cuenta esto en WINDOWS, que funciona bien

Código Delphi [-]
uses 
  ActiveX, MSHTML;

Pero para FMX Android me da error.

Eso ya lo entendí en el primer mensaje, pero seguimos sin saber qué error te da. Léete el punto 3 de la Guía Alternativa de Estilo.

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

Empezado por Ñuño Martínez

¿Y qué error te da?

+1

Te has dejado lo más importante...