примеры работы с пайпами на делфи

[Morfik]

Сообщение от NLObP

объект заражен Virus.Win32.Induc.a

хе, хренька которая заражает делфи )

[supernewbie]

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

Добавлено через 23 минуты
вот че я пишу

hTh:=GetCurrentThread;
SuspendThread(hTh);

а потом, при ответе от серва

ResumeThread(hTh);

и нече не резумится(

[NLObP]

supernewbie, у меня есть простенькая прога (лаба дла универа) на сях, работа с пайпами. Дать?

[supernewbie]

блин, если там есть то о чём я грю то давай, а то у всех пайпы не ждут ответа от серва

Добавлено через 18 минут
пля

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;

почему жму на кнопку и нет месаджа?

[NLObP]

Сообщение от supernewbie

блин, если там есть то о чём я грю то давай, а то у всех пайпы не ждут ответа от серва

Клиент-серверное приложение работы с БД. Может поможет. laba2.rar

Доки еще есть.

[SeregaZ]

так может и ерундит из-за этой хреньки, которая заражает дельфи?

[supernewbie]

усё, настроил кажись)

PS эта хренька безвредна, вроде