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 TformMain.IWButton4Click(Sender: TObject); begin DataModule1.Table1.last; end;,procedure TformMain.IWButton2Click(Sender: TObject); begin DataModule1.Table1.Prior; end; procedure TformMain.IWButton3Click(Sender: TObject); begin DataModule1.Table1.Next; end;,图13-13 运行结果,提示信息,例13-4 在网络应用程序中，根据用户的输入，一般利用下面四种方式同用户展示提示信息： l 弹出一个对话框 l 新打开一个简化的IE窗口 l 切换到一个新页面 切换到一个新页面，该页面上有专门设定的显示信息的信息框，信息在此显示。,图13-14 设计窗体,2）为IWLink组件的单击事件添加响应函数如下： procedure TformMain.IWButton1Click(Sender: TObject); begin WebApplication.ShowMessage(你好!,smAlert); end; procedure TformMain.IWButton2Click(Sender: TObject); begin WebApplication.ShowMessage(你好!,smNewWindow); end; procedure TformMain.IWButton3Click(Sender: TObject); begin WebApplication.ShowMessage(你好!,smSameWindow); end; procedure TformMain.IWButton4Click(Send