内容发布更新时间 : 2024/12/23 7:45:46星期一 下面是文章的全部内容请认真阅读。

intraweb11.0.63发布成EXE程序时实现

自定义窗体的方法

之所以写这篇文章，是因为我用file->new->other->intrabweb->intraweb application wizard开始新建的intraweb程序，保存后发现想改变程序的图标是不可以的，我用IW是IntraWeb 11.0.63，是在delphi7下使用的，不知道是不是因为我使用的破解版IW的原故还是其他的，在project->options->application的Ico处竟然是无效的，我不喜欢用delphi默认的应用程序图标，想换成自己喜欢的。在编译9.0版本的程序时，发现IntraWeb XI版本自动生成的dpr文件也是跟原来的在9.0以下的是不一样的，程序启动的方式改变了很多。

篇一

（一）带自已的定义的主窗体。

1、新建正常的app,具体步骤是：file->new->other->intrabweb->intraweb application wizard开始新建。直接保存

2、新加入一个from,具体步骤是：file->new->form开始新建,直接保存为unit2/ Form2。

3、修改生成的dpr文件，在dpr文件中是这样的写，红色的是需要改动的 program newform; uses Forms,

//IWStart,//被注销引用 IWMain,//新增引用

1

ServerController TIWServerController},

in 'ServerController.pas' {IWServerController:

Unit1 in 'Unit1.pas' {IWForm1: TIWFormModuleBase}, UserSessionUnit in 'UserSessionUnit.pas' {IWUserSession:

TIWUserSessionBase},

Unit2 in 'Unit2.pas' {Form2};

{$R *.res} begin

//TIWStart.Execute(True);//被注销不用的,此处只有这一句语句。 //以下是新增的，因为新增form2,所以form2为主页。共三个语句。 Application.Initialize;

Application.CreateForm(TForm2, Form2);//这句是关键。 Application.Run; end.

4、在from2中放置一个IWStandAloneServer1: TIWStandAloneServer，一个mmo1: TMemo，一个lbl1: TLabel.

分别写如下的代码：

procedure TForm2.FormCreate(Sender: TObject); begin

mmo1.Lines.Add('留言服务开关：On');

2

mmo1.Lines.Add('监听端口: ' + IntToStr(GServerController.Port)); mmo1.lines.add(''); end;

//此处GServerController.Port要引用IWglobal单元,所以要引用IWglobal，具体写法是在{$R *.dfm}下面写如下：uses IWglobal;

procedure TForm2.lbl1Click(Sender: TObject); begin

IWStandAloneServer1.Run; end;

procedure TForm2.IWStandAloneServer1DebugLog(ASender: TObject; ALog: String); begin

mmo1.Lines.Add(ALog); end;

5、在IWForm1中使用IW的控件进行应用的编写。 6、编译成功，运行成功，可以修改程序的图标。 见图：

3

篇二

（二）Intraweb默认的应用程序，可修改程序图标。

1、使用file->new->other->intrabweb->intraweb application wizard开始新建的Intraweb程序，直接保存。

2、修改生成的dpr文件，在dpr文件中是这样的写，红色的是需要改动的 program newform1; uses Forms, //IWStart,

IWMain,//新增引用 ServerController TIWServerController},

Unit1 in 'Unit1.pas' {IWForm1: TIWFormModuleBase}, UserSessionUnit TIWUserSessionBase};

{$R *.res}

4

in 'ServerController.pas' {IWServerController:

in 'UserSessionUnit.pas' {IWUserSession:

begin

// TIWStart.Execute(True); Application.Initialize;

Application.CreateForm(TformIWMain, formIWMain); Application.Run;

//注意：Application.CreateForm(TformIWMain, formIWMain);这一句，全部的程序都是要用CreateForm （TformIWMain, formIWMain），换成TIWForm1, IWForm1)出错。可能TformIWMain, formIWMain是系统默认启动的窗体。

end.

3、在IWForm1中使用IW的控件进行应用的编写。 4、编译成功，运行成功，可以修改程序的图标。 见图：

5