Web开发得利器－IntraWeb.ppt

Web开发的利器－IntraWeb IntraWeb简介 IntraWeb是Delphi7新集成的一个Web应用的开发工具，用IntraWeb开发Web应用，与使用Delphi开发普通程序几乎完全一样，这样一名优秀的Delphi开发员会立即成为一名优秀的Web应用开发员，经验和习惯丝毫不会改变。即使不懂HTML、JavaScript语言，也同样能够开发出非常好的Web应用。 为了让应用程序有更好的灵活性，利用IntraWeb开发的应用程序可以以独立的可执行程序的方式（Standalone方式）像其他的桌面应用程序一样来运行，并提供了调试能力，调试就像开发其他的Delphi应用程序一样，可以设置断点、监视、运行等。 图13-1 IntraWeb的控件页 图1-2中的IWStandard、IWData、IWClientSide、1WControl四个控件都是IntraWeb的专用控件。Delphi数据控件中的不可见控件，都可以在IntraWeb里使用，但原来所有的可视控件都不可用。 创建一个IntraWeb程序 例13-1页面上放一个文本框和一个按钮，可以在文本框中输入内容，然后单击按钮，文本框中的内容就成了按钮的标题，并弹出一个消息框。 图13-2 IntraWeb选项卡 图13-3 View Form对话框 （5）为IWButton 的 OnClick事件编写代码： procedure TIWFormModule.IWButton1Click(Sender: TObject); begin IWButton1.Caption := IWEdit1.Text; Webapplication.ShowMessage(Hello); end; 单击菜单中的Run|Execute命令。 IntraWeb组件的特点 IntraWeb组件基本上是和Windows组件相对应的,表13-1列出了这种对应关系。 因此，在设计IntraWeb应用程序时，可以仿照通常的Windows界面设计方法。 窗体 显示一个Form通常的语句格式如下： TformType.Create(RWebApplication).Show; 它是以下格式的缩写： with TformType.Create(RWebApplication) do begin end; 一个普通的应用程序中，当一个Form不再需要的时候，它能通过使用.Free或.Destroy方法来Destory掉，在IntraWeb应用程序中，有一点相似，但是，你不能直接调用.Free或.Destroy方法，你必须调用一个.Release方法，.Release方法并没有真正地Destory这个Form,这个Form直到退出了事件并且把控制权还给IntraWeb的时候才会真正地Destory. 使用实例 网页菜单 数据浏览 图13-10 选择Stand Alone Application With DataMoudle 打开数据模块DataModule1，并且在数据模块上放置一个Table组件，让它指向DBDEMOS数据库中的animals.dbf表。并且再放置一个DataSource组件，系统缺省为DataSourcel,设置它和Table组件相关联，如图13-11所示。 图13-11 数据模块DataModule1 图13-12 窗体界面 (4) 为主窗体添加OnCreate事件的响应函数。 procedure TformMain.IWAppFormCreate(Sender: TObject); begin with DataModule1 do begin IWDBEdit1.DataSource:=DataSource1; IWDBEdit1.DataField:=NAME; IWDBEdit2.DataSource:=DataSource1; IWDBEdit2.DataField:=AREA; IWDBEdit3.DataSource:=DataSource1; IWDBEdit3.DataField:=SIZE; IWDBImage1.DataSource:=DataSource1; IWDBImage1.DataField:=BMP; Table1.Active:=true; end; (5) 分别为“最前”，“向前”，“向后”和“最后”四个按钮的单击事件添加下面的响应函数： procedure TformMain.IWButton1Click(Sender: TObject); begin DataModule1.Table1.First; end; ? procedure Tfor