HttpCli.get não responde...como fazer?

Delphi

05/10/2005

Pessoal to colocando dados no FTP, para isso criei um Looping, a cada funcionário ele envia os dados. Só que quando envio muitos ao mesmo tempo no meio do caminho ele para de enviar...

httpcli1.URL := EndHttpEd.Text+Texto;
HttpCli1.Get;


Tentei criar um botão com o comando abort, ai ele retorna um erro:
EHttpException
Connection aborted on request

Alguém tem alguma maneira, tentei o exemplo proprio componente ICS e dá o mesmo erro.


Wgm8

Wgm8

Curtidas 0

Respostas

Massuda

Massuda

05/10/2005

Não trabalhei muito com o ICS, mas...
..to colocando dados no [b:9f49206d3f]FTP[/b:9f49206d3f]... [b:9f49206d3f]http[/b:9f49206d3f]cli1..
...se você está comunicando com um servidor FTP, você não pode usar o THttpCli (da unit HttpProt) pois ele serve para comunicar com servidores HTTP. No seu caso, você precisa usar o TFtpCli (da unit FtpCli); acho que o exemplo FtpTst.dpr (que vem junto com o componente) será útil para você.


GOSTEI 0
Wgm8

Wgm8

05/10/2005

É HTTP mesmo.


GOSTEI 0
Massuda

Massuda

05/10/2005

É HTTP mesmo.
Nesse caso, você sabe se a URL que você está tentando acessar usa GET ou POST para trocar dados?


GOSTEI 0
Wgm8

Wgm8

05/10/2005

Tanto é que os dados são atualizados lá, o problema realmente é que se preciso abortar, ele apresenta aquele erro, gostaria de tratar o erro pra não dar excessão.

EHttpException
Connection aborted on request


GOSTEI 0
Massuda

Massuda

05/10/2005

Desculpe, agora entendi o problema.

A exceção que você está vendo ocorre dentro do THttpCli.Get. Nesse caso, o mais simples é por um try..except...
httpcli1.URL := EndHttpEd.Text+Texto;
try
  HttpCli1.Get;
except
  if HttpCli1.StatusCode = 404 then begin
    // abortou
  end
  else begin
    // outro erro, gera novamente a exceção
    raise; 
  end;
end;
...e testar se o StatusCode é 404.


GOSTEI 0
POSTAR