[Shaft]

Здравствуйте! Что то не получается отправить динамический массив следующим способом:

type
TPacket = packed record
head: array [0 .. 5] of Char;
pack: array of Byte;
end;

готовлю к отправке и заполняю массив
var
Packet: TPacket;

SetLength(Packet.pack, 12);

Packet.head[0]:=XX;
Packet.head[1]:=XX;
Packet.pack[0]:=XX;
Packet.pack[1]:=XX;

Отправляю
idpsrvr1.SendBuffer(IP,Port,Packet,Sizeof(Packet)) ;

но почему то не получается.

P.S. до этого работал со статическими массивами по этой схеме и все получалось.

Подскажите пожалуйста как отправить динамический массив!

[poli-smen]

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

Здравствуйте! Что то не получается отправить динамический массив следующим способом:

type
TPacket = packed record
head: array [0 .. 5] of Char;
pack: array of Byte;
end;

готовлю к отправке и заполняю массив
var
Packet: TPacket;

SetLength(Packet.pack, 12);

Packet.head[0]:=XX;
Packet.head[1]:=XX;
Packet.pack[0]:=XX;
Packet.pack[1]:=XX;

Отправляю
idpsrvr1.SendBuffer(IP,Port,Packet,Sizeof(Packet)) ;

но почему то не получается.

P.S. до этого работал со статическими массивами по этой схеме и все получалось.

Подскажите пожалуйста как отправить динамический массив!

Нет. С динамическим массивом таким образом не отправить. Здесь pack это просто указатель на массив байт, т.е. просто адрес в памяти где этот массив хранится. При получении на другом компьютере (или даже в другом процессе на этом же компьютере) по этому адресу естественно не будет никакого массива. Возможно даже вообще эта память не будет зарезервирована - тогда схлопочем Access Violation.

[Shaft]

Вот вот, я пробовал вывести в memo Sizeof(Packet.pack) почему то выдает всегда 4 чтобы я не записал в массив всегда 4.
Значит динамический массив никак не отправить?

[poli-smen]

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

Вот вот, я пробовал вывести в memo Sizeof(Packet.pack) почему то выдает всегда 4 чтобы я не записал в массив всегда 4.

Размер 4 будет на в 32-битном приложении. В 64-битном приложении будет 8, так как размер указателей у 64-битных приложений занимают 8 байт.

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

Значит динамический массив никак не отправить?

Можно конечно, просто чуть сложнее - получаем у динамического массива адрес где расположены данные и отправляем с этого адреса соответствующее количество байт.

[Shaft]

А подскажи пожалуйста примерчик?

[poli-smen]

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

А подскажи пожалуйста примерчик?

Примерно так:

Код:

idpsrvr1.SendBuffer(IP, Port, Pointer(Packet.pack)^, Length(Packet.pack)) ;

Но в этом примере отправится естественно только динамический массив, т.е. только часть "pack", но не часть "head".

[Shaft]

Ок, спасибо большое!