Discussion :

[sinfoni]

Bonjour,

Depuis un programme Pascal, j'appelle une fonction C (API Mac OS x) qui me renvoie une structure de ce type :

Code C :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
struct GetVolParmsInfoBuffer {
   short vMVersion;
   long vMAttrib;
   Handle vMLocalHand;
   long vMServerAdr;
   long vMVolumeGrade;
   short vMForeignPrivID;
   long vMExtendedAttributes;
   void * vMDeviceID;
   UniCharCount vMMaxNameLength;
};
typedef struct GetVolParmsInfoBuffer GetVolParmsInfoBuffer;

L'info qui m'intéresse c'est le champ vMExtendedAttributes, décrit en C de cette façon:

Code C :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Extended Volume Attributes
Describe a volume’s extended attributes.
enum {
   bIsEjectable = 0,
   bSupportsHFSPlusAPIs = 1,
   bSupportsFSCatalogSearch = 2,
   bSupportsFSExchangeObjects = 3,
   bSupports2TBFiles = 4,
   bSupportsLongNames = 5,
   bSupportsMultiScriptNames = 6,
   bSupportsNamedForks = 7,
   bSupportsSubtreeIterators = 8,
   bL2PCanMapFileBlocks = 9,
   bParentModDateChanges = 10,
   bAncestorModDateChanges = 11,
   bSupportsSymbolicLinks = 13,
   bIsAutoMounted = 14,
   bAllowCDiDataHandler = 17,
   bSupportsExclusiveLocks = 18,
   bSupportsJournaling = 19,
   bNoVolumeSizes = 20,
   bIsOnInternalBus = 21,
   bIsCaseSensitive = 22,
   bIsCasePreserving = 23,
   bDoNotDisplay = 24,
   bIsRemovable = 25,
   bNoRootTimes = 26,
   bIsOnExternalBus = 27,
   bSupportsExtendedFileSecurity = 28
};

Je récupère bien mon champ dans une variable Pascal de type longint.
Maintenant, comment faire pour connaître la valeur effective de chaque flag ? En C, je vois ce genre de code :

Code C :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
           if     (vMExtendedAttributes & (1L << bIsEjectable)) != 0 ...

Comment diable traduire ça en Pascal ???

André

[batyann811]

Comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if   (vMExtendedAttributes and (1 shl bIsEjectable)) <> 0 then

[sinfoni]

J'ai vu que 1L signifiait que c'était 1 sur 32 bits. Dans ce cas, ne dois-je pas déclarer une variable de type LongInt et y mettre 1, plutôt que 1 directement ?

Quant à vMExtendedAttributes, ne faut-il pas utiliser Byte(vMExtendedAttributes) ? J'ai trouvé ce genre de chose sur un autre forum.

Merci.

[batyann811]

Ton vMExtendedAttributes est de type long en C. Si tu fais Byte(vMExtendedAttributes) tu perd tous les bits de poids fort au dessus du 8 eme donc tu ne peux plus tester que les bits 0 à 7.

En ce qui concerne le 1L je pense que tu peux le remplacer par un simple 1. Si vraiment tu veux montrer dans ton code que c'est une valeur 32 bits je pense que tu peux utiliser LongInt(1).

Dernière chose le type long en C ne fait pas forcement 32 bits. Si tu utilises FreePascal il existe un unité ctypes qui définit des types equivalents à ceux du C. Donc pour traduire le 'long' du C tu utilises le types 'clong' de l'unité ctypes.

[sinfoni]

Merci pour toutes ces infos