проблема с чатом

[cheef]

создаю чат - игру.
пока сделал только чат с помощью клиент сервера но при отправке сообщения выдаёт ошибу пож посмотрите исходник и программу в чём ошибка...выдаю ошибку что такого идекса несуществует((
но я делал на основе мемо а не лист бох, причём тут индекс.
Во вложениях исходник.

[lexaltd]

Извеняюсь не то написал перед этим
Короче разобрался , ты два приложения запусти и будет всё нормально , а то наверно одно запускаеш и сам себе отправляеш
и делаеш вот это , а клиента то нет , вот и ошибка

// проверка, в каком режиме находится программа
  If ServerSocket1.Active=True then
// отправляем сообщение с сервера (он под номером 0, поскольку один)
    ServerSocket1.Socket.Connections[0].SendText('['+TimeToStr(Time)+'] '+form1.sEdit1.Text+': '+sEdit1.Text)

Вот тут пример с исходником - но мне кажется , ты отсюда и брал
http://pblog.ru/?p=91
вот ещё
http://pblog.ru/?p=100

[cheef]

спасибо щас попробую, да брал от туда.

[cheef]

Ошибок больше нету. Только при подключение клиента к моему серверу мне приходит сообщение :клиент подключен:, всё нормально, но при отправке мне сообщения сообщение мне недоходит доходит лишь ПРИШЛИ ДАННЫЕ
Вот исходник кнопки send и read soket

If ServerSocket1.Active=True then
ServerSocket1.Socket.Connections[0].SendText('['+TimeToStr(Time)+'] '+form1.sEdit1.Text+': '+sEdit1.Text)
else
ClientSocket1.Socket.SendText('['+TimeToStr(Time)+'] '+form1.sEdit1.Text+': '+sEdit1.Text);
sMemo1.Lines.Add('['+TimeToStr(Time)+'] '+form1.sEdit1.Text+': '+sEdit1.Text);
sEdit1.Clear;

Я конечно понимаю что ошибка в read soket, но как её исправить.
Код

sMemo1.Lines.Add('['+TimeToStr(Time)+'] Пришли данные.');

[bill_gates]

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

Я конечно понимаю что ошибка в read soket, но как её исправить.

sMemo1.Lines.Add('['+TimeToStr(Time)+'] Пришли данные.');

Здесь ты добавляешь строку в sMemo1 Время+Пришли данные. Если ты хочешь принять текст, тебе надо написать так:

sMemo1.Lines.Add('['+TimeToStr(Time)+'] Пришли данные. '+Socket.ReceiveText);

или так

sMemo1.Lines.Add('['+TimeToStr(Time)+'] Пришли данные.');
sMemo1.Lines.Add(Socket.ReceiveText);

[QunneD]

Рано тебе еще с сокетами возиться..