程序代码如下：

unit IWIndex;

interface

uses
   Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, Controls,
   IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWGrids,
   IWCompButton;

type
   TIWForm1 = class(TIWAppForm)
     IWGrid1: TIWGrid;
     IWButton1: TIWButton;
     procedure OnDeleteLine(Sender:

IntraWeb Novice

Preface

Catalog(Finished)

Chapter 1 – General Introduction(Finished)

本程序用于获取自己的帖子数，以及升 VIP 的倒计时，纯属无聊时做着玩。。。

代码如下：

unit Index;

interface

uses
   Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, ExtCtrls,
   Controls, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,
   IWCompLabel, IWCompButton, IdBaseComponent, IdComponent, IdTCPConnection,
   IdTCPClient, IdHTTP, IWCompMemo, IWBaseComponent, IWBaseHTMLCompo

Internet Express 需要主机才能运行，所以必须先制作主机，可以是远程主机，也可以是本地主机，本例中采用远程主机进行制作。

首先打开delphi，新建一个Application，然后再新建一个Remote Data Module（远程数据模块）设置CoClassName为RDS，将数据模块保存为untRDS，工程保存为RemoteRDS

在RDS中添加一个Table和一个DataSetProvider，把DataSetProvider关联到Table上。配置Table的数据源和数据表。然后全部保存，编译。完成后运行一下，以便程序完成注册。远程模块就做好了。

再新建一个Web Server Application（Web服务器工程），将web模块保存为untWM，工程保存为WenRDS

在Web模块上放置一个DCOMConnection，一个XMLBroker和一个InetXPageProducer。

设置DCOMConnection的ServerName为RemoteRDS.RDS，此时系统会自动生成远程模块的序列号，设置Connected属性为true，确保和远程模块完成连接。

设置XMLBroker的RemoteServer属性为DCOMConnection，此时ProviderName属性变为可用，选择DataSetProvider，设置ReconfileProducer属性为InetXPageProducer，设置Active属性为true。

双击InetXPageProducer

IntraWeb是一个创建基于Web应用程序的具有革命性意义的新方法，在早期版本的IntraWeb的用最简单的方法创建Web解决方案的基础上，

1.    首先WebBroker提供的Web开发组件相当少，只有PageProducer和QueryTableProducer几个很少的组件。

2.    组件不支持所见即所得的开发方式，所有Html页面的设计都要通过FrontPage和DreawWeaver等网页开发工具来完成。

3.    动态网页实现的支持也很弱，只支持通过透明标签OnHtmlTag和WebModule的OnAction事件来实现。

4.    不提供对Session的封装，完全需要自己通过Cookie来实现。

5.    调试非常不方便，需要通过安装第三方的WebServer，如IIS，并且要配置一系列注册表才能完成调试，而且在ISAPI方式下调试更是一场恶梦，总是要不停的重新启动WebServer。

6.    所有的业务逻辑只能放在一个单元中来实现，不容易实现多人开发，我曾经写过的一个WebServer，一个单元里塞下了1万多行代码，维护非常不方便，不适合编写大型的WebServer。

从Delphi5开始，Borland提供了一组新的InternetExpress组件，这套组件同WebBroker的特点