盒子论坛 v2.1

berlin+intraweb14.0.61+win10，编了一个exe文件，启动后点击按钮启动IE出错
Error details:
Exception message : Access violation at address 009EAFD9 in module 'XXWeb.exe'. Read of address 00000070
Exception class : EAccessViolation
Exception address : 009EAFD9
Exception Time : 2016-07-18 22:10:46.640
----------
Application Name : XXWeb.exe
Application Version:
Started at : 2016-07-18 22:02:19.160
Running for : 8 minutes 27 seconds
Computer Name : EEMACBOOKPRO1
Compiler Version : 310
----------
IntraWeb Version : 14.0.61
Multi-session : False
Content Path : D:\Source_code\Delphi\XXMIS_1\Bin\wwwroot\
Session count : 1
Application Path : D:\Source_code\Delphi\XXMIS_1\Bin\
Active Form : [unassigned]
Active Form list :
Form list :
Browser Name : Microsoft Internet Explorer
Browser UserAgent : Mozilla/5.0 (Windows NT 10.0; WOW64; Trident/7.0; rv:11.0) like Gecko
Session ID : mZRo5niIweUsCeFvqNhFCW
Last Access : 2016-07-18 22:10:46.619
Callback : False
Runtime parameters :
----------
Client IP address : 127.0.0.1
Request PathInfo : /$/
Request Method : GET
Request User Agent : Mozilla/5.0 (Windows NT 10.0; WOW64; Trident/7.0; rv:11.0) like Gecko
Cookies Count : 1
----------
[Stack trace is empty]

工程文件里的内容
uses
  IWRtlFix,
  Forms,
  IWStart,
  ServerController in 'ServerController.pas' {IWServerController: TIWServerControllerBase},
  UserSessionUnit in 'UserSessionUnit.pas' {IWUserSession: TIWUserSessionBase},
  DatamoduleUnit in 'DatamoduleUnit.pas' {DataModule1: TDataModule},
  FindexFrm in 'FindexFrm.pas' {FindexForm: TIWAppForm},
  IWUserFrm in 'IWUserFrm.pas' {IWUserForm: TIWAppForm},

通过调试，发现FindexFrm 中UserSession=nil。

请问这要怎么处理？谢谢
----------------------------------------------
-

作者：

doorkey (DoorKey)	★☆☆☆☆	-
	盒子活跃会员

2016/7/18 22:37:36

1楼：

这么点代码看不出来什么。
----------------------------------------------
QQ: 9717005 我的Blog：http://www.cnblogs.com/anydelphi/

作者：

sxbug (太阳雨)	★☆☆☆☆	-
	盒子活跃会员

2016/7/18 23:49:34

2楼：

UserSession怎么创建的？

应该在UserSessionUnit单元里面写一些什么？以前是

public
    DM: TDataModule1;

    constructor Create(AOwner: TComponent); override;
    { Public declarations }
  end;

implementation

{$R *.dfm}

constructor TIWUserSession.Create(AOwner: TComponent);
begin
inherited;
DM := TDataModule1.Create(Self);
end;

现在是不是要写一个
TIWUserSession.IWUserSessionBaseCreate(Sender: TObject);事件？
----------------------------------------------
-

作者：

sxbug (太阳雨)	★☆☆☆☆	-
	盒子活跃会员

2016/7/19 7:56:48

3楼：

这个程序在以前的环境，具体版本我不记得了，一定能用的。

现在升级了 IW，是不是有变化了？
----------------------------------------------
-

作者：

sxbug (太阳雨)	★☆☆☆☆	-
	盒子活跃会员

2016/7/20 8:02:25

4楼：

我利用新程序的向导重新生成了项目，感觉没有问题。但要把原来的程序都整合回去，也是一个麻烦的过程。郁闷啊

有没有简单的办法？谢谢
----------------------------------------------
-

信息

登陆以后才能回复