Delphi 的 WebService 的 Cookie 操作

2017-04-05 19:25:39来源:CSDN作者:pcplayer人点击

WebService 底下是 Web 操作,在 DELPHI 的 WebService 框架底下,客户端对服务器端的操作,都是对服务器的一次 WEB 访问。


服务器端如何验证客户端的用户身份?最简单的办法是客户第一次登录时提供一个用户ID,服务器端把这个 ID 写到 Web 的 Cookie 里面。以后服务器端每次处理客户端请求的时候,都可以通过读 Cookie 来获取当前发起这个请求的客户端的用户 ID。


 对 于客户端的 HttpRIO 来说,Cookie 是透明的。只要实例一直存在,只要服务器端在返回的时候设置了 COOKIE,它会每次调用的时候自动提交服务器端设置的 COOKIE,无须代码干预,也无法干预(实在要干预,必须用 HttpRIO 的底层的 WINAPI 函数)。


WebService 的服务器端要处理基于 Web 的 Cookie,必须首先 uses WebBrokerSOAP, HttpApp 这两个单元。


服务器端创建这个 COOKIE:

procedure TXinWen.GetCookie;var  ACookie: TCookie;begin  ACookie := GetSOAPWebModule.Response.Cookies.Add;  ACookie.Name := 'MyCookie';  ACookie.Value := 'abc';end;---------------------------以后服务器端的函数被客户端调用,或者客户端提交数据,服务器端需要处理的时候,可以通过读 COOKIE 来验证身份: function TXinWen.CheckCookie: Boolean;begin  Result := (GetSOAPWebModule.Request.CookieFields.Values['MyCookie'] = 'abc');end;---------------------------

上述代码,写成 CGI 或者 ISAPI 在 IIS 底下运行没有问题。


如果 WebService 服务器做成独立的EXE,它是基于 Indy WEB Server 的。上述代码会有问题,CheckCookie 方法读不到 COOKIE


原因是创建这个 COOKIE 的 GetCookie 方法里面,没有为 COOKIE 写上生存期。


如果按下面的方式写,基于 INDY 的独立服务器,也能处理 COOKIE 了:

procedure TXinWen.GetCookie;var  ACookie: TCookie;begin  ACookie := GetSOAPWebModule.Response.Cookies.Add;  ACookie.Name := 'MyCookie';  ACookie.Value := 'abc';  ACookie.Expires := Now + 10; //生存期从现在开始一直10天。end;


相关文章

    无相关信息

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台