Форум: "Сети";
Текущий архив: 2003.11.27;
Скачать: [xml.tar.bz2];

Вниз

TServerSocket   Найти похожие ветки 

← →
inwin   (2003-10-01 17:03) [0]

Как правильно разорвать соединение? Делаю так:

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) [1]

да просто одной строчкой

ServerSocket1.Active := False

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2003.11.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.01 c