VPF::Несколько потоков для idFTP? - Форум программистов

Maestro

Дата 5.12.2005, 20:53 (ссылка)

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

Загрузка ...

Новичок

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

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

Помогите, если знаете преведите код. Мне нужно соединится с ервером, узнать о его готовности и отсоединится и так от 10.10.10.1 до 10.10.10.254. Как зделать в десят потоков. Я использую FTP indy:

Код


...
procedure ConnectHost1;
begin
  Form1.IdFTP1.Host:= host;
  try
  Form1.idFTP1.Connect(true, 2500);
  except
    //showmessage('Error!');
  end;
  if Form1.idFTP1.Connected then
    begin
    Form1.idFTP1.Disconnect;
    Form1.ListBox1.Items.Add(Form1.IdFTP1.Host + ' - OK');
    Application.ProcessMessages;
    end;
end;

procedure ConnectHost2;
begin
  Form1.IdFTP2.Host:= host;
  try
  Form1.idFTP2.Connect(true, 2500);
  except
    //showmessage('Error!');
  end;
  if Form1.idFTP2.Connected then
    begin
    Form1.idFTP2.Disconnect;
    Form1.ListBox1.Items.Add(Form1.IdFTP2.Host + ' - OK');
    Application.ProcessMessages;
    end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:= i + 1;
if i1 < 2 then i1:= i1 + 1;
host:= '10.10.10.' + intToStr(i);
if i = 1 then ConnectHost1;
if i = 2 then ConnectHost2;
 ...
  Application.ProcessMessages;
end;

Неработает, не видит серверов...

DemoCode

Дата 5.12.2005, 20:58 (ссылка)

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

Загрузка ...

Опытный

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

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

Используй TThread

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

Жить стало лучше, жить стало веселей
© И.В. Сталин

Maestro

Дата 5.12.2005, 22:29 (ссылка)

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

Загрузка ...

Новичок

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

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

DemoCode, Обьясни пожалуйста, или код преведи!

_hunter

Дата 6.12.2005, 12:00 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

тычеш File->New->Other->Thread Object
и в его метод Execute переносиш свой код. изменяеш конструктор ( или добавляеш свойство ) чтобы получить адрес для соединения. и все...

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

Tempora mutantur, et nos mutamur in illis...

Maestro

Дата 6.12.2005, 18:32 (ссылка)

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

Загрузка ...

Новичок

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

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

Обьясни мне барану популярней.

DemoCode

Дата 6.12.2005, 18:38 (ссылка)

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

Загрузка ...

Опытный

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

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

Тут всё подробно описано:
http://delphiworld.narod.ru/base/threads_development.html

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

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