VPF::ServerSocket - Форум программистов

blazhko

Дата 31.7.2009, 18:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 12.12.2007

Репутация: нет
Всего: нет

Привет! Я хочу реализовать отправку сообщений с TServerSocket определенной группе клиентов. Т.е. при подключении ник клиента добавляется в CheckListBox, помечаем потом несколько клиентов и отправляем им сообщения.

Пробовал реализовать так,но выдает ошибку:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls, CheckLst;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    ServerSocket1: TServerSocket;
    Button2: TButton;
    Edit1: TEdit;
    NameList: TCheckListBox;
    procedure Button1Click(Sender: TObject);
    procedure ServerSocket1ClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Type
  TUserList = object
  Name: String;    // имя (ник)
  Handle: Integer; // id клиента
 end;




var
  Form1: TForm1;
  log:string;
  len,com:integer;
  UserMas: array[0..255] of TUserList;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 serversocket1.Active:=true;
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 Memo1.Lines.Add('Client connected');
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  i,j: Integer;
begin
 log:=Socket.ReceiveText;
 com:=StrToInt(Copy(log,1,1));
 len:=Length(log)-1;
 if com=1 then
 begin
   {NameList.Items.Add(Copy(log,2,len));}

      For i:=1 to ServerSocket1.Socket.ActiveConnections do
        Begin
          UserMas[i].Name:=Copy(log,2,len);
          UserMas[i].Handle:=ServerSocket1.Socket.Connections[i].SocketHandle;
          NameList.Items.Add(UserMas[i].Name + ' ' + IntToStr(UserMas[i].Handle));
        end;
  {Memo1.Lines.Add('Nick= ' + Copy(log,2,len) + IntToStr(ServerSocket1.Socket.Handle));}
 end else
 begin
  Memo1.Lines.Add('Message= ' + Copy(log,2,len));
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 i:integer;
begin
For i := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
  If (NameList.Checked[i]) and (NameList.Items.Strings[i]=UserMas[i].Name) then
   begin
     if ServerSocket1.Socket.Connections[i].SocketHandle <> UserMas[i].Handle then
     ServerSocket1.Socket.SendText(Edit1.Text);
   end;
 end;

end.

kami

Дата 31.7.2009, 18:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 6
Всего: 72

Цитата(blazhko @ 31.7.2009, 18:24

)

Пробовал реализовать так,но выдает ошибку:

текст ошибки, значения, конечно, не имеет....

Приведи полный текст ошибки, и где (на какой строчке) возникает.

На первый взгляд могу сказать только:

Цитата(blazhko @ 31.7.2009, 18:24

)

ServerSocket1.Socket.SendText(Edit1.Text);

заменить на

Код


ServerSocket1.Socket.Connections[i].SendText(Edit1.Text);

Добавлено через 1 минуту и 54 секунды

Цитата(blazhko @ 31.7.2009, 18:24

)

com:=StrToInt(Copy(log,1,1));

на второй взгляд:
а что ты будешь делать, если клиент отправляет "12345", а на сервер приходит сперва "123" а потом "45" (это более чем возможная ситуация). ???

kami

Дата 31.7.2009, 19:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 6
Всего: 72

И на третий взгляд:
1. массив UserMas - лишний.
Для хранения информации о пользователе лучше воспользоваться свойством Data, присутствующем в Socket, обслуживающем соединение (т.е. в ServerSocket.Socket.Connections[i].Data). В это свойство легко "запихиваются" как записи, так и объекты. Единственное, на что стоит обратить внимание - создание и своевременное уничтожение этих данных.
2. Зачем хранить в UserMas хендлы сокетов, если они и так имеются в TCustomWinSocket? Тем более, что статический массив не обеспечивает правильной работы с сокетами. Как пример: есть пользователи 1, 2, 3. Пользователь 2 отключился. В ServerSocket остались пользователи 1 (как и раньше - с индексом 0) и 3 (был с индексом №2, теперь с индексом №1). Потом пользователь 2 опять подключился. И в ServerSocket теперь порядок пользователей - 1, 3, 2. Эту ситуацию со статическим массивом обрабатывать несколько неудобно.

blazhko

Дата 31.7.2009, 21:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 12.12.2007

Репутация: нет
Всего: нет

Ошибка : List index out of bounds (1)

kami

Дата 31.7.2009, 21:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 6
Всего: 72

Цитата(blazhko @ 31.7.2009, 21:39

)

Ошибка : List index out of bounds (1)

ГДЕ? На какой строке кода?

blazhko

Дата 31.7.2009, 21:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 12.12.2007

Репутация: нет
Всего: нет

Да когда приходит сообщение с данными клиента.

kami

Дата 31.7.2009, 21:53 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 6
Всего: 72

Цитата(blazhko @ 31.7.2009, 21:50

)

Да когда приходит сообщение с данными клиента.

Может, все-таки ответишь на мой вопрос? На. Какой. Строке. Кода. Вываливается. Ошибка.

Добавлено через 5 минут и 46 секунд
Ладно, не буду долго мучить.
На будущее совет - если на форуме спрашивают что-то (для того, чтобы понять где и в чем скрылась ошибка), нужно отвечать по существу и полностью на поставленный вопрос.

Ошибка у тебя в коде скрылась здесь:

Цитата(blazhko @ 31.7.2009, 18:24

)

For i:=1 to ServerSocket1.Socket.ActiveConnections do

Индексация соединений у ServerSocket начинается с 0, а не с 1. И лучше сразу приучить себя всё нумеровать с нуля - легче будет потом.
Поэтому правильный код для ServerSocket1ClientRead будет

Код


For i:=0 to ServerSocket1.Socket.ActiveConnections-1 do

Добавлено через 8 минут и 47 секунд
И на всякий случай - перечитай мои предыдущие сообщения, бо логика, которую ты закладываешь в программу годится только для несложных тестовых примеров. Если собираешься сделать рабочую программу, то лучше сразу стараться сделать ее правильно.

хотя о чем это я - сам несколько лет назад делал сетевое приложение, считая его код идеальным. Сейчас даже боюсь смотреть на его исходники - инфаркт хватит...

blazhko

Дата 31.7.2009, 22:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 12.12.2007

Репутация: нет
Всего: нет

Спасибо огромное!=)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »