Delphi pointeur arithmétique

Comment cette ligne de code soit Ecrite pour lui permettre de compilerDelphi pointeur arithmétique

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

particulièrement cette partie

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

Je suis juste envie de passer le pointeur par SizeOf(oleFileDescriptorW)*Index + 4 octets

Les variables sont définies comme suit:

pOLEFileDescriptorW : ^FILEDESCRIPTORW; 
oleDataPointer : Pointer;

Source

2010-11-29 v00d00

Quels sont les types des variables que vous utilisez? –

Transmettre à un type entier, effectuer les calculs et les renvoyer.

J'ai généralement utilisé Cardinal mais je pense que cela ne fonctionne pas avec un compilateur 64 bits.

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

Source

2010-11-29 12:58:51 CodesInChaos

Delphi est toujours 32 bits seulement. Peu importe le type d'OS que vous avez. Sur un système d'exploitation 64 bits, le programme s'exécutera sous WOW. –

Il n'y a pas encore de version 64 bits de Delphi? Je voudrais quand même que mon code fonctionne avec les futurs compilateurs Delphi 64 bits (ou freepascal 64 bits) – CodesInChaos

@CodeInChaos: Vous pouvez utiliser le type 'NativeUInt'. –

MoveMemory et les fonctions identiques CopyMemory acceptent pointeurs, pas de variables, comme la fonction Delphi RTL Move nécessite (ce qui est la seule différence entre MoveMemory et Move).

Vous ne devriez donc pas déréférencer le pointeur. Just

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

où chaque argument est un pointeur/cardinal. En fonction de vos types de données réels, vous devrez peut-être effectuer un casting trivial. Par exemple, vous devrez peut-être faire PSomeType(cardinal(myPointer) + cardinal(myPointer2)).

De toute façon, si vous deviez parfois déréférencer un pointeur, vous devez spécifier son type.

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

ne pouvait pas fonctionner (pourquoi?). Faites

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

Source

2010-11-29 12:59:44

Typecast Integer.

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

Et Andreas avait raison que vous devez utiliser des pointeurs directement. Voir si cela fonctionne.

Dieu bénisse

Source

2010-11-29 13:00:21 Trinidad

Vous devriez lancer 'cardinal', pas' integer' (pourquoi?)! En outre, 'MoveMemory' /' CopyMemory' nécessite des pointeurs, pas des variables, donc vous ne devriez pas déréférencer (comme dans le cas 'Move'). –

Je préfère un type entier non signé, mais c'est surtout un problème de style. Mais votre code peut échouer si les contrôles de dépassement d'entier sont activés (ils sont désactivés par défaut) – CodesInChaos

@andreas Pourquoi pas Integer? Delphi effectue-t-il une conversion et perd les données en cas de dépassement de capacité? – Trinidad

Si vous utilisez DELPHI> = 2009, définissez $ POINTERMATH sur ON et vous pouvez utiliser l'arithmétique des pointeurs directement

Source

2010-11-29 15:47:41

Delphi pointeur arithmétique

Répondre

Questions connexes