LAZARUS Enviar datos a PHP usando TFPHTTPClient.

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

[ramonigimenez]

ecfisa,
Gracias por la indicación lo tendré en cuenta para la próxima vez.

Delphius
Desconozco por completo CodeTyphon (Disculpas si hago consultas muy tontas, pero tengo días en el mundo Delphi y freepascal), lo voy a investigar.


Después de haber encontrado la solución en Delphi, decidí seguir en este lenguaje. Sé que es medio tirado de los pelos (poco lógico) lo que quiero hacer, pero necesito resolver esto.

Inicialmente la aplicación debe manejar el control de usuarios contra una DB MySQL (que será parte de un sistema más grande web), cuando el usuario este logeado lanzar otro ejecutable que debe estar embebido en el login anterior, en el que debo completar con un usuario y contraseña genérico (que no puedo modificar), después de esto se habre el programa de gestión.

Les dejo un diagrama para intentar ser más claro en mi twitter (No me deja colocar ni link, ni url)
@ramonigimenez

PD: Para completar el login2 automáticamente probé el lenguaje AutoIT y parece que funciona.


Sé que deben tener mucha dudas de porque debo hacer este programa así. Entonces les comento (Se los debo por la ayuda que me brindaron hasta el momento), debo hacer esto porque no tengo acceso a agregar usuarios para la aplicación principal, y los fuentes del programa están desactualizados y no puedo replicar el entorno de desarrollo que utilizaba el programador, por mi falta de conocimiento y mi poca casi nula experiencia en estos lenguajes. Sé que usaba controles JCL y JVCL, además de otros componente.
Lamentablemente el programador falleció en un accidente y por eso estoy intentando solucionar lo que pueda como para seguir con el sistema. Contacte con varios programadores Dlephi, acá en Buenos Aires, Argentina pero ninguno si animo a seguir.

Si alguno esta dispuesto a darme una mano con la instalación del entorno de manera remota aviseme (por supuesto, también dígame el valor hora para ver si esta dentro de mi presupuesto)

ESPERO NO HABER ESTADO FUERA DE LUGAR!!!
Saludos cordiales a todos y muchas gracias nuevamente!!!

Ramon Gimenez
ramon_gimenez@hotmail.com

[[Delphius]]

Las preguntas no hechas son tontas. No soy quien para decir si el diseño del software esta bien o mal. Tu ya lo veras en la medida que avances. Aunque si me resulta peculiar...
Respecto a CodeTyphon, se trata de una edicion y distribucion de Lazarus mas completa. Lazarus por defecto viene con unos cuantos componentes. CodeTyphon lo que hace es instalarte Lazarus y cientos de componentes extras, todo con unos pocos clics. Eso si: la gente de CT toma lo ultimo del SVN de lazarus y de los componentes para hacer sus scripts de instalacion asi que no hay garantia de que sean libres de bug.
Hay quienes prefieren tener el control de que instalar en Lazarus y evitan CT. Y otros prefieren la facilidad de CT y asumen el "riesgo".
Yo hasta ahora no tuve problema critico con CT.
Para tu caso en particular no te sabria decir si Lazarus viene con Indy instalado o si esta en la lista de disponibles para instalar o hay que descargarlo. Con CT ya viene.

Saludos