Доброго времени суток. Написал программу, которая использует NetMessageBufferSend для передаи сообщений. Столкнулся с проблемой, что в том случае, если IP адрес введен несуществующий, то программа зависает. Я так понимаю, ждет ответа получателя. Подскажите, пожалуйста, можно ли как-то поставить лимит на время ожидания ответа.

Можно попробовать в поток сунуть:

Код

procedure NetSend(p : pointer); stdcall; begin   NetMessageBufferSend(...); end; ... var h : THandle; begin   h := CreateThread(nil, 0, @NetSend, nil, 0, nil);   if WaitForSingleObject(h, 5000) = WAIT_TIMEOUT then TerminateThread(h, 0);   CloseHandle(h); end;

Спасибо за ответ. Вот что у меня получилось:

Код

procedure TForm1.SendMessageThreat; function NetSend(p: pointer): DWORD; stdcall; var   IP,   msg: string; begin  IP := Edit1.Text;  msg := Edit2.Text;  Result := NetMessageBufferSend(nil, PWideChar(WideString(IP)), nil, PWideChar(WideString(msg)), Length(msg)*2); end; var   h : THandle;   crd: cardinal; begin   h := BeginThread(nil, 0, @NetSend, nil, 0, crd);   if WaitForSingleObject(h, 5000) = WAIT_TIMEOUT then TerminateThread(h, 0);   CloseHandle(h); end;

Программа вываливается в EAccessViolation на строке 10. Никак не могу понять, почему.
Полхоже, NetSend здесь ни при чем. Ее можно всю закомментировать - та же ошибка.

Это сообщение отредактировал(а) Лис - 20.9.2005, 11:51

Если взаимодействуешь с VCL, то надо использовать TThread и метод Synchronize, либо в конструктор потока передавать нужные данные...

Но я сейчас подумал немного и решил, что я тебе неправильно насоветовал... Если уничтожать поток насильно, то не всё освободится скорее всего. Сама NetMessageBufferSend может временно память выделять, открывать какие-нибудь объекты, уничтожив поток, эта память останется висеть ничейной... Вобщем, не очень хорошо.

Поэтому лучше всего перед посылкой сообщения проверить существование этого IP-адреса, пропинговать, смотри соседнюю тему...

У меня была такая идея, но хотел попробовать с потоками разобраться. Спасибо за помощь.