Текущий архив: 2003.11.27;
Скачать: CL | DM;
Вниз
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;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.026 c
