¿Como completar datos en una pagina Web mediante codigo?

[lamasdf]

Hice algo de codigo y por ahora esta funcionando les paso lo que hice. Hasta ahora llegue a cargar el usuario, la clave y hacer click en el link de Login para ingresar.

Código Delphi [-]

procedure TForm1.BotonInicioClick(Sender: TObject);
begin
   WebBrowser1.Navigate('190.210.55.97/wap/teleexpress/pos');
   Label2.Caption:='Comienza Carga';
end;

procedure TForm1.ButtonSalirClick(Sender: TObject);
begin
   Form1.Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
  li: Word;
  CantItem,i: Integer;
  ovElemento: OleVariant;
  loslink: OleVariant;
  j: integer;
 begin

   ovElemento := WebBrowser1.OleObject.Document.forms.item(0).elements;

{ Rutina usada para identificar cuales son los numero de cada item de la pagina web
   CantItem:=ovElemento.Length;
   Label7.Caption:=InttoStr (CantItem);
   for i := 0 to (ovElemento.Length - 1) do
    Begin
       Memodatosweb.Lines.Add(ovElemento.item(i).tagName);
       Memodatosweb.Lines.Add(ovElemento.item(i).type);
       Memodatosweb.Lines.Add(ovElemento.item(i).Value);
    end;
  }
   ovElemento.item(2).value:='loly3'; // Carga Usuario
   ovElemento.item(3).value:='loly';  // Carga Clave

   loslink := WebBrowser1.OleObject.Document.links;

{ Rutina para saber todos los link de la pagina web, lo muestra en un ListBox
    Label8.Caption := inttostr(loslink.length);
    for j := 0 to loslink.length - 1 do
      Listbox1.Items.Add(loslink.item(j));
  }
    loslink.item(0).click;     // Hace click en Login para entrar con el usuario y clave

 end;

[lamasdf]

Voy limpiar el codigo un poco para que se entienda

Código Delphi [-]


procedure TForm1.BotonInicioClick(Sender: TObject);
begin
   WebBrowser1.Navigate('190.210.55.97/wap/teleexpress/pos');     //CARGA LA PAGINA WEB
   Label2.Caption:='Comienza Carga';
end;

procedure TForm1.ButtonSalirClick(Sender: TObject);                   // BOTON PARA SALIR DE LA APLICACION
begin
   Form1.Close;
end;

procedure TForm1.Button2Click(Sender: TObject);                       // BOTON PARA INICIAR LA CARGA DE DATOS
Var
  li: Word;
  CantItem,i: Integer;
  ovElemento: OleVariant;
  loslink: OleVariant;
  j: integer;
 begin

   ovElemento := WebBrowser1.OleObject.Document.forms.item(0).elements;

   ovElemento.item(2).value:='loly3'; // Carga Usuario es 2 porque lo identifique, se muestra en el mensaje anterior
   ovElemento.item(3).value:='loly';  // Carga Clave

   loslink := WebBrowser1.OleObject.Document.links;
   loslink.item(0).click;     // Hace click en Login para entrar con el usuario y clave ya cargados. Es 0 porque es
                                  //  el unico link en la pagina

 end;

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

Recuerda añadir TAG's a los mensajes cuando añadas código.
estos ya los modifico yo.

[edy_aca]

Muchas gracias muy bueno