Ver Mensaje Individual
  #9  
Antiguo 15-12-2015
ramonigimenez ramonigimenez is offline
Miembro
 
Registrado: ago 2015
Posts: 11
Reputación: 0
ramonigimenez Va por buen camino
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!!!

Última edición por ecfisa fecha: 15-12-2015 a las 21:10:07. Razón: Etiquetas [delphi][/delphi]
Responder Con Cita