Здрасти)
Возникла вот такая проблемка
Есть зародыш маленького чата  - хочу сделать чтобы при конекте нового клиента выдавалось сообщение типа "Ник вошел а чат" , все чет перепробывал, неполучаться  . При выходе клиента выдаеться сообщение а при входе нет . Сообщение надо чтобы видели все клиенты кто находиться в чате.
Вот код
Сервера
| Код |
unit UServerMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp;
type
TForm1 = class(TForm)
ServerSocket1: TServerSocket;
Button1: TButton;
ListBox1: TListBox;
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket1.Active := false;
ServerSocket1.Close;
Close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Port := 777;
ServerSocket1.Active := true;
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
s : string;
i : integer;
begin
s := TimeToStr(now) + ' ' + Socket.ReceiveText;
//s := TimeToStr(now) + ' ' + '>' + ' ' + Socket.ReceiveText;
ListBox1.Items.Add(s);
for I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
if ServerSocket1.Socket.Connections[i].SocketHandle <> Socket.SocketHandle then
ServerSocket1.Socket.Connections[i].SendText(s);
end;
end.
|
и клиента
| Код |
unit UClientMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
Edit3: TEdit;
Button2: TButton;
ListBox1: TListBox;
ClientSocket1: TClientSocket;
Label1: TLabel;
Label2: TLabel;
Edit4: TEdit;
Label3: TLabel;
procedure Button2Click(Sender: TObject);
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Name : string;
implementation
{$R *.dfm}
{Connect}
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Address := Edit2.Text;
ClientSocket1.Port := StrToInt(Edit3.Text);
Name := Edit4.Text;
if not ClientSocket1.Active then ClientSocket1.Active := true;
Edit2.Enabled := false;
Edit3.Enabled := false;
Edit4.Enabled := false;
Button1.Enabled := false;
end;
{Send}
procedure TForm1.Button2Click(Sender: TObject);
begin
if Edit1.Text <> '' then
ClientSocket1.Socket.SendText(Name + ' ' + '>' + ' ' + Edit1.Text);
ListBox1.Items.Add(TimeToStr(now) + ' ' + Name + ' ' + ' > ' + ' ' + Edit1.Text);
Edit1.Text := '';
end;
procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
ListBox1.Items.Add(Socket.ReceiveText);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
ClientSocket1.Socket.SendText(Name + ' Покинул чат');
ClientSocket1.Active := false;
ClientSocket1.Close;
Close;
end;
end.
|
Пытался делать чтобы сообщение выдавалось при конекте ( при нажатии на кнопку Connect) таким способом
ClientSocket1.Socket.SendText(Name + ' Вошел в чат);
Невыходит
p.s. Можно ли комбинировать indy и Server | ClientSocket ? к примеру сообщения отрпаляються через сокеты а передачу файлов устроить через indy ?
Спасибо
|
