Hoe creëer je een GUID?

Sectie: FoxPro
Auteur(s): Fabian Bakker
Publicatiedatum: 26-2-2006
Keywords: GUID, Visual FoxPro, Windows
Type bijdrage: Tip
Taal: Nederlands
Rating:

Currently 0/5 Stars.
1
2
3
4
5

LOCAL lcGUID
lcGUID = CreateGUID()
**

PROCEDURE CreateGuid
*** Procedure : CreateGUID
*** Purpose : Creates a Globally Unique IDentifier
*** Parameters :
*** Returns : GUID as string: "{00112233-4455-6677-8899-AABBCCDDEEFF}"

   DECLARE INTEGER CoCreateGuid IN Ole32.dll STRING @
   DECLARE INTEGER StringFromGUID2 IN Ole32.dll STRING, STRING @, LONG
   LOCAL lcGuidStruct, lcGuid, lnSize, lcReturn
   lcGuidStruct = SPACE(16)
   lcGuid       = SPACE(80)
   lcReturn     = ""
   IF CoCreateGuid(@lcGuidStruct) = 0        && 0 = No Errors
      IF StringFromGuid2(lcGuidStruct, @lcGuid, (LEN(lcGuid) / 2)) <> 0 && Non-zero = No Errors
         lcReturn = STRCONV(LEFT(lcGuid, 76), 6)
      ENDIF
   ENDIF
   RETURN lcReturn
ENDPROC