Delphi указатель арифметика

Question

Как следует эта строка кода будет writed, чтобы позволить ему составить

MoveMemory(poleFileDescriptorW 
     , (oleDataPointer + SizeOf(oleFileDescriptorW) *Index + 4)^ 
     , SizeOf(oleFileDescriptorW)); 

В частности, эту часть

(oleDataPointer + SizeOf(oleFileDescriptorW)*Index + 4)^

Я просто хочу, чтобы переместить указатель на SizeOf(oleFileDescriptorW)*Index + 4 байты

Переменные определены как:

pOLEFileDescriptorW : ^FILEDESCRIPTORW; 
oleDataPointer : Pointer; 

Answer 1

Присваивается целочисленному типу, выполняется математика и отбрасывается.

Обычно я использую Cardinal, но я думаю, что это не работает с 64-битным компилятором.

Pointer(NativeInt(oleDataPointer) + SizeOf(oleFileDescriptorW)*Index + 4)

Answer 2

MoveMemory и идентичные CopyMemory функции принимают указатели, а не переменные, а функция Delphi RTL Move требует (и это единственное различие между MoveMemory и Move).

Таким образом, вы не должны разыменовывать указатель. Просто сделайте

MoveMemory(poleFileDescriptorW, 
      (oleDataPointer + SizeOf(oleFileDescriptorW)*Index + 4), 
      SizeOf(oleFileDescriptorW)); 

где каждый аргумент является указателем/кардиналом. В зависимости от ваших фактических типов данных вам может потребоваться сделать тривиальное литье. Например, вам может потребоваться сделать PSomeType(cardinal(myPointer) + cardinal(myPointer2)).

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

(oleDataPointer + SizeOf(oleFileDescriptorW)*Index + 4)^ 

не может работать (почему?). Do

PMyType(cardinal(oleDataPointer) + SizeOf(oleFileDescriptorW)*Index + 4)^ 

Answer 3

Typecast to Integer.

Pointer(Integer(oleDataPointer) + SizeOf(oleFileDescriptionW) * Index + 4) 

И Andreas был прав, что вы должны использовать указатели непосредственно. Посмотрите, работает ли это.

Бог благословит

Answer 4

Если вы используете DELPHI> = 2009, установите $ POINTERMATH на ON и вы можете использовать арифметику указателей непосредственно