LAZARUS Enviar datos a PHP usando TFPHTTPClient.

[ramonigimenez]

Hola, Amigos

Tengo el siguiente desafió;
Tengo que hacer una aplicación que haga lo siguiente;
Validar un usuario contra un página php y si esta ok ejecutar un exe que debe estar dentro del ejecutable, todo con lazarus. (la idea seria probar los beneficios de correrlo en distintas plataformas)

Confieso que no tengo experiencia pero me lo tome como desafió.

Hasta el momento hice el form con dos edit de usuario y contraseña y coloque el botón de enviar.
Agregue el TFPHTTPClient en la sección use y en el evento FormCreate del tform1 hice una instancia de este objeto.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
     HTTPClient:=TFPHTTPClient.Create(nil);
     HTTPClient.Post('mipagina.com.ar/data.php', edit1.text);
end;

por lo que estuve mirando debo usar el evento Post de este objeto,lo que no entiendo es como colocar los datos que le quiero enviar a la página.

Espero alguien me pueda dar una ayuda.

Gracias

Sepan disculpar mi fata de conocimientos.

[[movorack]]

Hola,

La verdad no voy a contestar tu interrogante. Mas bien te voy a sembrar mas dudas de las que tienes y de seguro que con investigación y dedicación lograrás sacar el proyecto adelante.

Si quieres usarlo en diferentes plataformas, Puedes buscar información acerca de la construcción y consumo de webservices sea en PHP o en cualquier lenguaje y luego investigar como consumirlos desde lazarus.

Webservices en PHP
Webservices en LAZARUS

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

Revisa esta serie de entradas.
Ahí puedes ver cómo generar un Webservice en PHP. En ese caso es para consultar Bases de Datos. El tuyo parece más simple aun que eso, así que debería ser sencillo.
Como segundo paso está cómo realizar aplicaciones en diferentes versiones de Delphi y con diferentes componentes para interactuar con ese Webservice. Algunas de ellas es utilizando las Indy, así que debería ser casi igual al código que tú necesitas.

[ramonigimenez]

Hola Neftali,

Estuve mirando un poco el tema que me paso movorack, y si es una alternativa.
En la app, inicialmente tengo que enviar usuario y clave para validar contra php.
Pero eso no termina ahi, en una segunda etapa haré un formulario para cargar los usuarios desde una app de escritorio y que se guarden por php.
Investigando un poco, me tope con Indy casualmente, pero lo vi en Delphi.
Así que instale delphi 7, que es la versión que conseguí (Sé que también están las nueva XE7, por lo que vi esta tiene herramientas más integradas con la web) esta vienen con Indy 9 y 10, elegi el 10.

Comencé con el programita pero me esta fallando el método POST del objeto IdHTTP1, voy a seguir probando.

Muchas gracias por la ayuda!

Empezado por Neftali

Revisa esta serie de entradas.
Ahí puedes ver cómo generar un Webservice en PHP. En ese caso es para consultar Bases de Datos. El tuyo parece más simple aun que eso, así que debería ser sencillo.
Como segundo paso está cómo realizar aplicaciones en diferentes versiones de Delphi y con diferentes componentes para interactuar con ese Webservice. Algunas de ellas es utilizando las Indy, así que debería ser casi igual al código que tú necesitas.

[ramonigimenez]

Hola movorack,

Si realmente me haz generado más dudas, si bien programo en php, el tema de lazarus no conozco.
Voy a investigar.

Gracias!

Empezado por movorack

Hola,

La verdad no voy a contestar tu interrogante. Mas bien te voy a sembrar mas dudas de las que tienes y de seguro que con investigación y dedicación lograrás sacar el proyecto adelante.

Si quieres usarlo en diferentes plataformas, Puedes buscar información acerca de la construcción y consumo de webservices sea en PHP o en cualquier lenguaje y luego investigar como consumirlos desde lazarus.

Webservices en PHP
Webservices en LAZARUS

[Osorio]

Por aqui un gran colaborador del club nos ha dejado una guia que te puede ser de mucha utilidad.

http://neftali.clubdelphi.com/?p=3297


Buen animo y exitos con tu proyecto.

[ramonigimenez]

Gracias Amigo!

Realmente me siento contenido por la buena onda de todos.
Gracias a todos!

Empezado por Osorio

Por aqui un gran colaborador del club nos ha dejado una guia que te puede ser de mucha utilidad.

neftali.clubdelphi.com/?p=3297

Buen animo y exitos con tu proyecto.

[[Delphius]]

