обновление в блоге - Создание многопользовательского чата

[Beermonza]

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

Я организовал отправку файлов с клиента на сервер, через сокеты, но сервер принимает за раз только 1 поток, какой нужен компонент что бы сервер мог принимать файлы сразу от нескольких клиентов, и имел возможность при приеме файлов, сам отсылать их? Возможно ли таое вообще ?

TServerSocket имеет событие OnClientRead. При чтении пакета запроса клиента создается свой экземпляр события, т.е. это многопоточность. Создавай в этом событии код обработки, связанный только с приемом/передачей файлов, с проверкой подлинности (событие возвращает сокет, который вызвал событие).

[vipkursk]

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

Используйте восстановление заголовка (назначьте сново заголовок) в конце таймера сканирования у сервера и чтения пакета у клиента.

Не могу найти код, который изменяет Caption у формы. Удалил все Application.Title:=Caption, а название формы все равно меняется. Или я туплю с утра

[Beermonza]

Сообщение #621 прочти, там описана причина смены Caption формы.

[darek13]

Beermonza
Подскажи пжл, как у тебя в коде клиена в процедуре
procedure TForm2.ClientSocketConnect(Sender: TObject; Socket: TCustomWinSocket);
можно узнать ник пользователя который прислал сообщение тебе, до того как сообщение появится в ChatRichEdit, ник можно запомнить в какой то переменной например niktemp:string;
А то я сделал так что бы при приходе личного сообщения на клиенте создаваль новая страница с его сообщениями, но вот имя страницы надо что бы было ник пользователя, а вот присвоеть этот ник странице не получается.
Создание страницы в PageControl осуществляется в команде №3 procedure TForm2.ClientSocket2Read

 3: begin
        TabSheet := TTabSheet.Create(Self);
        TabSheet.Caption :=???????;
        TabSheet.PageControl := PageControl1;

        RichEdit := TRichEdit.Create(Self);
        RichEdit.Parent := TabSheet;
        RichEdit.Align := alClient;

        ToolBar := TToolBar.Create(Self);
        ToolBar.Parent := TabSheet;
        ToolBar.Align := alTop;

        TabSheet.ImageIndex:=0;
        RichEdit.Text :=('' + Copy(txt,7+Length(Nik),len-Length(Nik)-1));
       end;

Вот что где ?????? нужно вставить за параметр?

[Beermonza]

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

Beermonza Подскажи пжл, как у тебя в коде клиена в процедуре procedure TForm2.ClientSocketConnect(Sender: TObject; Socket: TCustomWinSocket); можно узнать ник пользователя который прислал сообщение тебе, до того как сообщение появится в ChatRichEdit, ник можно запомнить в какой то переменной например niktemp:string;

Посмотри серверный код на прием приватного сообщения, case: 3. Там в пакет привата вшит отправитель отдельно, можно вытащить вот так:

  // укажем начальный символ
  pos := 6;
  // обнулим счетчик символов
  x := 0;

  // пробегаем по длине принятой строки
  For j := pos to len + 1 do
    Begin
      // записываем в счетчик сдвиг
      Inc(x);

      // если найден ключ (конец части ника в строке)
      If Copy(nettext, j, 1) = Chr(152) then
        Begin
          // сохраняем ник приватного пользователя
          niktemp := Copy(nettext, pos, x-1);

          // сброс цикла
          break;
        end;
    end;

Смотри сам, может тебя не устраивает структура пакета, ...меняй последовательность составных частей, выкидывай лишнее, но не запутайся.

[darek13]

ну так это ж на сервере, а на клиенте как: у меян отдельно севре от клиента

[Beermonza]

Я тебе сказал скопировать часть кода сервера в клиент, ...код тот, что показал, его засунь в клиента на прием приватного сообщения.

[darek13]

На сервере я понял где и как, а как вылучить из стоки той что приходил на клиент с личным сообщением
у тебя она

ShowColorMassage(Copy(txt,1,5)+Copy(txt,7+Length(Nik),len-Length(Nik)-1), 1);

у меян сейчас

RichEdit.Text :=('' + Copy(txt,7+Length(Nik),len-Length(Nik)-1));

вот как записать ник отправителя личного сообщения в TabSheet.Caption :=???????;

[darek13]

Я только что сделал так и все отличо рабоатет, выделяет ник, но он почему то выделяет свой же ник, т.е. создается вкладка как показано на рисунке

[Beermonza]

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

На сервере я понял где и как, а как вылучить из стоки той что приходил на клиент с личным сообщением
у тебя она

ShowColorMassage(Copy(txt,1,5)+Copy(txt,7+Length(Nik),len-Length(Nik)-1), 1);

у меян сейчас

RichEdit.Text :=('' + Copy(txt,7+Length(Nik),len-Length(Nik)-1));

Так же как на сервере, так и у клиента, ...сервер транслирует пакет не изменяя его, показал код, его и помести в клиент.

ShowColorMassage(Copy(nettext,1,5)+Copy(nettext,7+Length(NikEdit.Text),len-Length(NikEdit.Text)-1), 1);

...этот код экономит время, ...все равно ник в пакете равен твоему (сервер не ошибается), легче взять твой ник не перебором из пакета, а прямо с твоего окошка ника.