Desenvolvimento de um Google!!
07/01/2006
0
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:
Alguém pode me ajudar ?
Vlwww ! :) :) :)
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,[rfReplaceAll]); 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
Curtir tópico
+ 0
Responder
Posts
Clique aqui para fazer login e interagir na Comunidade :)