F�rum Http.Get criando memory leacs #549823

30/03/2016

Bom dia galera, eu estou com uma d�vida que algum tempo j� vem me tirando do s�rio.
Eu implementei um m�todo que faz o download de um arquivo utilizando o Http.Get, at� a� tudo bem, mas quando o servidor est� indispon�vel, mas minha internet est� funcionando, o processo fica travado no get, n�o passa dele, e como eu utilizo o get em uma thread, ao encerrar o programa, memoryleacs s�o geradas referente � thread an�nima que ficou rodando por conta do get.
Gostaria de saber como resolver esse problema de n�o passar do Get quando o servidor est� indispon�vel?

Adhemar Alves

Curtir t�pico

+ 0

Responder

Posts

30/03/2016

Mateus Ribeiro

Bom dia! Vc pode fazer um PING no servidor para testar se est� dispon�vel ou n�o, antes do comando Get!

Responder

Gostei + 0

30/03/2016

Adhemar Alves

Bom dia! Vc pode fazer um PING no servidor para testar se est� dispon�vel ou n�o, antes do comando Get!

Amigo, tem como fazer ping sendo que meu servidor tem login e senha?

Responder

Gostei + 0

30/03/2016

Adhemar Alves

Bom dia! Vc pode fazer um PING no servidor para testar se est� dispon�vel ou n�o, antes do comando Get!

Amigo, tem como fazer ping sendo que meu servidor tem login e senha?

Responder

Gostei + 0

31/03/2016

Mateus Ribeiro

Boa tarde! Eu encontrei uma fun��o que testa servidor que possui usu�rio e senha. Eu n�o testei se funciona!

function CanConnect(const aUserName, aPassword, aHost: String; out aErrm: string): boolean;
var
  LocalIDFTP: TIdFTP;
begin
  aErrm := '';
  LocalIDFTP := TIdFTP.Create(nil);
  try
    LocalIDFTP.UserName := aUserName;
    LocalIDFTP.Password := aPassword;
    LocalIDFTP.Host     := aHost;
    LocalIDFTP.Passive  := True;
    try
      LocalIDFTP.Connect;
      LocalIDFTP.Quit;
      result := true;
    except
    on E: Exception do
      begin
        aErrm := 'Unable to connect to FTP site: ' +  E.Message;
        Result := FALSE;
      end;
    end;
  finally
    if Assigned(LocalIDFTP) then
      LocalIDFTP.Free
    else
      Result := FALSE;
  end;
end;

Responder

Gostei + 0