Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Uniqueness of SYS(2015)
Message
De
25/06/2007 07:40:37
 
 
À
24/06/2007 20:46:09
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Divers
Thread ID:
01235219
Message ID:
01235300
Vues:
15
>>Its uniqueness would even break with 2 workstations. Use a GUID.
>>Cetin
>
>Cetin,
>
>How do you generate GUIDs?
>
>Thanks
>Dennis



Declare Integer CoCreateGuid In Ole32.Dll ;
STRING @lcGUIDStruc

Declare Integer StringFromGUID2 In Ole32.Dll ;
STRING cGUIDStruc, ;
STRING @cGUID, ;
LONG nSize

Local lcStruc_GUID, ;
lcGUID, ;
lnSize

m.lcStruc_GUID = Space(16)
m.lcGUID = Space(80)
m.lnSize = 40

If CoCreateGuid(@m.lcStruc_GUID) = 0 And ;
StringFromGUID2(m.lcStruc_GUID,@m.lcGUID,lnSize) <> 0
m.lcGUID = Substr( Strconv(Left(m.lcGUID,76),6), 2, 36 )
Else
m.lcGUID = .F.
Endif

?m.lcGUID
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform