|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Передача динамического массива
Подскажите пожалуйста как передать двумерный динамический массив с помощью сокетов 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; Последний раз редактировалось Admin, 24.02.2011 в 20:15. |
#2
|
||||
|
||||
Динамический массив - указатель. Когда ты делаешь
Код:
Socket.SendBuf(mas,sizeof(mas)); Код:
Socket.SendBuf(mas^,2); jmp $ ; Happy End! The Cake Is A Lie. |
#3
|
|||
|
|||
если пользоваться указателями возникает нарушение типов данных компилятор не дает запустить прогу
|
#4
|
||||
|
||||
А ты как их приводишь?
Двумерный массив я бы скомпоновал в виде одномерного и передал его одним куском, а в приемнике просто разбил бы его обратно в двумерный. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию Последний раз редактировалось M.A.D.M.A.N., 24.02.2011 в 19:25. |