VPF::как использовать Timer с FTP - Форум программистов

wadas

Дата 13.2.2011, 23:00 (ссылка)

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

Загрузка ...

Новичок

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

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

общая схема:
------
программа соединяется с FTP

Код


FIdFTP.Connect(True,7500);

но в ходе работы бывает связь с FTP зависает. и все встает
Хочу перед началом работы соединения поставить таймер с интервалом например 10000 мс. если по истечении этого
интервала соединения не произойдет или не сработает disconnect в течении 7500 мс, то соединение рвется по таймеру.
------
как сделать разрыв связи по таймеру?

Код


TMyTimer = class(TTimer)
public
constructor Create(AOwner: TComponent); override;
procedure Tick(Sender: TObject);
end;

constructor TMyTimer.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Enabled:=false;
Interval:=10000;
end;
...
TMyThread.Execute
begin
fd_Timer:=TMyTimer.Create(nil);
fd_Timer.Enabled:=true;

FIdFTP.Connect(True,7500);

// и как записать, что прошло время по таймеру и сделать разрыв с сервером или, не подключились, порвать запрос к нему??
end;
...

MetalFan

Дата 14.2.2011, 15:08 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

wadas, а разве нет стандартных св-в ConnectTimeout Read/WriteTimout? Зачем колесо изобретать?

--------------------

There are always someone smarter than you...

wadas

Дата 15.2.2011, 21:16 (ссылка)

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

Загрузка ...

Новичок

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

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

Точно использовал ConnectTimeout. Спасибо, что напомнили.

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