|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
ServerSocket отключение клиєнтов
Помогите пожалуйста. Как мне отключить пользователя? Процедура провкрки:
Код:
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; |