Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема с RasHangUp [D7]


ДмитрийК ©   (2003-04-21 08:12:00) 

Добрый день!
У меня есть код для разрыва соединения

procedure TRAS.HangUp;
var
status: TRasConnStatus;
begin
Log.Write("TRAS.HangUp");
RasHangUp(FHRasConn);
status.dwSize := sizeof(TRasConnStatus);
while ERROR_INVALID_HANDLE <> RasGetConnectStatus( FHRasConn, status) do
begin
Log.Write(".");
Sleep(1000);
if KbHit then
begin
Log.Write("HangUp прерван вручную. Соединение осталось открытым.");
Exit;
end;
end
end;

Так вот периодически соединени не закрывается, а связь сотовая так что это неприемлимо. МОжно в таком случае как-то обрубить всетаки соединение?


George   (2003-05-04 05:56:00) [1]

Надо просто закрыть прогу, с помощью, которой ты соединился.


ДмитрийК   (2003-04-21 08:34:00) [2]

В догонку.
У меня этот код иногда вызывается 2 раза подряд практически без задержки. Может ли это быть причиной проблемы?


Наверх

Титульная страница Поиск, карта сайта Написать письмо