Подскажите пожалуйста как передать двумерный динамический массив с помощью сокетов 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;
Админ: Пользуемся тегами для оформления кода!