Форум: "Сети";
Текущий архив: 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.43 MB
Время: 0.009 c