get hangs application

Giganews Newsgroups
Subject: get hangs application
Posted by:  Jonas (easysoft_studi…@hotmail.com)
Date: Mon, 4 Oct 2004

Hi

I've created a ftp-client session like:

var
  FTP: TIdFTP;
  AT: TIdAntiFreeze;
begin
  try
    AT := TIdAntiFreeze(nil);
    FTP := TIdFTP.Create(nil);
    with FTP do begin
      Host := 'vvv.xxx.yyy.zzz;
      Username := '$username';
      Password := '$password';
      Connect;
      ChangeDir('Applications');
      Get('somefile.txt', 'C:\downloads\get.file', True);
      Disconnect;
    end;
  finally
    FTP.Free;
    AT.Free;
  end;

If the file I want to get is very large (say many hundreds of MB), my
application simply hangs, and i cant do nothing.
I can see that it connects fine, and that the file is being transfered,
since its size at client-side increases.

Im using Indy 10.0.19-B

How do I solve this problem?

Thanks in advance

Best regards
Jonas

Replies