Помогите пожалуйста. Как мне отключить пользователя? Процедура провкрки:
Код:
if cmd = '101' then
begin
UserConnect(name,Form1.ListBox1);
end;
if cmd = '102' then
begin
UserConnect(name,Form1.ListBox2);
end
else
begin
//здесь должен отключаться
end;
Регистрация если прошел проверку:
Код:
type
PPacket = ^Packet; {Указатель на запись}
Packet = record {Запись с данными о пользователе}
Nick:string;
end;
...........
Text := Copy(msg,4,MaxInt);
New(NewClient);
NewClient^.Nick := Text;
Form1.ServerSocket1.Socket.Data := NewClient;
ListBox.Items.Add(Text);
Пробовал:
Код:
for i:= 0 to Form1.ServerSocket1.Socket.ActiveConnections - 1 do
if PPacket(Form1.ServerSocket1.Socket.Connections[i].Data)^.Nick = 'test.1' then
begin
showmessage('found')
end
else
begin
Form1.ServerSocket1.Socket.Disconnect(i);
showmessage('+');
//break;
end;
но на 2 рядке ошибка EAccessViolation