Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
31.05.2007, 18:32
|
|
Banned
Регистрация: 13.09.2006
Сообщений: 523
Провел на форуме:
2869410
Репутация:
925
|
|
|
|
|
01.06.2007, 00:52
|
|
Флудер
Регистрация: 20.11.2006
Сообщений: 3,316
Провел на форуме:
16641028
Репутация:
2371
|
|
Помогите с потоками Расскажите пожалуйста как создавать потоки с помощью TThread....
Что, как для чего и т.п. 
И покажите например как сделать чтобы одновременно вывелось 2 сообщения ну или чтобы одновременно записались ...
Вообщем покажите как делать потоки.
Спасибо |
|
|
|
01.06.2007, 01:12
|
|
Участник форума
Регистрация: 09.02.2004
Сообщений: 122
Провел на форуме:
1089794
Репутация:
134
|
|
|
|
|
|
01.06.2007, 01:15
|
|
Постоянный
Регистрация: 11.03.2007
Сообщений: 581
Провел на форуме:
4172659
Репутация:
646
|
|
Значит так в двух словах. Открываешь делфню - там проект пустой. Сохраняешь его в папку какую-нибудь. Потом выполняешь файл - создать - другое - объект потока. В классе написать можно что-нибудь типа TMyThread. Создастся новый модуль с методом Execute - то, что должно выполняться в потоке. Для теста можно всунуть что-нибудь, что должно занять пару секунд на выполнение, например winexec(какая-нибудь большая прога, sw_show). Этот модуль подключаешь к проекту и сохраняешь в ту же папку. В проекте делаешь кнопку, на ней событие, например такое
Код:
var
potok: TMyThread;
begin
potok := TMyThread.Create(true);
potok.Resume;
messagebox(handle,'хай','xaй',mb_iconerror or mb_ok);
end;
Ну и в итоге получается, что мессажбокс вылазит, не дожидаясь загрузки какой-нибудь большой программы.
З.Ы. Если поток что-то с интерфейсом проги мутит, нужно синхронизацию юзать
З.З.Ы. Я лично апишками потоки мучу, имхо удобней |
|
|
|
01.06.2007, 12:14
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
Я для работы с потоком юзаю вот такие вот вещи:
Код:
var
thread_id:array[1..100] of dword; // типа 100 потоков можно будет юзать
..........
procedure mypotok(id:dword);stdcall;
begin
..............
end;
.......
for x:=1 to 100 do
begin
thread_id[x]:=CreateThread(nil, 0, @mypotok, pointer(x), 0, thread_id[x]); // запустить потоки
SuspendThread(thread_id[x]); // приостановить потоки
ResumeThread(thread_id[x]); // возобновить работу потоков
TerminateThread(thread_id[x],0); // прибить поток
end;
Всё На чистом апи. При запуске потока ему передается его номер (ID) |
|
|
|
03.06.2007, 13:35
|
|
Новичок
Регистрация: 18.05.2007
Сообщений: 4
Провел на форуме:
17137
Репутация:
0
|
|
Помогите решить пару задачек плиз
две параболы на плоскости заданы коэфициэнтами своих уравнений. Выяснить, существуют для них точки пересечения, если есть, то найти их
Задав пользователю только один дополнительный вопрос с ответом "да" или "нет", определить, писать окончание "ым" или "ом" в мужском и среднем роде прилагательных. ( Например в словах новом, новым)
|
|
|
|
03.06.2007, 15:55
|
|
Участник форума
Регистрация: 11.07.2006
Сообщений: 125
Провел на форуме:
413927
Репутация:
71
|
|
Сообщение от trOid
Задав пользователю только один дополнительный вопрос с ответом "да" или "нет", определить, писать окончание "ым" или "ом" в мужском и среднем роде прилагательных. ( Например в словах новом, новым)
Вопрос: Правильно будет написать "ым"?
ответ: да\нет =)
|
|
|
|
03.06.2007, 17:41
|
|
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
Провел на форуме:
5128756
Репутация:
2032
|
|
Сообщение от trOid
Помогите решить пару задачек плиз
Задав пользователю только один дополнительный вопрос с ответом "да" или "нет", определить, писать окончание "ым" или "ом" в мужском и среднем роде прилагательных. ( Например в словах новом, новым)
поясни условие =)
|
|
|
|
03.06.2007, 17:59
|
|
Постоянный
Регистрация: 12.12.2006
Сообщений: 906
Провел на форуме:
4205500
Репутация:
930
|
|
Сообщение от trOid
две параболы на плоскости заданы коэфициэнтами своих уравнений. Выяснить, существуют для них точки пересечения, если есть, то найти их
Решаем систему уравнений. все элементарно.
|
|
|
|
05.06.2007, 12:36
|
|
Новичок
Регистрация: 04.06.2007
Сообщений: 3
Провел на форуме:
12414
Репутация:
1
|
|
Хай всем! Я ламер ушастый, прошу не дергать за уши. Так это было вступление. Меня интересует, возможно ли отправка сообщений на мыло с помощью дельфина. Заранее благодарю. Кстати это мое первое сообщение. Можете поздравить.
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
