用PB编写邮件应用程序（4）(转)

结束邮件会话

　　在“退出”按钮的Clicked事件中加入下列代码：

MyMail.mailLogoff() //结束邮件会话 Destroy MyMail //销毁会话对象

　　至此，一个简单的邮件应用程序就编好了，它虽然还不足以和FoxMail、Outlook相媲美，但已经具备了它们最基本的功能。

　　例子中的程序在PB6.5中调试通过，大部分代码可以直接利用。

mydear 发表于:2007.08.07 15:37 ::分类: ( 一般分类 ) ::阅读:(1次) :: 评论 (0)

--&gt

===========================================================

用PB生成GUID解决主键重复(1)(转)

===========================================================

　编一个全局函数如下：

　　//---------------------------------------------
　　//Function f_get_GUID//得到全球唯一码
　　//Argument: of_guid //全球唯一码
　　//Return: [None]
　　//Create by 泥草鞋 2004-03-10
　　//----------------------------------------------
　　oleObject PBObject
　　long ll_result
　　PBObject = CREATE oleObject

　　ll_result = PBObject.ConnectToNewObject("PowerBuilder.Application")
　　IF ll_result < 0 THEN
　　messagebox(gs_message,"连接失败：与PowerBuilder.Application连接出错！")
　　return
　　ELSE
　　ll_result = PBObject.GenerateGUID(REF of_guid)
　　END IF

　　IF ll_result < 0 THEN
　　messagebox(gs_message,"生成GUID失败：不能获得GUID！")
　　return
　　END IF

　　of_guid = mid(of_guid,2,len(of_guid) - 2)
　　//End of Fuction

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/7178747/viewspace-161508/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/7178747/viewspace-161508/