LAZARUS Enviar datos a PHP usando TFPHTTPClient.

[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,

[ramonigimenez]

Muchachos,

A todos disculpas si no he sido lo suficientemente claro en la descripción del problema.
Tomando como base lo que han dicho todos, lo resolví casi igual a como lo menciono Delphius.

Les dejo el código,

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  usuario:String;
  contrasena:String;

begin
  usuario:=Edit1.Text;
  contrasena:=Edit2.Text;

  IdHTTP1:= TIdHTTP.Create(nil);
  IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';

  (* Enviar por POST *)
  Parametros := TStringList.Create;
  (*Parametros.Add('var1=RamonArgentina');
  Parametros.Add('var2=SegundoValor');*)
  Parametros.add('var1=' + usuario);
  Parametros.Add('var2=' + contrasena);

  Memo1.Text:=Parametros.Text;

  Memo1.Text:=IdHTTP1.Post('mipagina.com.ar/recibe-post.php',Parametros);
  ////////
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  usuario:String;
  contrasena:String;

begin
  usuario:=Edit1.Text;
  contrasena:=Edit2.Text;

  IdHTTP1:= TIdHTTP.Create(nil);
  IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';

  (* Enviar por GET *)
  Memo1.Text:=IdHTTP1.Get('mipagina.com.ar/recibe-get.php?var1='+usuario+'&var2='+contrasena);
end;

NOTA:
Lo hice en delphi por que en Lazarus se me complico la instalación de indy.

Aprovecho para consultar se puede embeber otro ejecutable en mi programa o no se puede hacer?


GRACIAS A TODOS!!!

[ecfisa]

Hola ramonigimenez.

Muchas gracias por publicar la solución que encontraste.


Por favor, cuando pongas código en tus mensajes usa las etiquetas, de este modo:

(ya las agregué a tu mensaje)

Saludos

[[Delphius]]

Desconozco que complejo sea instalar Indy en Lazarus; si usas CodeTyphon la cosa es mucho más sencilla ya que CT lo que hace es intalarte Lazarus con varios componentes, y entre ellos Indy.
Si tienes dificultades para instalarlo acude al propio foro de Indy en su sitio oficial o bien al de Lazarus/FreePascal. En este último la gente es muy buena y acuden en ayuda muy rápido. Las veces que he tenido alguna duda (mi problema con el encode que describo lo he consultado ahí) no he tenido dificultades. Es una comunidad muy activa.

Lo de embeber un ejecutable dentro de otro la verdad es que no sabría indicarte algo; no se si será posible al menos en una solución que sea multiplataforma. En Delphi una vía es valerse de archivos de recursos .res pero no si para Lazarus este mismo enfoque pueda aportar utilidad en un mundo multiplataforma.

Saludos,