Программинг Форум для тем связанных с программированием
05.06.2011, 15:26
#21
Рыцарь
Регистрация: 13.10.2009
Сообщений: 665
Сказал Спасибо: 38
Имеет 172 спасибок в 108 сообщенях
Цитата:
Сообщение от
NLObP
хе, хренька которая заражает делфи )
05.06.2011, 15:59
#22
Местный
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
блин короче семафор не подходит, у меня ведь там не разные потоки, по идее надо просто засуспендить поток после отправки, запомнить его и резумнуть его после прихода ответа от серва
Добавлено через 23 минуты
вот че я пишу
hTh:=GetCurrentThread;
SuspendThread(hTh);
а потом, при ответе от серва
ResumeThread(hTh);
и нече не резумится(
__________________
Н а ч а л о .
Последний раз редактировалось supernewbie, 05.06.2011 в 15:59 .
Причина: Добавлено сообщение
05.06.2011, 16:01
#23
Рыцарь
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
supernewbie , у меня есть простенькая прога (лаба дла универа) на сях, работа с пайпами. Дать?
05.06.2011, 16:25
#24
Местный
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
блин, если там есть то о чём я грю то давай, а то у всех пайпы не ждут ответа от серва
Добавлено через 18 минут
пля
delphi Код:
hTh:cardinal ;
procedure Test;
begin
hTh:=GetCurrentThread;
SuspendThread( GetCurrentThread) ;
MessageBox( 0 , 'Resumed' , '' , 0 ) ;
end ;
procedure TForm1.FormCreate ( Sender: TObject ) ;
var
c:Cardinal ;
begin
CreateThread( nil , 0 , @Test, nil , 0 , c) ;
end ;
procedure TForm1.Button1Click ( Sender: TObject ) ;
begin
ResumeThread( hTh) ;
end ;
почему жму на кнопку и нет месаджа?
__________________
Н а ч а л о .
Последний раз редактировалось supernewbie, 05.06.2011 в 16:25 .
Причина: Добавлено сообщение
05.06.2011, 16:25
#25
Рыцарь
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
Цитата:
Сообщение от
supernewbie
блин, если там есть то о чём я грю то давай, а то у всех пайпы не ждут ответа от серва
Клиент-серверное приложение работы с БД. Может поможет.
laba2.rar
Доки еще есть.
Последний раз редактировалось NLObP, 05.06.2011 в 16:34 .
За это сообщение NLObP нажился 2 спасибками от:
05.06.2011, 17:39
#26
Местный
Регистрация: 16.08.2009
Сообщений: 1,224
Сказал Спасибо: 4
Имеет 229 спасибок в 182 сообщенях
так может и ерундит из-за этой хреньки, которая заражает дельфи?
__________________
хочу картинку в подпись!
05.06.2011, 18:11
#27
Местный
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
усё, настроил кажись)
PS эта хренька безвредна, вроде
__________________
Н а ч а л о .
Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
Часовой пояс GMT +4, время: 19:09 .
vBulletin style designed by
MSC Team .
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод:
zCarot
Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!