[Ioanwar]

В общем такая проблема...
Есть Сервер и Клиент, которые перебрасываются между собой динамическими массивами. Отправка и принятие у сервера работает отлично, но вот клиент не может нормально принять массив...
Точнее он его принимает, но либо программа сама закрывается, либо при закрытии Клиента выдает ошибку "invalid pointer operation".
Для начала я проверил, что может быть я не правильно работаю с массивом, но нет, обращение к данным в этом массиве происходит без ошибок...
Ниже привожу код программы:

Код Клиента при принятии:

Код:

procedure TForm1.CSRead(Sender: TObject; Socket: TCustomWinSocket);
 begin
 try
 ct:=0;
 ct:=(CS.Socket.ReceiveLength div 4)div 768;
 SetLength(Adm,ct);
 CS.Socket.ReceiveBuf(Adm[0],CS.Socket.ReceiveLength);
 List.Clear;
 for i:=0 to High(Adm) do
 List.Items.Add(Adm[i].Name+' '+'('+Adm[i].ip+')'+Adm[i].roll);
 finally
 SetLength(Adm,0);
 end;
 end;

Код отправки от сервера:

Код:

SetLength(Mass,j);
 for f:=0 to High(Mass) do 
 Begin
 Mass[f].Name:=NameHost[f];
 Mass[f].ip:=IP[f];
 Mass[f].roll:=Roll[f];
 end;
 SS.Socket.Connections[i].SendBuf(Mass[0],SizeOf(Mass)*Length(Mass)*768); // i-задается в другом месте
 SetLength(Mass,0);

Админ: Учимся корректно оформлять код!

в общем когда приходит массив размерностью 1, то выдает "invalid pointer operation" послы выхода из программы.
а когда приходит массив более 1 строк, то программа вылетает с ошибкой "access violation ...".

Помомгите люди добрые

[NumLock]

а почему буферу устанавливается размер в 3072 раза меньше, чем запрашивается данных?

[Ioanwar]

Сообщение от NumLock

а почему буферу устанавливается размер в 3072 раза меньше, чем запрашивается данных?

Не понял, вроде все нормально... или я болею. Много не спал, если можете тыкните своим свежим взглядом мне в нос кодом, где у меня косяк)))

SS.Socket.Connections[i].SendBuf(Mass[0],SizeOf(Mass)*Length(Mass)*768)

SizeOf(Mass) = 4
Умножаем на количество элементов в массиве, за тем умножаем на размер 3-х строк (768) в каждом элементе этого массива

CS.Socket.ReceiveBuf(Adm[0],CS.Socket.ReceiveLength);

Принимаем и записываем в Adm, при этом в CS.Socket.ReceiveLength приходит результат этого:SizeOf(Mass)*Length(Mass)*768

[NumLock]

Код:

1. ct:=(CS.Socket.ReceiveLength div 4)div 768;
2. SetLength(Adm,ct);
3. CS.Socket.ReceiveBuf(Adm[0],CS.Socket.ReceiveLength);

1. переменная ct принимает значение равное ReceiveLength / 3072
2. массиву Adm назначается этот размер
3. из сокета запрашиваются данные в массив Adm с максимальным размером равным ReceiveLength, т.е. в 3072 раза больше, чем сам массив

[Ioanwar]

Сообщение от NumLock

Код:

1. ct:=(CS.Socket.ReceiveLength div 4)div 768;
2. SetLength(Adm,ct);
3. CS.Socket.ReceiveBuf(Adm[0],CS.Socket.ReceiveLength);

1. переменная ct принимает значение равное ReceiveLength / 3072
2. массиву Adm назначается этот размер
3. из сокета запрашиваются данные в массив Adm с максимальным размером равным ReceiveLength, т.е. в 3072 раза больше, чем сам массив

В первой строке я узнаю количество элементов в массиве, во второй строке я создаю массив с этим количесвом элементов, и в 3й строке я принимаю в этот массив данные... т.е. ReceiveBuf(Adm[0],CS.Socket.ReceiveLength);
где Adm[0]- адрес, а CS.Socket.ReceiveLength задаю размер буфера.
т.е. по идее второй параметр ReceiveBuf я указываю размер буффера а не размер массива

[NumLock]

как Adm объявлен?