Диалоговое окно ServerSocket1

[aank10]

Пишу чат используя ServerSocket1 и ClientSocket1, отправлять сообщение получается, а можно ли от сервера отправить клиенту диалоговое окно с каким либо текстом, ну типа MessageBox("Тратататата");

[Krok27]

Зачем? Отправь сообщение и выведи в нужном тебе окне на принимающей стороне.

[Drugnir]

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

[aank10]

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

Зачем? Отправь сообщение и выведи в нужном тебе окне на принимающей стороне.

То есть вы имеете , если по стандарту у меня сообщения выводятся в мемо1, вывести нужное мне сообщение в допустим Едит1? Если так то не подходит.

[Krok27]

Сообщение - это строка. А вывести ее можно:
ComboBox
Label
Edit
Memo
ListBox
MessageBox
ShowMessage и т.д.

Я так подозреваю, что не ясна ситуация, как выводить полученную строку. Т.е пришла строка и надо вывести - где? Сделай себе

typedef enum {tsMessageBox, tsMemo, tsListBox}TTypeShow;
typedef struct
{
  TTypeShow Type;
  String Message;
} TSendMessage;

Отправляй эту структуру, на принимающей стороне анализируй поле Type и в зависимости от значения выводи где надо.

Если нужно отправлять целиком сложные объекты - нужно курить тему о сериализации.

[Drugnir]

AnsiString text = ClientSocket1->Socket->ReceiveText();
MessegeBox(handle,text.c_str,Application->Title.c_str(),MB_OK)

как-то так

[aank10]

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

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

а как реализовать проверку куда выбивать сообщение в Мемо1 или МеседжБокс?

[Drugnir]

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

а как реализовать проверку куда выбивать сообщение в Мемо1 или МеседжБокс?

Можно добавлять в начало строки какой-нить идентификатор, например, если строка начинается с "+", то в мемо, если с "-", то в месседжбокс. Я так полагаю, что у сервера будет две кнопки в Memo и в MessageBox, тогда при нажатии в начало текста дописывать можно символ, который будет квалифицировать сообщение. Но это уже вам решать, как эту проверку организовать.

AnsiString text = ClientSocket1->Socket->ReceiveText();
if (text[1] = "+"){
  MessegeBox(handle,text.c_str,Application->Title.c_str(),MB_OK)}
else {
  Edit1->Text = text;
}

Это всего лишь пример.