Чат программа

[russian-stalker]

Начал делать чат. Скажите в чём ошибка?

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Clear;
  ServerSocket1.Active := true;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ServerSocket1.Active := false;
  ClientSocket1.Active := false;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.Lines.Add(Socket.ReceiveText);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//Кнопка отправить
  ClientSocket1.Address := Edit1.Text; //Здесь для теста localHost
  ClientSocket1.Active := true;
  ClientSocket1.Socket.SendText(edit2.Text);  //Здесь текст
  ClientSocket1.Active := false;
end;

[Makarov]

А номер порта вы прописали? Ну и еще открыть ClientSocket.

ClientSocket1.Open;

[_SERGEYX_]

Посмотри в Библии Дельфи как Фленов советует делать чат с помощью TIdUDPServer и TIdUDPClient. Я делал когда-то. Работает как часы и очень быстро.

[SERG1980]

Чат на двоих