关于intraweb中usersession的全局变量username,userpassword问题(100分)

  • 主题发起人 主题发起人 wolf1860
  • 开始时间 开始时间
W

wolf1860

Unregistered / Unconfirmed
GUEST, unregistred user!
从intraweb学习笔记中得知userssion中有username,userpassword两个全局变量在任何时候都可
可以拿过来就用,但为什么userssion却没有声明?
 
1.从intraweb学习笔记中得知userssion中有username,userpassword两个全局变量在任何时候都可以拿过来就用,但为什么userssion却没有声明?
2.用intraweb可不可以实现类似pathinfo的功能?如果可以怎么做?
 
以下是IW的unit ServerController;单元文件:
--------------
unit ServerController;
{PUBDIST}
interface
uses
Classes, DatamoduleUnit, IWServerControllerBase, IWAppForm, IWApplication,
SysUtils;
type
TIWServerController = class(TIWServerControllerBase)
procedure IWServerControllerBaseNewSession(ASession: TIWApplication;
var VMainForm: TIWAppForm);
private
public
end;

TUserSession = class(TComponent)
public
UserID:Integer;
UserName:String;
DataModule1: TDataModule1;
constructor Create(AOwner: TComponent); override;
end;

function UserSession: TUserSession;

implementation
{$R *.dfm}

uses
IWInit;
function UserSession: TUserSession;
begin
Result := TUserSession(RWebApplication.Data);
end;
{ TUserSession }
constructor TUserSession.Create(AOwner: TComponent);
begin
inherited;
Datamodule1 := TDatamodule1.Create(AOwner);
end;

procedure TIWServerController.IWServerControllerBaseNewSession(
ASession: TIWApplication; var VMainForm: TIWAppForm);
begin
ASession.Data := TUserSession.Create(ASession);
end;
end.
---------------------------------
看到UserSession 了吗 ??
 
TUserSession类可以声明任意多的全局变量,
这样你在程序的任何一个地方调用,比用Cookie安全吧。

userSession是个全局函数,返回TUserSession对象。
 
谢谢,还想请教您,在intraweb所做程序中是否可以实现类似pathinfo的功能?如果能实现的话如何去做?
 
多人接受答案了。
 
后退
顶部