BuscaDelphi Soft.

[[felipe88]]

Empezado por TOPX

Mmm, bueno, en cuanto a la aplicación web opino que serviría cualquier cosa que soporte el hosting de quien patrocine este proyecto... mmm, tal vez yo tenga acceso a uno con soporte a Php 5, así, puede que alguien en el foro tenga acceso a alguno con soporte a Isapi, Asp u otras que prefieran.

Y en cuanto a Google, alguien publicó hoy una idea similar en http://delphi.fosdal.com/2008/08/goo...nd-delphi.html .

Vaya... eso suena tentador , 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 ...

Quien se apunta ...

[[felipe88]]

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 ...

[[enecumene]]

Empezado por felipe88

Hola a todos,

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

Espero sus comentarios ...

Pues sí, tengo un sólo comentario ,

intereZantes se escribe intereSantes

te quemaste en la venta,

[[felipe88]]

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

[MAXIUM]

Empezado por felipe88

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 ...

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

[[felipe88]]

Empezado por MAXIUM

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

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

[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