var
ID: Cardinal;
ThreadHandle: THandle;
begin
ThreadHandle := CreateThread(nil, 0, @Thread, nil, 0, ID);
SetThreadPriority(ThreadHandle, THREAD_PRIORITY_LOWEST);
end;
потоки
граждане, кто может подсказать как создавать и работать с потоками, напишите пжалста, поподробнее, сразу спасиба!!!:D
блин.... в делфи потоки мутяться не так сложно... но я помню столкнулся с проблемами при глобальных переменных.... создаються -> File->New->Other->Thread Object ... потом указываешь название класса...
а в методе Execute пишешь что должно выполняться с потоками....
из программы создаешь поток.... и т.д.
короче поподробнее не объяснить, но если срочно надо, то пиши потоки на WinAPI (быстрее будет, ИМХО):
пишется так:
@Thread -- адресс на функцию, в которой выполняется что-то (в потоке)
SetThreadPriority(ThreadHandle, THREAD_PRIORITY_LOWEST); - устанавливаем приоретет потоку Low ...
Это был вызов потока... потом пишешь что должно выполняться в потоке, т.е. функцию Thread.... выглядеть должна примерно так:
Не забудь поставить объявление функции перед
implamentation :-)
вот такое
function NetThread(Data : pointer) : integer;
-------
удачи в это деле )))
а в методе Execute пишешь что должно выполняться с потоками....
из программы создаешь поток.... и т.д.
короче поподробнее не объяснить, но если срочно надо, то пиши потоки на WinAPI (быстрее будет, ИМХО):
пишется так:
Код:
@Thread -- адресс на функцию, в которой выполняется что-то (в потоке)
SetThreadPriority(ThreadHandle, THREAD_PRIORITY_LOWEST); - устанавливаем приоретет потоку Low ...
Это был вызов потока... потом пишешь что должно выполняться в потоке, т.е. функцию Thread.... выглядеть должна примерно так:
Код:
function Thread(Data : pointer) : integer;
begin
// Какие-то вычисления и т.п.
end;
begin
// Какие-то вычисления и т.п.
end;
Не забудь поставить объявление функции перед
implamentation :-)
вот такое
function NetThread(Data : pointer) : integer;
-------
удачи в это деле )))
у TThread есть метод синхронизации
без синхронизации приложение частенько подвисает
без синхронизации приложение частенько подвисает
Цитата: ahilles
у TThread есть метод синхронизации
без синхронизации приложение частенько подвисает
без синхронизации приложение частенько подвисает
Если из треда нет обращения к VCL то и Synchronize не нужен. А подвисать может и по причине одновременного доступа к общим ресурсам разных тредов приложения, если наплевать на механизмы синхронизации ядра.:)
обычно чайникам треды нужны для вывода прогресса при выполнении операций с файлами, вот здесь то и вся проблема
Цитата: DeBUGGeR
но если срочно надо, то пиши потоки на WinAPI (быстрее будет, ИМХО):
пишется так:
пишется так:
Код:
CreateThread(nil, 0, @Thread, nil, 0, ID);
Суперский код. А ты читал документацию к делфи, где написано, что CreateThread ни в коем случае нельзя использовать в явном виде!?
В таком случае ты получаешь кучу "странных" ошибок из-за неверной работы менеджера памяти, который будет всё ещё thread-unsafe.
Для решения этой проблемы в делфи существует функция BeginThread, она переводит менеджер памяти в потокобезопасный режим, создает враппер для дельфийских исключений в новом потоке и вызывает в конце концов CreateThread.
Цитата: ahilles
обычно чайникам треды нужны для вывода прогресса при выполнении операций с файлами, вот здесь то и вся проблема
Согласен, просто они не знают, что существует асинхронный ввод-вывод. :)