1

preciso obter o resultado de um link e colocar em um memo. Vou explicar melhor em exemplos:

Vou acessar o link: http://www.xxx.com.br/teste.php?Teste (esse endereço vai me retornar a palavra OK.

É possível acessar esse esse endereço via idHTTP, pegar esse resultado e colocar em um Memo ? Sei que via WININET é possível.

2 Respostas 2

1

É possível sim.

Basta utilizar o método Get do IdHttp, assim:

procedure TForm1.Button1Click(Sender: TObject);
 Const
   LINK = 'http://www.xxx.com.br/teste.php?Teste';
begin
   IdHTTP1.HandleRedirects := True;
   IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';

   Memo1.Text := IdHTTP1.Get(LINK);
end;
8
  • Esse método como está retorna o código fonte da página. Se (e somente se) o OP estiver utilizando a última versão do indy, ele poderia obter o que solicitou com o comando http.Get(LINK, nil);, porém para que o método funcione em versões mais antigas do indy, acho melhor utilizar o método head. Commented 25/06/2014 às 12:45
  • @Sunstreaker, não deu certo, ele da erro Forbiden, o endereço para TESTE verdadeiro é esse: escritoriocontatos.com.br/teste.php?LETRA
    – user7605
    Commented 25/06/2014 às 13:24
  • @Filipe.Fonseca, ele deu erro de Forbiden no seu também. Veja o endereço escritoriocontatos.com.br/teste.php?LETRA
    – user7605
    Commented 25/06/2014 às 13:43
  • @user7605 apenas a carater de teste, retire temporariamente seu htaccess da pasta / e tente novamente. Commented 25/06/2014 às 14:28
  • @Filipe.Fonseca, acabei de retirar e testei de novo, ele aparece no showmessage o codigo 403. Mais já conferi tudo, ta tudo certo....
    – user7605
    Commented 25/06/2014 às 14:55
0

Utilize o método HEAD, lembrando que caso a resposta não seja 200 (ok), a rotina vai cair em exceção e esta deve ser tratada.

Segue exemplo conforme o solicitado na pergunta:

procedure TForm1.Button1Click(Sender: TObject);
var
  http : TIdHttp;
  url : string;
  codigo : integer;
begin
  url := 'http://www.xxx.com.br/teste.php?Teste';
  http := TIdHTTP.Create(nil);
  try
    try
      http.Head(url);
      codigo := http.ResponseCode;
    except
      on E: EIdHTTPProtocolException do
        codigo := http.ResponseCode;
    end;
    ShowMessage(IntToStr(codigo));
  finally
    http.Free();
  end;
end;

Lembrando que para fazer surgir a palavra OK, basta fazer uso de um case na variável código. Para isso, segue lista de códigos de resposta HTTP

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .