TEcoForumServices 类(繁体版4月15日博客)
来源:互联网 发布:淘宝开通淘金币 编辑:程序博客网 时间:2024/05/28 01:36
TEcoForumServices 类
有位大陆的读者写信跟我说他在《Delphi MDA/DDA程序设计--使用ECO》一书的CD中找不到TEcoForumServices 类的源代码,虽然我记得我已经把整本书下的Source打包到CD中了,而且TEcoForumServices 是一个很简易的类.Anyway,如果有人也需要这个类的源代码,下面就是它完整的列表。
unit EcoForumWrapperServices;
interface
uses System.Web, ECOForumWebAppDemo1EcoSpace, PECOForumUnit,
Borland.Eco.Handles, Borland.Eco.ObjectRepresentation,
System.Web.Security, Borland.Eco.Services;
type
TEcoForumServices = class
private
{ Private Declarations }
public
class function CreateMemeber(mySpace : Borland.Eco.Handles.EcoSpace) : ForumMember;
class function getForumSite(objl : IObjectList) : ForumSite;
class function MemberLogin(mySpace : Borland.Eco.Handles.EcoSpace; const UserId : string; const sPassword : string) : ForumMember;
end;
implementation
{ TEcoForumServices }
class function TEcoForumServices.CreateMemeber(mySpace : Borland.Eco.Handles.EcoSpace): ForumMember;
begin
Result := ForumMember.Create(mySpace);
end;
class function TEcoForumServices.getForumSite(objl: IObjectList): ForumSite;
var
obj : System.Object;
begin
Result := HttpContext.Current.Session['ForumSite'] as ForumSite;
if (Result = nil) then
begin
obj := objl[0].AsObject;
Result := obj as ForumSite;
HttpContext.Current.Session['ForumSite'] := Result;
end;
end;
class function TEcoForumServices.MemberLogin(mySpace : Borland.Eco.Handles.EcoSpace;
const UserId, sPassword: string): ForumMember;
const
selectUser = 'ForumMember.allInstances-var
enPW : string;
userOCL : string;
OCLResult : IElement;
oclService : IOclService;
begin
enPW := FormsAuthentication.HashPasswordForStoringInConfigFile(sPassword,'md5');
oclService := mySpace.GetEcoService(typeof(IOclService)) as IOclService;
userOCL := System.String.Format(selectUser,UserId,enPW);
OCLResult := oclService.Evaluate(userOCL);
Result := nil;
if (OCLResult.GetAsCollection.Count >< 0) then
Result := OCLResult.GetAsCollection.Item[0].AsObject as ForumMember;
HttpContext.Current.Session['ForumMember'] := Result;
end;
end.
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1611611
- TEcoForumServices 类(繁体版4月15日博客)
- TEcoForumServices 类(繁体版4月15日博客)
- TEcoForumServices 类(繁体版4月15日博客)
- TEcoForumServices 类(繁体版4月15日博客)
- TEcoForumServices 类(繁体版4月15日博客)
- 生日快乐,师大附中!(繁体版4月15日博客)
- 生日快乐,师大附中!(繁体版4月15日博客)
- 《Delphi MDA/DDA程序设计——使用ECO》一书已到台湾(繁体版4月16号博客)
- 《Delphi MDA/DDA程序设计——使用ECO》一书已到台湾(繁体版4月16号博客)
- C#中利用SMTPClient发送邮件 修改4月15日写的博客
- 2015年3月15日开始坚持博客
- 报到博客_2016年4月4日
- 2009年4月8日 博客改进公告!
- 2010年4月24日开通博客
- 4月17日参加博客园俱乐部活动
- CSDN博客2014年4月24日清理缓存
- 4月15日-5月15日工作总结
- 4月15日到4月21日学习计划
- ECO传奇(II)
- 关于GridView中自定义分页、单选、多选、排序、自增列的简单应用
- mapx toolused 事件代码例子
- ECO传奇(III)
- 生日快乐,师大附中!(繁体版4月15日博客)
- TEcoForumServices 类(繁体版4月15日博客)
- 《Delphi MDA/DDA程序设计——使用ECO》一书已到台湾(繁体版4月16号博客)
- CodeGear开发者日投影片和Delphi 2007 For Win32范例录像
- SWT中处理多线程
- JMF系统介绍 http://mengmailu.bokee.com/viewdiary.11163579.html
- Delphi for PHP Update 1推出了
- CodeGear的RoR开发工具终于开始露出神秘的面貌
- GridView 批量删除,自定义分页,定位页码
- ACE高效PROACTOR编程框架一ClientHandle