Передать массив через Socket?

Question

[WizAlx]

Уважаемые Хабрчане. Вопрос в следующем.

Нужно передать массив данных от ClientSocket к ServerSocket. Код, приведенный ниже, к сожалению, не работает, массив не передается. Прошу помочь исправить ошибки.



Клиентская часть:

procedure TForm1.IPBtnClick(Sender: TObject);<br>
begin<br>
  Client.Host:=Ip.Text;<br>
  Client.Address:=Ip.Text;<br>
  Client.Active:=true;<br>
  Buf[1]:=IdIPWatch1.CurrentIP;<br>
  Buf[2]:=IdIPWatch1.UnitName;<br>
  Client.Socket.SendBuf(Buf,SizeOf(Buf));<br>
end;<br>

Серверная часть:

<br>
procedure TForm1.ServerClientRead(Sender: TObject;<br>
  Socket: TCustomWinSocket);<br>
begin<br>
  server.Socket.ReceiveBuf(Buf,SizeOf(Buf));<br>
  Tree.Items.AddChild(TreeView1.Items.Item[0],Buf[1]) <br>
end;<br>

Отмечу заранее, что порт у ClientSocket и ServerSocket совпадает.

Answer 1

[Hint]

Неправильно делаете. Передаваемые через сокет данные — это поток данных без конца и начала (не считая установки и закрытия соединения). Соответственно клиент и сервер должны как-то определять, что здесь закончилась одна строка, а здесь началась другая. Можно определять по нулевым байтам или же пересылать строки фиксированного размера. А можно придумать свой протокол. Здесь я у вас этого не вижу.

Что такое buf? Array of string?

Comments

[WizAlx]

да. и у клиентской части и у серверной. описан в глобальных переменных.

  Buf: array[1..100] of string;

Подскажите, пожалуйста, как правильно сделать. Впервые сталкиваюсь с работой Delphi по локальной сети.

[WizAlx]

Не совсем понял технологию. В каком участке кода ставить проверку на конец строки?
В одном из примеров в сети при передаче массива после переменной Buf указывалось лишь число, которое равнялось количеству элементов массива. Цитирую с сайта:

// соберем данные для отправки
Buf[0]:=ShapeCBox.ItemIndex;
Buf[1]:=ColorCBox.ItemIndex;
Buf[2]:=StrToInt(Value1Edit.Text);
Buf[3]:=StrToInt(Value2Edit.Text);
// проверяем режим программы
If ServerSocket.Active=True then
// отправим буфер с сервера (длина известна - 4)
ServerSocket.Socket.Connections[0].SendBuf(Buf,4)
else
// отправим буфер с клиента
ClientSocket.Socket.SendBuf(Buf,4);

(Здесь клиент и сервер объеденены в одном проекте.)
и:

procedure TForm1.ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
len: Byte;
begin
// принимаем буфер неизвестного размера
len:=Socket.ReceiveLength;
Socket.ReceiveBuf(Buf,len);

Каких-либо других ограничений не стояло и далее шел уже программный код, работающий с пересланными данными.

[Hint]

В примере массив из байт. А у вас массив из динамических строк. Огромная разница.
Что именно вы хотите передавать? Просто строки? Или сервер должен различать тип передаваемых данных?

Попробуйте использовать функции SendText на клиенте и ReceiveText на сервере. Возможно, для вашей задачи этого хватит.

[WizAlx]

Только строки. Больше ничего.

[Hint]

Не успел отредактировать ответ. Повторюсь.

Попробуйте использовать функции SendText на клиенте и ReceiveText на сервере. Возможно, для вашей задачи этого хватит.

[WizAlx]

Проблема в том, что мне надо передавать не один десяток строк с различными данными.
А SendText передает только 1 строку.

[Hint]

Я бы дал вам готовый код, но тут не обойтись парой строк. По-хорошему, вам надо принимать поступившие данные и перекладывать их в отдельный буфер (дописывать к тому, что в нем уже есть). Потом искать от начала буфера нулевой байт (один из вариантов), копировать строку и удалять обработанный кусок буфера. При отправке же строк слать строку, а потом нулевой байт.
Если строки могут содержать нули, то альтернативный вариант — перед каждой строкой слать int с её длиной.

[WizAlx]

А есть более простые методы и компоненты для передачи массива данных с клиента на сервер?

[Hint]

То, что я вам написал, довольно просто. Другого способа нет. И вряд ли существует компонент в котором реализовано именно то, что вам нужно.

[WizAlx]

Огромное спасибо за помощь! Вы мне на самом деле очень помогли.