Fórum Lendo e escrevendo com sockets!!!!! #256940

sobe..

Caro amigo eu tenho um chat que deve funcionar: É mais ou menos assim:

Possuo no form cliente um edit e um memo. Um componente ClientSocket com o adderess 127.0.0.1 e active true. No evento OnRead do ClientSocket eu tenho o seguinte:

[b:11c052479a]procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var mensagem: string;
begin
mensagem:=Socket.ReceiveText();
Memo1.Lines.Add(mensagem);
end;[/b:11c052479a]

No evento OnKeyPress do edit tenho o seguinte:

[b:11c052479a]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var mensagem: string;
begin
if Key = #13 then
begin
mensagem:=Edit2.Text+´ : ´+Edit1.Text;
ClientSocket1.Socket.SendText(mensagem);
Edit1.Clear;
end
end;[/b:11c052479a]
No servidor eu tenho um memo, um timer, um ServerSocket1 e uma label para contar quantos usuários estão conectados. No evento OnTimer eu tenho o seguinte

[b:11c052479a]procedure TForm1.Timer1Timer(Sender: TObject);
begin
qte_conexoes:=ServerSocket1.Socket.ActiveConnections;
Label2.Caption:=IntToStr(qte_conexoes);
end;[/b:11c052479a]
No evento OnClientRead eu tenho o seguinte:

[b:11c052479a]procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var mensagem: string;
geral: integer;
begin
mensagem:=Socket.ReceiveText();
Memo1.Lines.Add(mensagem);
for geral:=0 to qte_conexoes-1 do ServerSocket1.Socket.Connections[geral].SendText(mensagem);
end;[/b:11c052479a]

OBS: a variável
[b:11c052479a]qte_conexoes: integer;[/b:11c052479a]
é uma variável pública

Colega..

Tem um exemplo similar a este no delphi..

Tentei usá-lo mas não consegui..

Quando faço assim o evento onClientRead do ServerSocket não dispara..

já o evento onClientWrite dispara mas não consigo ler o socket.receivetext..

o q será?