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:

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

Zuera

Responder

Posts

07/01/2006

Zuera

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


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar