Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Threads, Threads - как создать потоки? 
:(
    Опции темы
Barovskiy
Дата 19.1.2006, 00:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Цитата(alexeis1 @ 18.1.2006, 18:47 Найти цитируемый пост)

А если запустить тот же поток но с другим действием скажем
for от 1 до 100000000 - ошибка повторится.


У меня цикл - если не конец файла....


Цитата(Guedda @ 18.1.2006, 19:43 Найти цитируемый пост)

Просто напросто поток не успевает выгрузиться.
Попробуй ставить проверку на выгрузку потока.

как его выгрузить тогда?
И как поставить проверку?

поток создаю так
на нем остановился, так как не вылетает ошибок кроме последней...

Код

procedure TForm1.Button1Click(Sender: TObject);
var
h:cardinal;
begin
BeginThread(nil,128,@CheckIP,self,0,h);
end;


Это сообщение отредактировал(а) Barovskiy - 19.1.2006, 00:14
PM MAIL   Вверх
Barovskiy
Дата 19.1.2006, 00:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Цитата(Barovskiy @ 19.1.2006, 00:04 Найти цитируемый пост)

Цитата(alexeis1 @ 18.1.2006, 18:47 )

А если запустить тот же поток но с другим действием скажем
for от 1 до 100000000 - ошибка повторится.




У меня цикл - если не конец файла....



Здесь вылетает ошибка что кончился стринг файл и нечего проверять .....

Ели успокоил программу.... ))))))))))))))))

Это сообщение отредактировал(а) Barovskiy - 19.1.2006, 00:28
PM MAIL   Вверх
Albinos_x
Дата 19.1.2006, 00:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108
попробуй в конце потока выйти из него командой:
Код

ExitThread(0);



--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Barovskiy
Дата 19.1.2006, 01:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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

finally
    s.Free;
    Form1.label9.Caption:='Complite';
    Form1.Label4.Caption:='0';
    Form1.PDJXPButton1.Enabled:=true;
    Form1.memo1.Lines.SaveToFile('Log.txt');

     ExitThread(0);

     end;
     end;
     end;


Сделал так...
всеравно вылетает (((((
PM MAIL   Вверх
Barovskiy
Дата 19.1.2006, 01:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Albinos_x
ОГРОНОЕ СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!

Код

procedure TForm1.FormDestroy(Sender: TObject);
begin
    ExitThread(0);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 ExitThread(0);
end;

end.


Сделал вот так и все заработало!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! smile

ОГРОНОЕ СПАСИБО ВСЕМ КТО МНЕ ПОМОГАЛ!!!!!!!!!!!!!!!!!! Я ОЧЕНЬ ВСЕМ ВАМ БЛАГОДАРЕН ЗА ВАШУ ПОМОЩЬ!!!!!!!!!!!!!!!!
Добавлено @ 02:04
Но тут же возникает другой вопрос :-)

Как из этого примера сделать многопоточность? ведь это только работает в один поток и с одноим циклом, а если заставить его делать этот цикл в двух потоках сразу, или еще больше

из преложенных мне ВАМИ ссылок я нашел вот этот пример

http://forum.vingrad.ru/index.php?showtopi...&hl=threads


:-) или придется делать по другому ?


PM MAIL   Вверх
Barovskiy
Дата 19.1.2006, 02:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Поправка


Прога остается висеть в памяти, не закрывается...... (((((((((((((
PM MAIL   Вверх
Barovskiy
Дата 19.1.2006, 03:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Кажется меня осенило как можно сделать многопоточность в моем случае .....
позже напишу как я задумал, надеюсь получится....
PM MAIL   Вверх
Albinos_x
Дата 19.1.2006, 16:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108
странно что у тебя это не работает..
Код

  Form1.label9.Caption:='Complite';    
    Form1.Label4.Caption:='0';    
    Form1.PDJXPButton1.Enabled:=true;    
    Form1.memo1.Lines.SaveToFile('Log.txt');    
     ExitThread(0);    
     end;    
     end;    
     end;


Это сообщение отредактировал(а) Girder - 21.1.2006, 00:06


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Barovskiy
Дата 20.1.2006, 19:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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

Работает только если я ставлю
ExitThread(0);
когда программа закрывается... онклоус

но прога из памяти не выгружается ... продолжает висеть в процессах ...
PM MAIL   Вверх
Albinos_x
Дата 20.1.2006, 21:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108
в любом случае вариант
Код

procedure TForm1.FormDestroy(Sender: TObject);    
begin    
    ExitThread(0);    
end;    
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);    
begin    
 ExitThread(0);    
end;

будет вызывать ошибку, т.к. 2 раза закрыть закрыть одно и тоже нельзя...а в этом варианте темболее закрываешь не из потока... программа просто скрывается и виснет... если хочешь закрывать не из потока, то наверно лучше его убить командой:
Код

TerminateThread(H,0);

где H - HANDLE созданного тобой потока...

Это сообщение отредактировал(а) Girder - 21.1.2006, 00:06


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Barovskiy
Дата 29.1.2006, 23:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Цитата(Albinos_x @ 20.1.2006, 21:53 Найти цитируемый пост)

если хочешь закрывать не из потока, то наверно лучше его убить командой:

код Pascal/Delphi
1:TerminateThread(H,0);

где H - HANDLE созданного тобой потока...


сделал так
TerminateThread(ChekIP,0);

не компилирует , выдал вот это
[Error] Unit1.pas(370): Incompatible types: 'Cardinal' and 'procedure, untyped pointer or untyped parameter'

что вмето 0 поставить?
PM MAIL   Вверх
Демо
Дата 30.1.2006, 00:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50
1. Вообще-то, дескриптор(Handle) потока у тебя возвращает функция BeginThread, который ты не запоминаешь нигде.
2. TerminateThread - аварийное завершение потока. А нужно ли?
3. Как выше было написано, проще сделать нормальную синхронизацию, а не заниматься садомазохизмом через одно место.
4. Если можешь выслать мне свою программу, высылай - посмотрю, что можно сделать. Тогда стучи в PM.


--------------------
    
PM MAIL ICQ Skype   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0527 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.