使用Delphi7创建Intraweb应用程序

1、9使用Delphi7创建Intraweb应用程序赵海平 HYPERLINK mailto:haipinhaipin一、使用Intraweb创建Web服务程序Intraweb是一套开发Web应用程序的简单工具，你可以像开发传统的可视化和窗口程序一样，开发Web应用程序。你可以通过Delphi语言写出各种商用软件,当需要的时候Intraweb可以转成脚本或者Html语言。你可以通过下面的各种方式使用IntraWeb:单独式IntraWeb使用其独立的应用对象类型处理程序。程序开发不需商业服务器,而以Intraweb自己的应用程序服务器来进行应用程序开发.应用程序模式IntraWeb支持应用程序对象

2、。应用程序依靠商业服务器。页面模式应用程序被WebBrokerorWebSnap所支持。二、IntraWeb应用程序可以创建如下三种类型：ISAPI/NSAPIApache版本1和2CGI（仅用于页面模式）Windows服务三、使用Intraweb控件IntraWeb与大多数的浏览器兼容,IntraWeb应用程序自己探测用户的浏览器,以达到最好的浏览效果。IntraWeb支持InternetExplorer从版本4-6,Netscape4和6,以及Mozilla.。一个重要的优势是IntraWeb象开发Vcl和CLX程序一样,使用同一套工具和技术。你可以拖动控件到窗口上开发你的程序界面。下面列

3、出VCL/CLX控件与IntraWeb控件的对照表：VCL/CLX控件对应的IntraWebIntraWeb控件面板位置ButtonIWButtonIWStandardCheckBoxIWCheckBoxIWStandardComboBoxIWComboBoxIWStandardDBCheckBoxIWDBCheckBoxIWDataDBComboBoxIWDBComboBoxIWDataDBEditIWDBEditIWDataDBGridIWDBGridIWDataDBImageIWDBImageIWDataDBLabelIWDBLabelIWDataDBListBoxIWDBListBox

4、IWDataDBLookupComboBoxIWDBLookupComboBoxIWDataDBLookupListBoxIWDBLookupListBoxIWDataDBMemoIWDBMemoIWDataDBNavigatorIWDBNavigatorIWDataDBTextIWDBTextIWDataEditIWEditIWStandardImageIWImageorIWImageFileIWStandardLabelIWLabelIWStandardListBoxIWListBoxIWStandard9MemoIWMemoIWStandardRadioGroupIWRadioGroup

5、IWStandardTimerIWTimerIWStandardTreeViewIWTreeViewIWStandard四、开始创建IntraWeb应用程序假如你以前使用过Delphi开发过可视化应用程序，那么，恭喜你，你已经有了基本的开发IntraWeb的基础。基本的设计界面是你拖动IntraWeb控件到应用程序的窗口中，换句话说，假如你想把Button这个控件放到,在普通的VCL/CLX应用程序中，你所做的是，在“stand”控件组中找到Button控件，然后把它拖到应用程序界面中，统计程序后Button显示在你的程序中。与创建VCL/CLX程序一样，不同的地方是你要找的控件在IWStan

6、dard控件组中。好了，下面开始一步一步教大家怎样创建一个IntraWeb应用程序：1、首先在你的硬盘上创建一个新目录，来存放你的IntraWeb应用程序，例如我创建的目录叫HelloWord；phpphp斗phpRRAizliTiinPrugramFilesresintemp小说DOD印刷厂信息5PFDI5K管理丟统HelloWord（图1）2、在Delphi的菜单中选择FilelNewlOther,选择IntraWebtab（如图2）3、选择StandAloneApplication,然后按OK.。出现下面的界面4、找到刚才新建的目录HelloWord,按OK,好了，出现如下窗口;如果没有

7、出现的话Shift+F12选取,如图5、好了，现在是发挥你的想象力的时候了。你可以在窗口上放置各种控件了。我现在加入了Table和datasource以及Ibdbgrid，设置相应的连接。6、然后F9运行,出现MyintraWebApplicationServer6、按工具栏最左边的按钮，现在自动打开了你的默认浏览器。显示如图所示的内容原来做表格如此容易，呵呵。CustNoCutiLpiitiyAddtlAddt2CityState1221f:Lau：iiDiveShoppe4976SugarloafHwySuite103KapaaBLau；iiHI94766-1231UtiiscuPOBox

8、Z-547Freepurt.1Sight.Diver1Nept.uneL.；meKat-uPaphos1354CayttumDiversWurldUtiliinitei：lPOBox541C3i：itidCayttum136TurnSawyerDivingCentre632-1ThirdFtydenhojClmstiimst-edSt.Croix00S201330BlueJackAquaCenter23-738PaddingtonLaneSuite310W：iip：illU田99776113S4VIPDiversClub32MainSt.Clmstiimst-edSt.Croix02S0015

9、10Oce：itiP；rai：lisePOBox8745K：iilua-P:lona田94756113Fiiiit.ast.iqueAquaticaZ32999#12A-77A.A.Edgijt过1551M；rmut.DiversClub872QueenSt.PGt.chenerOnt.iiiiuG3N2160TheDepthCharge15243UnderwaterFwy.IliTiitathonFL350031563BlueSpOils20312thAve.Box746GiribaldiOR911871624MakaiSCUBAClubPOBox8534K：iilua-P:LonaHI947561645ActionClubPOBox5451-FS；rasot.aFL32274好了，今天就写孑到这里了,岛明天继续。POBox68NegrilJiitiLiiica