[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 объявлен?

[Ioanwar]

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

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

Код:

 Type
  Pac=packed record
    Name,ip,roll:String[255];
  end;
Var
Adm:array of Pac;

Mass на Сервере объявлен так же.

[icWasya]

почему вот так

Код:

ct:=(CS.Socket.ReceiveLength div 4)div 768;

а не вот так

Код:

ct:=CS.Socket.ReceiveLength div sizeof(Adm[0]);

[Ioanwar]

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

почему вот так

Код:

ct:=(CS.Socket.ReceiveLength div 4)div 768;

а не вот так

Код:

ct:=CS.Socket.ReceiveLength div sizeof(Adm[0]);

Потому, что в тот момент программа еще не знает, что такое Adm[0]...
Следовательно, что бы мне найти количество элементов в массиве заранее, я делаю так. И следовательно, потом массив принимается точно такой же, и с таким же размером.

[NumLock]

ReceiveLength не будет равно количеству переданных байт! сумма нескольких последовательных ReceiveLength будет. и SizeOf(Mass) в отправке лишнее и 4 в приеме.

[Ioanwar]

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

ReceiveLength не будет равно количеству переданных байт! сумма нескольких последовательных ReceiveLength будет. и SizeOf(Mass) в отправке лишнее

Возможно да. Щас проверю отпишусь.

[Ioanwar]

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

ReceiveLength не будет равно количеству переданных байт! сумма нескольких последовательных ReceiveLength будет. и SizeOf(Mass) в отправке лишнее и 4 в приеме.

Проверил. В таком случае ошибок нет, но вместо нормальных данных массива приходят только #0#0#0#0#0#0#0#0#0.

[Ioanwar]

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

Проверил. В таком случае ошибок нет, но вместо нормальных данных массива приходят только #0#0#0#0#0#0#0#0#0.

А нет, это я в ReceiveBuf(Adm[0],Socket.ReceiveLength); поставил ct в место Socket.ReceiveLength когда тестил и забыл убрать))) нафига ставил не знаю)))

NumLock спасибо тебе, вроде работает. Если что отпишусь)

[NumLock]

эмуляция передачи данных через сокет. для примера выделения памяти на передающей и принимающей сторонах:

Код:

type
  TMyRec = record
    Id: String[255];
    Name: String[255];
    IP: String[255];
  end;
var
  Arr: array of TMyRec;
  sz: Integer;
  Buffer: Pointer;
begin
  SetLength(Arr, 10); // 10 elements
  Arr[5].Id:='5';
  Arr[5].Name:='NumLock';
  Arr[5].IP:='127.0.0.1';
  sz:=Length(Arr)*SizeOf(TMyRec); // size arr in bytes = element count * size of element
                                  // element size = size of TMyRec
  ShowMessage(IntToStr(sz));

  Buffer:=GetMemory(sz); // get memory for simulate socket (Buffer)
  MoveMemory(Buffer, @Arr[0], sz); // transfer data to "socket"
  SetLength(Arr, 0); // clear source arr




  SetLength(Arr, sz div SizeOf(TMyRec)); // (sz div SizeOf(TMyRec)) how elements?
  MoveMemory(@Arr[0], Buffer, sz); // receive data from "socket", sz .aka. ReceiveLength

  ShowMessage(Arr[5].Id+' '+Arr[5].Name+' '+Arr[5].IP);

  FreeMemory(Buffer);
end;

на реальных сокетах не будет работать потому что передаваемые данные могут и скорее всего будут разбиваться на отдельные пакеты, которые придется складывать в один. хотя для 10 элементов может и сработает, если очень повезет)

[Ioanwar]

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

эмуляция передачи данных через сокет. для примера выделения памяти на передающей и принимающей сторонах:

Код:

type
  TMyRec = record
    Id: String[255];
    Name: String[255];
    IP: String[255];
  end;
var
  Arr: array of TMyRec;
  sz: Integer;
  Buffer: Pointer;
begin
  SetLength(Arr, 10); // 10 elements
  Arr[5].Id:='5';
  Arr[5].Name:='NumLock';
  Arr[5].IP:='127.0.0.1';
  sz:=Length(Arr)*SizeOf(TMyRec); // size arr in bytes = element count * size of element
                                  // element size = size of TMyRec
  ShowMessage(IntToStr(sz));

  Buffer:=GetMemory(sz); // get memory for simulate socket (Buffer)
  MoveMemory(Buffer, @Arr[0], sz); // transfer data to "socket"
  SetLength(Arr, 0); // clear source arr




  SetLength(Arr, sz div SizeOf(TMyRec)); // (sz div SizeOf(TMyRec)) how elements?
  MoveMemory(@Arr[0], Buffer, sz); // receive data from "socket", sz .aka. ReceiveLength

  ShowMessage(Arr[5].Id+' '+Arr[5].Name+' '+Arr[5].IP);

  FreeMemory(Buffer);
end;

на реальных сокетах не будет работать потому что передаваемые данные могут и скорее всего будут разбиваться на отдельные пакеты, которые придется складывать в один. хотя для 10 элементов может и сработает, если очень повезет)

Это интересно, но пока не надо. Сейчас доделаю то что у меня есть, а там буду думать дальше) Разбиваю задачу на много подзадач так сказать.
Теперь могу спокойно поспать, а потом по новой за работу. Спасибо тебе еще раз NumLock.