BuscaDelphi Soft.

[roman]

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

[[felipe88]]

Bueno roman ese aporte esta interesante, pero como seria la parte de "Proveer los valores", ¿de donde se toman y a donde se envian?

[roman]

Por ejemplo, en el mismo archivo motores.ini:

[Club Delphi]
URL=www.clubdelphi.com/foros/search.php?do=process&query=
usuario=...
password=...

[Delphi About]
URL=http://delphi.about.com/sitesearch.htm&SUName=delphi&TopNode=99?terms=

[Google]
URl=www.google.com/search?q=

¿A dónde se envian? Eso es lo que hace el código

// Saludos

[[felipe88]]

A bueno... es valida la idea... pero creo que la tendre en cuenta para la proxima , por ahora pienso dejarlo asi... ademas dado el procedimiento que uso:

Código Delphi [-]
procedure TFrmBusca.Cargar;
var ini:TIniFile;
    pag,url:TStringList;
    Page:TPageControl;
    wb: TWebBrowser;
    i:Integer;
    s:String;
begin
  ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'motores.ini');
  pag := TStringList.Create;
  url := TStringList.Create;
  if FileExists(ExtractFilePath(Application.ExeName) + 'motores.ini') then
    begin
      ini.ReadSections(pag);
      Page := TPageControl.Create(Self);
      Page.Parent := Self;
      Page.Align := alClient;
      progreso.Max := pag.Count;
        for i:=0 to pag.Count -1 do
          begin
            ini.ReadSectionValues(pag[i],url);
            with TTabSheet.Create(Page) do
              begin
                Caption := pag.Strings[i];
                Align := alClient;
                PageControl := Page;
                wb := TWebBrowser.Create(Page);
                TWinControl(wb).Parent := Page.Pages[i];
                wb.Align := alClient;
                s := Copy(url.Text,5,Length(url.Text));
                wb.Navigate(s + bus.Text);
              end;
            progreso.Position := i+1;
          end;
    end;
end;

¿Que deberia usar?, ¿una condicion?