Последние ответы
Тема Раздел
Пишем бота для Lineage 2 [Delphi] #1 Программирование
Продам DownloaderBot [Торговля] Продажа
Все варианты обхода защит в одной теме! Актуальные уязвимости Lineage 2
Прямые руки или обход Smart Guard? Актуальные уязвимости Lineage 2
Как работать с потоками Delphi? Программирование
Куплю обход защиты СГ [Торговля] Продажа
(Уязвимость) Получаем админку на vBulletin Актуальные уязвимости Lineage 2
Страница 1 из 11
Форум Lineage 2 » Вмешательство в внутриигровой процесс » Программы для Lineage 2 » Программирование » Как работать с потоками Delphi? (Сейчас разберёмся как запускать их и как работать с ними)
Как работать с потоками Delphi?
Дата: Пн, 01.05.2017, 04:14
Администратор Сообщений: 142 Статус: Offline

Привет юный друг... Наверное сидишь и ломаешь голову себе и не можешь понять как работать с потоками? Да ладно, сам был таким, искренне сочувствую, но давай я помогу ее решить в краткой статье smile

Как запускать поток в Delphi?

Код

Thread.Create(false);

Т.е. по сути если взять этот код и засунуть в кнопку, мы запускаем один поток. То, что я ввел вначале Thread - это имя, его можно поставить любым.

Если тебе конкретно требуется запустить по кнопке определенное кол-во потоков, можно применить следующий код:

Код

var
i:integer;
begin
For i:= 1 to 10 do Thread.Create(False);
end;


Этим кодом мы запускаем от 1 до 10 потоков.
Как должен всё-таки выглядеть сам поток? Примерно вот так:

Код

procedure Thread.execute;
begin
//Ваш код или действия
end;


Если ты хочешь чтобы​ в поток выполнялся бесконечно, то можно добавить бесконечный цикл, который будет все время выполнятся. Цикл будет засунут в поток следующим образом:

Код

procedure Thread.execute;
begin
while true:=true do
//Ваш код или действия
end;


В while нужно добавить указатель что это правда, например в кнопку добавить где var , добавляем: true:boolean;
После того как добавили в begin добавляем наш указатель, т.е. говорим нашему запускаемому потоку делать наши повторные действия до бесконечности или нет. Укажите true:=false; он не будет работать до бесконечности, если true:=true; - значит он сработает и будет работать до бесконечности!

Обязательно продолжу со временем эту статью. Всем спасибо!



Зарегистрируйся!:)

Добавить в Skype
Форум Lineage 2 » Вмешательство в внутриигровой процесс » Программы для Lineage 2 » Программирование » Как работать с потоками Delphi? (Сейчас разберёмся как запускать их и как работать с ними)
Страница 1 из 11
Поиск: