VPF::IdFTP - подвисает при закачке - Форум программистов

Snowy

Дата 30.8.2006, 09:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Удаляй в Thread.Execute, если есть флаг Terminated/ После вызова Upload.

inside

Дата 30.8.2006, 10:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 12.7.2006

Репутация: нет
Всего: нет

Но ведь тогда у меня сначала закачается файл полностью, а потом я его удалю. А мне надо отменить закачку в процессе.

Execute такой

Код


begin
ftp:=TIdFTP.Create(nil);
    with ftp do begin
        Username:='...';
        Password:='...';
        Host:='...';
        ftp.OnConnected:=FTPConnected;
        ftp.OnWorkEnd:=FTPWorkEnd;
        ftp.OnWork:=FTPWork;
        ftp.OnWorkBegin:=FTPWorkBegin;
        Connect;
        Put(RFileSource, RFileName);
        Disconnect;
    end;
    ftp.Free;
end;

Если я проверю свойство Terminated после Put, то у меня наверное сначала файл закачается, а потом уже отмена произойдет. Верно. Ещё раз спрошу - может можно в методе OnWork?

Snowy

Дата 30.8.2006, 10:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Сделай Abort smile

inside

Дата 31.8.2006, 17:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 12.7.2006

Репутация: нет
Всего: нет

Не получаеться =(((

вот процедура

Код


procedure MThread.FTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
   f:=Round(AWorkCount/max_bytes*100);
   if Terminated then begin
      ftp.Abort;
      ShowMessage(IntToStr(ftp.Size(RFileName)));
      ShowMessage('Proccess killed!');
      end;
   Synchronize(make_corr);
end;

когда посылаешь команду Thread.Terminate не появляется никакое сообщение...

Если ShowMessage('Proccess killed!') поставить перед ftp.Abort то появляется => ftp.Abort провоцирует какую-то ошибку.... =(( Что делать, Snowy?

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »