PDA

Ver la Versión Completa : Adaptar código a FMX Android

wilcg
10-01-2018, 19:09:05
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.
const
URL = 'http://www.sunat.gob.pe/cl-at-ittipcam/tcS01Alias';
// 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
10-01-2018, 19:20:17
¿Y qué error te da?
wilcg
10-01-2018, 20:51:11
El error me marca aquí
Documento := coHTMLDocument.Create as IHTMLDocument;

Teniendo en cuenta esto en WINDOWS, que funciona bien
uses
ActiveX, MSHTML;

Pero para FMX Android me da error.
Neftali [Germán.Estévez]
11-01-2018, 08:42:25
¿Y qué error te da?

+1

Te has dejado lo más importante...
Neftali [Germán.Estévez]
11-01-2018, 08:45:51
Teniendo en cuenta esto en WINDOWS, que funciona bien
Código Delphi [-] (http://www.clubdelphi.com/foros/#)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
11-01-2018, 18:11:42
El error me marca aquí
Documento := coHTMLDocument.Create as IHTMLDocument;

Teniendo en cuenta esto en WINDOWS, que funciona bien
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 (http://www.clubdelphi.com/foros/guiaestilo.php#guiaalternativa). :rolleyes: