Discussion :

[colorid]

Bonjour,

J'ai une DLL dont les paramètres sont exprimés en UInt32 et UInt64
Par quelle déclaration Delphi je peux remplacer ces deux paramètres ?

Merci d'avance

[ShaiLeTroll]

Euh, comment dire avec UInt32 et UInt64
Il est vrai que l'on utilise rarement ces alias, j'ai partiellement du UInt64 en 2007, rien du tout en 6

UInt32 = Cardinal
UInt64, euh ça n'existe pas vraiment puisqu'en interne c'est int64 et donc c'est signé !
En 2007 le TULargeInteger, c'est l'équivalent du ULARGE_INTEGER des API Windows est déclaré en LONGLONG (int64) et non en ULONGLONG
En XE2, il est bien en ULONGLONG, on peut penser qu'il y a eu du travail sur le compilateur pour gérer les nombres de 64bits non signé !

Faut tester si il accepte ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var
  I: UInt64;
begin
  I := 1 shl 62; // 2^62
  ShowMessage(IntToStr(I));
  I := I shl 1; // 2^63 
  ShowMessage(IntToStr(I)); // si négatif, c'est mort !
  Inc(I);
  ShowMessage(IntToStr(I));
  Dec(I, 2);
  ShowMessage(IntToStr(I));
end;

[colorid]

Trouvé dans une unité qui accompagne l'exploitation d'une DLL :

Code :

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
uses Classes;
{$MINENUMSIZE 4}
 
type
  UINT8 = System.Byte;
  UINT16 = System.Word;
  UINT32 = System.Longword;
{$IFNDEF UINT64}
  UINT64 = System.INT64;
{$ENDIF}
  INT16 = System.Smallint;
  INT32 = System.Longint;
  INT64 = System.INT64;
  TUINT32Array = array of UINT32;
  PUINT32 = ^UINT32;
  PBYTE = ^byte;

ça peut servir