《Web开发的利器-IntraWeb.ppt》由会员分享，可在线阅读，更多相关《Web开发的利器-IntraWeb.ppt（34页珍藏版）》请在三一办公上搜索。
1、Web开发的利器IntraWeb,IntraWeb简介,IntraWeb是Delphi7新集成的一个Web应用的开发工具，用IntraWeb开发Web应用，与使用Delphi开发普通程序几乎完全一样，这样一名优秀的Delphi开发员会立即成为一名优秀的Web应用开发员，经验和习惯丝毫不会改变。即使不懂HTML、JavaScript语言，也同样能够开发出非常好的Web应用。为了让应用程序有更好的灵活性，利用IntraWeb开发的应用程序可以以独立的可执行程序的方式（Standalone方式）像其他的桌面应用程序一样来运行，并提供了调试能力，调试就像开发其他的Delphi应用程序一样，可以设置断点
2、、监视、运行等。,图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
3、TIWFormModule.IWButton1Click(Sender:TObject);beginIWButton1.Caption:=IWEdit1.Text;Webapplication.ShowMessage(Hello);end;,单击菜单中的Run|Execute命令。,IntraWeb组件的特点,IntraWeb组件基本上是和Windows组件相对应的,表13-1列出了这种对应关系。因此，在设计IntraWeb应用程序时，可以仿照通常的Windows界面设计方法。,窗体,显示一个Form通常的语句格式如下：TformType.Create(RWebApplication).Sho
4、w;它是以下格式的缩写：with TformType.Create(RWebApplication)dobeginend;,一个普通的应用程序中，当一个Form不再需要的时候，它能通过使用.Free或.Destroy方法来Destory掉，在IntraWeb应用程序中，有一点相似，但是，你不能直接调用.Free或.Destroy方法，你必须调用一个.Release方法，.Release方法并没有真正地Destory这个Form,这个Form直到退出了事件并且把控制权还给IntraWeb的时候才会真正地Destory.,使用实例,网页菜单,数据浏览,图13-10 选择Stand Alone Ap
5、plication With DataMoudle,打开数据模块DataModule1，并且在数据模块上放置一个Table组件，让它指向DBDEMOS数据库中的animals.dbf表。并且再放置一个DataSource组件，系统缺省为DataSourcel,设置它和Table组件相关联，如图13-11所示。,图13-11 数据模块DataModule1,图13-12 窗体界面,(4)为主窗体添加OnCreate事件的响应函数。procedure TformMain.IWAppFormCreate(Sender:TObject);beginwith DataModule1 dobegin IW
6、DBEdit1.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)分别为“最前”，“向前”，“向后”和“最后”四个按钮的单击事件添加
7、下面的响应函数：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
8、(Sender:TObject);begin DataModule1.Table1.Next;end;,图13-13 运行结果,提示信息,例13-4 在网络应用程序中，根据用户的输入，一般利用下面四种方式同用户展示提示信息：l 弹出一个对话框l 新打开一个简化的IE窗口l 切换到一个新页面切换到一个新页面，该页面上有专门设定的显示信息的信息框，信息在此显示。,图13-14 设计窗体,2）为IWLink组件的单击事件添加响应函数如下：procedure TformMain.IWButton1Click(Sender:TObject);beginWebApplication.ShowMessage
9、(你好!,smAlert);end;procedure TformMain.IWButton2Click(Sender:TObject);beginWebApplication.ShowMessage(你好!,smNewWindow);end;procedure TformMain.IWButton3Click(Sender:TObject);beginWebApplication.ShowMessage(你好!,smSameWindow);end;procedure TformMain.IWButton4Click(Sender:TObject);beginWebApplication.ShowMessage(你好!,smSameWindowFrame);end;,1.1 思考与练习,1.IntraWeb开发WEB应用有何优点？2.IntraWeb中如何使用窗体？上机完成本章的所有例题。,
