Una simple correccion aqui(Nada nuevo aun:cool:), no he encontrado la forma de efectuar la busqueda en "El Rincocito Delphi" y CodeGear los resultados algunos no parecen ser muy practicos, en cuanto al componente de eduarcol lo quise tomar de base para crear una rutina que cargue los "motores" de un archivo ini y por cada resultado me cree una nueva pestaña y adentro su webbrowser... alguna sugerencia :rolleyes:?

Vaya... eso suena tentador :rolleyes:, pero yo solo no seria capaz ya que tengo minimo conocimiento al respecto en cuanto aplicaciones web, y viendo la buena acogida y participacion de muchos... varias cabezas piensan mejor que una :rolleyes:...

Quien se apunta ;)...

Nueva version!!!
 

Hola a todos,

Como venia anticipando, publico a disposicion de todos ustedes la ultima version del BuscaDelphi... espero se puedan aprovechar las interesantes propuestas hechas, por ahora disfrutenlo ;)...

Espero sus comentarios :rolleyes:...

Pues sí, tengo un sólo comentario :D:D,

te quemaste en la venta, :D:D:D

A bestia!!!... era para llamar mas la atencion :D

Puse "pacman" y no encontré nada relacionado con Delphi...

No le encuentro gracia. Haber como te saltas el captcha y automatizas todo. :confused:

Hola,
Si leiste bien, en el hilo comentamos eso... recuerda que para el caso del Club Delphi debes estar registrado y con el "Recuerdame" en Internet Explorer ;)

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

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

Por ejemplo, en el mismo archivo motores.ini:

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

// Saludos

A bueno... es valida la idea... pero creo que la tendre en cuenta para la proxima :D, 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? :confused:

Entonces pobre Lars, le falló la "Custom Search". Pero igual, sí le atinó a coincidir con la idea de felipe88.

A propósito Sergio, estuve pensando en la idea que propones... estoy afinando un poco mis conocimientos :rolleyes::o a ver si llego a algo...

Qué bien, yo seguiré pendiente por si también se puede aportar más :)...

En algún momento pensé que podría intentarse usar Indy para realizar las búsquedas, un parser de HTML para extraer los resultados de las respuestas, y la interfaz IHTMLDocument3 para escribir todo en un solo WebBrowser con un formato personaliz(ado|able), pero no sabría cómo manejar las paginaciones de cada sitio. Por ello, lo que mencionan del Google Custom Search, puede ser más viable: se consultan varios sitios a través de uno sólo, y se presentan los resultados en una página o en u webbrowser.

Porque, conforme se vayan agregando sitios de búsqueda, y los correspondientes webbrowser, me temo que la aplicación se tornaría cada vez más pesada y lenta.

// Saludos