Передача динамического массива

[krosh87]

Подскажите пожалуйста как передать двумерный динамический массив с помощью сокетов Tclientsocket и Тserversoket, пример пишу пока на одномерном и он не работает может думаю вообще не в том направлении

procedure TForm1.Button1Click(Sender: TObject);
begin

if clientsocket1.Active = false then
clientsocket1.Active := true;

end;

procedure TForm1.ServerSocket1ClientConnect(S ender: TObject;
Socket: TCustomWinSocket);

var
mas: array of String;
i : Integer;
begin

setlength(mas,2);
mas[0] := 'a';
mas[1]:= 'b';
Socket.SendBuf(mas,sizeof(mas));

end;


procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
len: Byte;
buf : array of string;

begin

len:=Socket.ReceiveLength;
setlength(buf,len);
Socket.ReceiveBuf(buf,len);
showmessage(buf[1])

end;

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

не забывайте что строки это массивы тоже.

[krosh87]

у меня просто есть таблица в бд программа считывает данные из этой таблицы причем таблица постоянно увеличивается, я думаю это не есть хорошо побегать циклами по таблицы и записывать это все в строку разделяя ее определенными символами чтобы потом ее считать
Может массив и передается но у меня проблема считыванием этого массива!

[ArtGrek]

когда сервер передает даные нужно указывать на какои по шету клиент

Socket.SendBuf(mas,sizeof(mas));

замените на

  ServerSocket1.Socket.Connections[0].SendBuf(mas, SizeOf(mas));

если не получица поместите ету строку в событие

procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;
  Socket: TCustomWinSocket);