чат-сокеты

[betirsolt]

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

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if ServerSocket1.Active then
 ServerSocket1.Close;
end;
procedure TForm1.FormCreate(Sender: TObject);
 var s: string;
begin
 ServerSocket1.Open;
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var s: string;
 i: Integer;
begin
  s := Socket.ReceiveText;
for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do
 ServerSocket1.Socket.Connections[i].SendText(s);
 Exit;
 end;
end.

вот код клиента

procedure TForm1.Button2Click(Sender: TObject);
 var s: string;
begin
 s :=nicname+':'+ edit1.Text;
ClientSocket1.Socket.SendText(s);
 edit1.Text:='';
 end;
procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var s:string;
begin
s := Socket.ReceiveText;
Memo1.Lines.Insert(0,Copy(s,1,Pos(';',s)-1)+'> '+
 Copy(s,Pos(';',s)+1,Length(s)-Pos(';',s)));
 Exit;
 end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_RETURN then
 Button2.Click;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 ClientSocket1.Open;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
form1.Enabled:=false;
form2.showmodal;
end;
end.

кто нибудь помогите добавить эти возможности к этому чату

[russian-stalker]

Я делал так:
1. Хранил в первом байте нужное действие(например 1-сообщение в общий чат, 2-сообщение в приватный и тогда следующие байты до первого пробела-ник) и потом отправлял это серверу
2. На сервере читал первый байт и выполнял нужное действие
Типа:

s := Socket.ReceiveText;
if s[1]='1' then 
memo1.lines.add(copy(s,2,length(s)-1));

И т.п
3. Делал класс TUser и хранил в нём имя, номер его соединения(для сервера, чтобы быстро найти нужное соединение) и прочие данные

[betirsolt]

Сообщение от russian-stalker

Я делал так:
1. Хранил в первом байте нужное действие(например 1-сообщение в общий чат, 2-сообщение в приватный и тогда следующие байты до

примерно такой исходник у меня есть...но классы создавать я не умею...я щас добавил возможность изменения шрифта и цвета фона... я пока в свойстве хост написал локалхост..а как мне сделать чтобы он работал у всех..даже если я заранее не знаю IP будущих пользователей???

[russian-stalker]

Есть в DelphiX замечательный компонент и там он сам ищет пользователей. Там же можно комнаты создавать.

[betirsolt]

Сообщение от russian-stalker

Есть в DelphiX замечательный компонент и там он сам ищет пользователей. Там же можно комнаты создавать.

что за компонент???как называется???как им пользоваться??есть литература или исходник??

[betirsolt]

Ребята я записал в свойство хост свой IP...запускаю у себя сервер...потом скидываю знакомым клиенты,но на некоторых компах он пишет что сервет не найден,как сделать чтобы он работал на всех компах????помогите кто знает