Socket.SendText проблема

[SwiP]

Проблема в том, что мне надо при подсоединении клиента отправить ему элементы ListBox'a. Решил организовать на стороне сервера цикл типа

ServerSocket.Socket.Connections[0].SendText(IntToStr(Listbox.Items.Capacity)); //Количество элементов

for i:=0 to Listbox.items.capacity-1 do
ServerSocket.Socket.Connections[0].SendText(Listbox.Items[i]);

То есть в начале я отправляю количество элементов (чтобы на стороне клиента было известно количество элементов), а потом по одному отправлять строки листбокса.


Вот код на стороне клиента:

n:=StrToInt(Socket.ReceiveText); // Первым делом узнаём количество элементов

  for i:=0 to n-1 do
    Listbox.Items.Add(Socket.ReceiveText);

Но в итоге получается полная каша. Всё это приходит за один раз. То есть цикл просто берёт, сначала складывает все строки воедино и потом её отправляет (одну).

Например, у нас есть листбокс, и в нём 3 строки.
Тогда придёт вот такое:

3перваястрокавтораястрокатретьястрока

Хотелось бы узнать, как сделать по человечески?

[Пепел Феникса]

это делает не цикл а винда, так как формируется изначально буфер, потом он отправляется, вам нужно чтото типа пакетов. в которые уже упаковывать свои данные, ну или как то иначе строки разделять.

[raxp]

по человечески, это сформировать пакет типа запись и посылать его, и такую-же структуру иметь для расшифровки на другой стороне, только посылать буфер или потоком, а не текстом... например:

type packet= record
 kol: integer;
 odin_stroka: string [10];
 dva_stroka: string [10];
 tri_stroka: string [10];
end;

[SwiP]

буфером не годится, а потоком это как?

[SwiP]

Кстати, а в делфи нету аналога хорошей такой функции explode/implode в РНР? Она склеивала строки через специальный разделитель, и потом с помощью разделителя их разделяла?

[Terran]

а потоком это как?

Объявляете переменную к примеру TMemoryStream. Записываете в неё нужные данные и потом отправляете. Принятые данные записываете так же в поток памяти и потом извлекаете данные.

ClientSocket1.Socket.SendStream()

Кстати, а в делфи нету аналога хорошей такой функции explode/implode в РНР? Она склеивала строки через специальный разделитель, и потом с помощью разделителя их разделяла?

В Делфи не встречал такой функции. Можете написать сами или допустим после каждой строки добавлять какой-нибудь символ и потом по нему и разделять назад данные.

[SwiP]

ClientSocket1.Socket.SendStream()

А там не будет такой же неприятной вышеописанной ситуации, когда всё будет склеиватся в одно?
Если будет, то буду писать свою разделялку

[Terran]

А там не будет такой же неприятной вышеописанной ситуации, когда всё будет склеиватся в одно?

Если всё делать правильно, то не будет.

[SwiP]

Нашёл более лёгкий и удобный способ, можно ведь просто сделать так:
Socket.SendText(ListBox.Items.Text) , тут он сам разделяет элементы, а у клиента сам собирает
Но вот ещё проблема небольшая: Не получается послать через сокет текст при дисконнекте клиента. Мне нужно послать ID клиента, когда он уходит, чтобы на сервере можно было удалить его имя из листбоксаю
Мне попросту ничего не приходит:

Код на стороне клиента:

ClientSocketDisConnect

ClientSocket.Socket.SendText(id);

На сервере:

ServerSocketClientDisConnect

 t:=Socket.ReceiveText;
  ShowMessage ('Клиент отключён! #'+t); // Где t - это должен быть присланный ID

[raxp]

Код на стороне клиента

ракируйте

...а это

Socket.SendText(ListBox.Items.Text) , тут он сам разделяет элементы, а у клиента сам собирает

свойство stringlist-а, тот же пакет.