Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Uniqueness of SYS(2015)
Message
From
25/06/2007 07:40:37
 
 
To
24/06/2007 20:46:09
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01235219
Message ID:
01235300
Views:
16
>>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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform