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->select( M | (M.Name = ''{0}'') and (M.Password = ''{1}'') )->First';
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.
分享到:
相关推荐
2020年辽宁会计人员信息采集时间4月15日至6月15日.doc
Telerik JustCode Q1 2010 SP1(2010年4月15日版本)
2020年3月16日-4月15日薇娅直播产品结构.xls
2020年3月16日-4月15日李佳琦直播产品结构.xls
2009的4月15日后可用的卡巴7的授权文件
4月15日-5 Pod生命周期管理.pdf
行业数据-2020年3月16日-4月15日李佳琦直播产品结构.rar
行业数据-2020年3月16日-4月15日薇娅直播产品结构.rar
Telerik RadControls for ASP.NET AJAX Q1 2010 SP1 Part4(2010年4月15日的版本)
Telerik RadControls for ASP.NET AJAX Q1 2010 SP1 Part1(2010年4月15日的版本)
Telerik RadControls for ASP.NET AJAX Q1 2010 SP1 Part2(2010年4月15日的版本)
Telerik RadControls for ASP.NET AJAX Q1 2010 SP1 Part3(2010年4月15日的版本)
Telerik RadControls for ASP.NET AJAX Q1 2010 SP1 Part5(2010年4月15日的版本)
Telerik RadControls for ASP.NET AJAX Q1 2010 SP1 Part6(2010年4月15日的版本)
黑龙江省双鸭山市高三语文4月15日模拟考试卷.pdf
河北省文安县高三语文4月15日模拟考试卷.pdf
2018年4月15日起CISSP考试大纲有了较大幅度的变化,这里是最新的考试大纲,供有考试需求的朋友学习。
目前最新电脑报2019年第14期,报纸日期2019年4月15日。
2019年4月15日测量一组5层网络的迭代次数