DARRAY
Publié: 24 Oct 2006 à 01:42Bonjour,
En commentaire ce que je ne sais pas convertir.
En commentaire ce que je ne sais pas convertir.
- Code : Tout sélectionner
Type DARRAY
ObjectSize As Integer
ElementsUsed As Integer
ElementsFree As Integer
ElementsFreeMax As Integer
ElementsFreeExtra As Integer
ElementsSize As Integer
ElementsStrings As Integer
StringStorageOffset As Integer
StringStorageUsed As Integer
StringStorageFree As Integer
StringStorageFreeMax As Integer
StringStorageFreeExtra As Integer
%REM
#if NATURAL_ALIGMENT == 16
void *PaddingPointer;
#endif
%END REM
End Type
Type PSTRING
StringSize As Integer
StringType As Integer
String As String
End Type
Declare Function OSDArrayAlloc Lib "nnotes.dll" (ElementSize As Integer, StringPerElement As Integer, InitialElements As Integer, IntitialStringStorage As Integer, rethDArray As Long, retDArray As DARRAY) As Long
Declare Function OSDArraySetFreeSizes Lib "nnotes.dll" (DArray As DARRAY, ElementsFreeExtra As Integer, ElementsFreeMax As Integer, StringStorageFreeExtra As Integer, StringStorageFreeMax As Integer) As Long
Declare Function OSDArrayAddElement Lib "nnotes.dll" (hDArray As Long, DArray As DARRAY, NewElement As Long, NewIndex As Integer) As Long ' void far *NewElement
Declare Function OSDArrayRemoveElement Lib "nnotes.dll" (hDArray As Long, DArray As DARRAY, Index As Integer) As Long
%REM
#define OSDArray(darray, elementtype) ((elementtype far *)(&((darray)[1])))
#define OSDArrayString(darray, pstring) \
( (char far *) (darray) + (darray)->StringStorageOffset + \
(DWORD) ((pstring).String) )
%END REM