[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;

Админ: Пользуемся тегами для оформления кода!