Надо передать в функцию массив байт, как массив dword-ов.

[Kuzya69]

У меня есть массив с байтами. И функция, которая работает с массивом DWORD-ов. По сути это один и тот-же массив. Но вместо того, чтобы передать массив напрямую в функцию Calk, мне приходится его преобразовывать в массив DWord-ов. В принципе код не очень большой. Но как-то это некрасиво. Да и память лишнюю расходуем. Интересует, можно-ли сделать приведение одного типа массива в другой, какой-то функцией. Ведь в памяти процесса массивы все равно получаются одинаковые.

Function Convert(var MB: Array Of Byte; var MD: Array Of DWord):Boolean;
begin
  for i:=0 to (SizeOf(MB)shr 2) do
    MD[i]:= (MB[i*4+3]shl 24) or (MB[i*4+2])shl 16) or (MB[i*4+1]shl 8)or MB[i*4];
end;

Function Calk(var MD: Array Of DWord):Boolean;
begin
  // Тут уже обрабатываем массив DWord-ов.
end;


var 
  MassB : Array Of Byte;
  MassD : Array Of DWord;
begin
  A:= Convert(MassB, MassD);
  ............................
  B:= Calk(MassD);
end;

[Serge_Bliznykov]

Интересует, можно-ли сделать приведение одного типа массива в другой, какой-то функцией.

не уверен, но мне кажется, что не получится. динамический массив - это указатель на специальную структуру, там и размер хранится и количество элементов и прочая служебная информация, очевидно, что для разных массивов она разная.

Но вместо того, чтобы передать массив напрямую в функцию Calk

а нельзя переписать Calk так, чтобы она работала с массивом byte, читая по два байта (ну, так, как Вы написали в вашем Convert)?


p.s. почему-то не увидел в вашем примере SetLength() для обоих массивов.
Вы этот код опустили для упрощения?

[Kuzya69]

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

не уверен, но мне кажется, что не получится...

Жаль, что нет таких функций. По сути можно конечно и без математических операций преобразовать, напрямую считав из памяти процесса массив байт, как массив dwor-ов. Но опять-же получим два одинаковых массива в памяти, а вдруг их размер будет ОООООчень большим.

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

а нельзя переписать Calk...?

Можно, уже вставил функцию вычитывающую из массива байт dword-ы. В принципе работает. Интересует вопрос именно с приведением типов. Все-таки быстродействие повысится, без выполнения лишних операций.

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

...Вы этот код опустили для упрощения?

Да я много чего опустил, чтоб не засорять вопрос ненужными операторами.

PS
Тут посетила мысль, а что если присвоить указатель на массив байт, указателю на массив dword-ов? Прокатит такое?

[Serge_Bliznykov]

а что если присвоить указатель на массив байт, указателю на массив dword-ов? Прокатит такое?

если бы был статический массив и указатель на него, то да, прокатило бы.
А указатель на динамический массив указывает не на данные, а на управляющую структуру. Если не ошибаюсь, то в книге Стив Тейксейра, Ксавье Пачеко есть описание этой структуры.

В принципе работает. Интересует вопрос именно с приведением типов. Все-таки быстродействие повысится, без выполнения лишних операций.

работает и это главное!
Не думаю, что быстродействие сильно повысится - по сути там у Вас всего одна/две команды преобразования байт в DWORD.

[Pavia]

Есть директива absolute, есть указатели.

// Указательные массивы
type
 TAByte=array [0..65536] of Byte;
 PAByte=^TAByte;
 TAShortInt=array [0..65536] of ShortInt;
 PAShortInt=^TAShortInt;

 TAWord=array [0..65536] of Word;
 PAWord=^TAWord;
 TASmallint=array [0..65536] of Smallint;
 PASmallint=^TASmallint;
 TADWord=array [0..65536] of DWord;
 PADWord=^TADWord;
 TAInt=array [0..65536] of Integer;
 PAInt=^TAInt;

Function Calk(const N:Integer; var MD: PADWord; b:Integer):Boolean;
var i:Integer;
begin
  // Тут уже обрабатываем массив DWord-ов.
 // Используем автоматическое разиминовывание. Т.е "^" можно неписать
if (MD<> nil) then
 for i:= 0 To N-1 do MD[i]:=MD[i]*b;
end;

var 
  MassB : Array Of Byte;
  MassD : PADWord;
begin
  MassD:=PADWord(@MassB[0]);
  ............................
  B:= Calk(length(MassB) div 4, MassD,10);
end;

[Kuzya69]

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

Есть директива absolute, есть указатели.

Дык у меня динамические массивы, а у вас статические. К динамическим ваши утверждения подходят?

[Pavia]

Дык у меня динамические массивы, а у вас статические. К динамическим ваши утверждения подходят?

Тут не статические массивы, а указательные. Размер массива не влияет и выход за приделы диапазона не проверяется. И применяю я его к динамическим массивам.

[Kuzya69]

"Чего-то не выходит каменный цветок, Данила-мастер."
Это из анекдота.
Я написал такое:

type 
  TADWord = Array Of Byte;
  PADWord = ^TADWord;
Function Decoder(var MD:PADword; Size:Dword):Boolean;
var i:= Integer;
begin
  Result:= False;
  for i:=0 to (Size-1) do MD[i]:= MD[i] .........;
  .......
  Result:= True;
end;

Еще не писАл код, который будет юзать эту функцию.
Но компиллятор уже ругается на MD[i]
"[DCC Error] MyLib.dll(): E2016 Array type required"
Что я упустил?

Если описать так:
TADWord=array [0..65536] of DWord;
То компиллятор молчит. Так как все-таки втащить в прогу динамический массив?