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

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

[Bargest]

Динамический массив - указатель. Когда ты делаешь

Код:

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

ты отправляешь N байт начиная с адреса указателя MAS в памяти. По идеи надо так:

Код:

Socket.SendBuf(mas^,2);

Должно заработать. Тут отправляются байты именно из адреса, указанного в mas.

[krosh87]

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

[M.A.D.M.A.N.]

А ты как их приводишь?
Двумерный массив я бы скомпоновал в виде одномерного и передал его одним куском, а в приемнике просто разбил бы его обратно в двумерный.