pb9生成guid的方法
2015-06-01 10:08
260 查看
(2013-04-09 12:35:11)
转载▼
pb9生成全球唯一编码的方法试过三种:
第一种最简单,不过遇到过几次不唯一的情况,所以放弃
string of_guid
of_guid = trim(gs_login_user)+string(gf_getdate(),"yyyy-mm-dd hh:mm:ss:ms ")+string(rand(1000))
of_guid = f_guid()
return of_guid
第二种,编译后脱离开发环境不知道需要哪些dll文件,有人在我的异常网上问过,没解答,所以也放弃
oleObject PBObject
string ls_GUID
long ll_result
PBObject = CREATE oleObject
ll_result = PBObject.ConnectToNewObject &
("PowerBuilder.Application")
IF ll_result < 0 THEN
messagebox("","连接失败:与PowerBuilder.Application连接出错!")
Destroy PBObject
return ""
ELSE
ll_result = PBObject.GenerateGUID(REF ls_GUID)
END IF
Destroy PBObject
return Mid(ls_GUID,2,len(ls_GUID) - 2)
第三种目前在用,也好使,需要rpcrt4.lib,需要定义一个结构
unsignedlong data1
unsignedinteger data2
unsignedinteger data3
character data4[8]
函数内容:
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
RETURN ls_uuid
ELSE
RETURN ""
END IF
pb9生成guid的方法
(2013-04-09 12:35:11)
转载▼
标签:pb9guid全球唯一识别码 |
第一种最简单,不过遇到过几次不唯一的情况,所以放弃
string of_guid
of_guid = trim(gs_login_user)+string(gf_getdate(),"yyyy-mm-dd hh:mm:ss:ms ")+string(rand(1000))
of_guid = f_guid()
return of_guid
第二种,编译后脱离开发环境不知道需要哪些dll文件,有人在我的异常网上问过,没解答,所以也放弃
oleObject PBObject
string ls_GUID
long ll_result
PBObject = CREATE oleObject
ll_result = PBObject.ConnectToNewObject &
("PowerBuilder.Application")
IF ll_result < 0 THEN
messagebox("","连接失败:与PowerBuilder.Application连接出错!")
Destroy PBObject
return ""
ELSE
ll_result = PBObject.GenerateGUID(REF ls_GUID)
END IF
Destroy PBObject
return Mid(ls_GUID,2,len(ls_GUID) - 2)
第三种目前在用,也好使,需要rpcrt4.lib,需要定义一个结构
unsignedlong data1
unsignedinteger data2
unsignedinteger data3
character data4[8]
函数内容:
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
RETURN ls_uuid
ELSE
RETURN ""
END IF
相关文章推荐
- UITableViewCell的重用机制原理(转)
- java版mosquitto客户端使用SSL功能的具体操作总结
- IPROUTE2 Utility Suite Documentation
- 在真机运行报错:The provisioning profile specified in your build settings...
- android view.requestLayout()方法
- QuerySet API
- JavaString、StringBuilder、StringBuffer总结
- 《Entity Framework 6 Recipes》中文翻译系列 (34) ------ 第六章 继承与建模高级应用之多条件与QueryView
- [安卓自动化测试] 001.UIAutomator初探
- Android应用程序UI硬件加速渲染的Display List构建过程分析
- Easyui的datagrid结合hibernate实现数据分页
- UICollectionView基础
- CSS3 Media Queries
- break、continue、return循环三剑客之异同
- 远丰DRPbuilder:企业首选的分销系统
- iOS开发- UICollectionView详解+实例
- IOS开发学习笔记034-UIScrollView-xib实现分页
- 动态计算UITableViewCell高度详解
- 自定义UITableview自带侧滑删除按钮样式 by 徐
- uGUI动态加载控件位置错误