VPF::Потоки - Форум программистов

Zlo

Дата 5.2.2005, 15:36 (ссылка)

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

Загрузка ...

Бывалый

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

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

Мне надо сделать так что-бы пользователь указывал число потоков, скаже в SpinEdit.
После чего юзер жмет на кнопку и создается указанное в SpinEdit число потоков.
В каждом потоке надо создать компонент idHTTP, и как к этому компоненту обращаться?
Кто-ченить знает подскажите плиз, нигде немогу найти инфу.

Pakshin A. S.

Дата 5.2.2005, 18:16 (ссылка)

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

Загрузка ...

Эксперт

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

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

Бери динамический массив...
Type
TArray = array of TMyThreads;

var
a: TArray;

и т. п.

Или не в этом вопрос?

Zlo

Дата 6.2.2005, 03:30 (ссылка)

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

Загрузка ...

Бывалый

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

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

Не в этом. Точнее я вообще непонял о чем ты.
Может ктонить ченить подскажет?

z-END

Дата 6.2.2005, 10:33 (ссылка)

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

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

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

Так тебе уже почти подсказали =)
создаем класс потока
File->New->Other->Thread Object
к примеру назывем его TheHTTPThread
далее в секции

Код


TheHTTPThread=class(TThread)
{...}
private 
 myHTTP: idHTTP; 
public 
constructor Create (CreateSuspended: Boolean);
destructor Destroy; override;
...
constructor TheHTTPThread.Create (CreateSuspended: Boolean);
begin
inherited Create (CreateSuspended);
myHTTP := idHTTP.Create (nil);
{...}
end;

destructor TheHTTPThread.Destroy; override;
begin
{...}
FreeAndNil (myHTTP);
inherited;
end;

(добавляем соответсвующий модуль idHTTP в Uses)
и в секции execute уже пишем нужный код.
ЗЫ а по поводу инфы - DRKB и CTRL+F1 еще никто не отменял smile

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

Каждый чилавек пасвоему праф...а памоему НЕТ!

Zlo

Дата 6.2.2005, 14:30 (ссылка)

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

Загрузка ...

Бывалый

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

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

А нелбзя просто взять цикл повторить его количество которое указано в SpinEdit и запускать в нем поток?
Или так будет неправильно?

Pakshin A. S.

Дата 6.2.2005, 15:18 (ссылка)

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

Загрузка ...

Эксперт

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

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

А если нам с ним еще работать?

Код


var
 threads: array of TheHTTPThread;

<...>

var
 i:integer;
beign
 SetLength(threads, SpinEdit1.Value);
 for i:=low(threads) to high(threads) do
  begin
   threads[i]:=TheHTTPThread.Create(false);
   <...>
  end;
end;

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