| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TServerSocket
inwin © (2003-10-01 17:03:00)
Как правильно разорвать соединение? Делаю так:
procedure TMainForm.StopServer;
var
i: integer;
begin
try
with ServerSocket1 do
begin
for i:=0 to Socket.ActiveConnections-1 do
Socket.Connections[i].Close;
Close;
end;
except
end;
end;
//-------------------------------------------------------------
но постоянно появляется ошибка "access ....". Что не так?
Digitman (2003-10-01 17:08:00) [1]
да просто одной строчкой
ServerSocket1.Active := False
| |
