pb中使用winapi生成全球唯一标示码(GUID,UUID) [pb8,pb11.5测试成功]

ehxz

免费乐捐，感谢支持

1、定义结构：
global type uuid from structure
        ulong                data1
        uint                data2
        uint                data3
        character                data4[8]
end type


2、定义外部函数：
PB9及以下：
Function ulong UuidCreate(ref uuid lpUUID) LIBRARY "rpcrt4"
Function ulong UuidToString (ref uuid lpUUID, ref long lpUUIDString)  LIBRARY "rpcrt4" Alias for "UuidToStringA;Ansi"
Function ulong RpcStringFree(long lpUUIDString) LIBRARY "rpcrt4"  Alias for "RpcStringFreeA"

PB10及以上：
Function ulong UuidCreate(ref uuid lpUUID) LIBRARY "rpcrt4" alias for "UuidCreate;Ansi"
Function ulong UuidToString (ref uuid lpUUID, ref long lpUUIDString)  LIBRARY "rpcrt4" Alias for "UuidToStringW;Ansi"
Function ulong RpcStringFree(long lpUUIDString) LIBRARY "rpcrt4"  Alias for "RpcStringFreeW"

3、函数主体：
//====================================================================
// 事件: .gs_get_guid()
//--------------------------------------------------------------------
// 描述:
//--------------------------------------------------------------------
// 参数:
//--------------------------------------------------------------------
// 返回:  string
//====================================================================

CONSTANT Long  RPC_S_OK = 0
CONSTANT Long  RPC_S_UUID_LOCAL_ONLY = 1824

Long ll_rtn
uuid u
ll_rtn = uuidcreate(u)  //Create a new UUID
IF ll_rtn = RPC_S_OK OR ll_rtn = RPC_S_UUID_LOCAL_ONLY THEN
     Long ll_pointer
     String ls_uuid
     ll_rtn = UuidToString(u,ll_pointer)
     ls_uuid = Upper(String (ll_pointer,"Address")) //Convert it to a string

     RpcStringFree(ll_pointer)//Remove the string from the memory
     RETURN ls_uuid
ELSE
     RETURN ""
END IF

4、调用：
sle_1.text = gs_get_guid()

pb8,pb11.5测试成功