Desenvolvimento de um Google!!

07/01/2006

Pessoal, estou desenvolvendo um Google, mas, quando digito o que eu quero procurar, ele não retorna o código em ´HTML´ para depois eu filtrar ele...
Acho que o erro está aqui:

procedure TFprincipal.CsConnect(Sender: TObject; Socket: TCustomWinSocket);
var
  xmldata:string;
  comando:string;
  site:string;
  host:string;
begin
  host := ´www.google.com´;
  site := ´/custom?q=´;
  xmldata := stringReplace(Mtest.Text,´#´,Edpor.Text,&91;rfReplaceAll&93;);
  With Cs.Socket do
  begin
      SendText(´GET ´ + site + ´HTTP/1.0´ + 13);
      SendText(´User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1´ + 13);
      SendText(´Host: www.google.com´ + 13);
      SendText(´Accept: */*´ + 13);
      SendText(´Connection: Close´ + 13);
  end;
end;


Alguém pode me ajudar ?
Vlwww ! :) :) :)


Zuera

Respostas

07/01/2006

Zuera

Ninguém tem nenhuma idéia duq seja naum ? :( :( :(


Responder Citar