Array
(
)

Desenvolvimento de um Google!!

Zuera
   - 07 jan 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:

#Código

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
   - 07 jan 2006

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