Как отправить сообщение определенным клиентам? TServerSocket

[S1nt3z]

Здравствуйте. Подскажите пожалуйста, у меня вопрос такого рода:
1. Есть кнопка при нажатии на которую происходит отправка текста из Memo2 всем активным соединениям

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
Socket : TCustomWinSocket;
begin
for i:= 0 to ServerSocket1.Socket.ActiveConnections -1 do
if ServerSocket1.Socket.Connections[i].Handle <> Socket.Handle then
Serversocket1.Socket.Connections[i].SendText(Memo2.Text)
end;

2. Есть CheckListBox при получении от клиента сообщения с определенным текстом добавляет его в этот список с порядковым номером.

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
CheckListBox1.Items.Add(Socket.ReceiveText + ' Подключен!');
end;

3. Собственно вопрос. Как сделать чтобы ServerSocket слал сообщения только checked клиентам из списка, а не всем активным.

Если будет свободное время,потратте его пожалуйста ответом в этот пост Спасибо за внимание

[Пепел Феникса]

нк так проверяйте отмечен или нет

[S1nt3z]

Сообщение от Пепел Феникса

нк так проверяйте отмечен или нет

А как реализовать это не подскажете?

[S1nt3z]

Вот сейчас поменял чуть чуть код. Теперь клиент не получает сообщения. В чем проблема? Помогите пожалуйста

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls, Grids, ValEdit, XPMan, ComCtrls, Menus,
  CheckLst;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ServerSocket1: TServerSocket;
    XPManifest1: TXPManifest;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Memo1: TMemo;
    GroupBox3: TGroupBox;
    Memo2: TMemo;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    CheckListBox1: TCheckListBox;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ServerSocket1ClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Type
 TUserList = object
 Name : String;
 end;
var
  Form1: TForm1;
  users : array[0..255] of TUserList;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
serversocket1.Port := 5696;
serversocket1.Active := true;
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var
  i : integer;
begin
  for i:=0 to ServerSocket1.Socket.Activeconnections -1 do
  begin
  users[i].Name := Socket.ReceiveText;
  Checklistbox1.Items.Add(users[i].Name + 'Ïîäêëþ÷åí!');
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
Socket : TCustomWinSocket;
begin
for i:= 0 to ServerSocket1.Socket.ActiveConnections -1 do
if (CheckListBox1.Checked[i]) and (CheckListBox1.Items.Strings[i]=users[i].Name) then //Ошибка думаю тут при проверке
begin
if ServerSocket1.Socket.Connections[i].SocketHandle <> Socket.Handle then
ServerSocket1.Socket.Connections[i].SendText(Memo2.Text);
end;
end;
procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Memo1.Lines.Add('[-]Client disconnected');
CheckListBox1.Items.Delete(StrToInt(Socket.ReceiveText));
end;



end.

[S1nt3z]

Вопрос исчерпан)) Спасибо

[ODESSA883]

Привет друг !!! Скинь плиз рабочий код или исходник позарес нужен !!!
по serversocet ну по данной теме !!! Заранее благодарен !!!

[ODESSA883]

S1nt3z !!! Скинь рабочий код который у тебя получилься !!!

[ODESSA883]

Сообщение от S1nt3z

Вопрос исчерпан)) Спасибо

Привет друг !!! Скинь плиз рабочий код или исходник позарес нужен !!!
по serversocet ну по данной теме !!! Заранее благодарен !!!