ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 用PB编写邮件应用程序(4)(转)

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

原创 Linux操作系统 作者:rain0903 时间:2019-06-16 07:30:07 0 删除 编辑
结束邮件会话

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

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


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

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

mydear 发表于:2007.08.07 15:37 ::分类: ( 一般分类 ) ::阅读:(1次) :: 评论 (0)
-->
===========================================================
用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/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2006-04-07

  • 博文量
    708
  • 访问量
    535527