Ver Mensaje Individual
  #49  
Antiguo 19-08-2008
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
A ver, lo que pongo a continuación es un poco cutre, pero puede servir de comienzo:

Código Delphi [-]
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
var
  HTMLDoc: IHTMLDocument3;
  HTMLElement: IHTMLElement;
  HTMLInput: IHTMLInputElement;

begin
  HTMLDoc := WebBrowser1.Document as IHTMLDocument3;

  HTMLElement := HTMLDoc.getElementById('navbar_username');
  if Assigned(HTMLElement) then
  begin
    HTMLInput := HTMLElement as IHTMLInputElement;
    HTMLInput.value := 'user';

    HTMLElement := HTMLDoc.getElementById('navbar_password');
    if Assigned(HTMLElement) then
    begin
      HTMLInput := HTMLElement as IHTMLInputElement;
      HTMLInput.value := 'password';

      HTMLInput.form.submit;
    end;
  end;
end;

Lo que este código hace es esperar a que termine de cargarse la página de búsqueda del ClubDelphi para entonces preguntar si existen los cuadros de edición de usuario y contraseña (lo cual querría decir que no hay sesión iniciada). Entonces pueden proveerse los valores que se guardarían en el archivo de configuración para cada usuario del BuscaDelphi Soft y se hace el submit. Con eso se vuelve a cargar la página ya con sesión iniciada.

// Saludos
Responder Con Cita