En ningún momento ramonigimenez ha dicho que sea el desarrollador de la página en cuestión a la que se conecta. Tampoco ha manifestado que incluso esté a su disposición la posibilidad de un webservice, a pesar de que si ha confirmado que se maneja con PHP.

Hasta el momento ha dicho que visita la página, que casualmente está diseñada en PHP, y que en más adelante su idea es ingresar usuarios hacia la misma. Más no ha aportado palabras concretas que el mismo sea el encargado de llevar dicha página. De ser así puedo entender que la mejor opción que le ofrecen uds sería disponer de un WebService y consumirlo con Indy u otras bibliotecas.
Ahora bien, si resulta ser que por "mipagina.com.ar" es un sitio al que el no tiene control, y no ofrecen un webservice pues ya no queda otra que recurrir a otras opciones. Una de ellas es emplear por ejemplo el TidHTTP de Indy. Y viendo el ejemplo de código, intuyo que es este escenario al que se enfrenta realmente.

La cosa se complica un poquito bastante cuando se trata de Lazarus, al ser multiplataforma y si justamente está en sus planes que la aplicación asi lo sea, habrá que considerar alternativas que lleven a eso. No entiendo porque meten a Delphi cuando el propio título aclara que emplea Lazarus. Lo están mareando al pobre.

ramonigimenez, con el componente TidHTTP de Indy puedes visitar el sitio y pasarle como parámetro justamente los datos del usuario. Tanto Post() como Get() tienen versiones sobrecargadas. Entre ellas está la que buscas. Aunque tampoco es estrictamente necesario que invoques a ese método, puedes simplemente navegar hacia la URL concreta que espera los parámetros. Digamos que sea ProcesaDatos.php el escript encargado de recibir los parámetros y generar la página de resultado (o confirmación, o lo que fuese). La URL en cuestión será algo como elsitio.com.ar/procesadatos.php?param1=dato1&param2=dato2. Utiliza el modo desarrollador de Chrome para hacer "ingeniería inversa" y ver como es que llaman los parámetros, el orden en que van y como están parseados.

Con esto te evitas estar armando un TStrings para pasarle los parámetros a la URL y simplemente armas el URL "completo" y le das Post().

Ahora bien, si la idea es luego de hacer un Post() hacia el sitio, obtener una página a la que consultar a modo de consultar si todo anda bien, lo más directo es en lugar de emplear Post() valerse de Get(). Esto te evita un doble disparo del evento WorkEnd. ¿Porqué? Porque se procede a hacer una lectura/escritura del armado del HTML. Con Get() directamente obtienes todo de una.

Para trabajar con parámetros se resume a algo como esto:

Código Delphi [-]
  param := TStringList.Create;
  param.Add('param1=dato1');
  Param.Add('param2=dato2');
  // ... etc
  Memo1.Text := idHTTP1.Post('Sitio.com.ar/Paginaquerecibelosparams', param);

  FreeAndNil(param);

Y para evitarse armarlos, basta con:

Código Delphi [-]
idHTTP1.Post('Sitio.com.ar/Paginaquerecibelosparams?param1=dato1&param2=dato2&etc');

Ahora bien, si necesitas recuperar la página HTML que te genera Get o Post, tengo una advertencia. ¡Necesitas capturar el código fuente original ANTES de que el componente TidHTTP realice su propio trabajo de encode° No se si es cosa de un bug, o es cosa de diseño pero puedes tener problemas entre el encode original que ha sido escrito y definido en el sitio, y el que aplica los componentes Indy. De modo que por ejemplo en el Memo1 que puse a modo de ejemplo termines con cosas como que un texto como Güemes o Ñoqui que ves en cualquier navegador, en el memo te encuentras con G?emes o ?oqui.

¿Cómo hacer esto? Aprovechando otro de los sobrecargados, debes crear un TStringStream en el que recibirás el código fuente, y luego proceder a aplicar el encode que tiene el sitio hacia el esperado (que por lo general, y por regla, Lazarus espera UTF8). Por ejemplo si la página define como encode ISO-8859-1, tu deberas aplicar ISO_8859_1ToUTF8():

Código Delphi [-]
SRC := TStringStream.Create(''); // Vacio!!
  idHTTP1.Get('Sitio.com.ar/Paginaquerecibelosparams?param1=dato1&param2=dato2&etc', SRC);
  Memo1.Text := ISO_8859_1ToUTF8(SRC.DataString);

Ahora verás en el Memo el HTML original correctamente escrito. Lo que resta ya es cosa de "procesar" el HTML y leer lo que necesites.

Saludos,