Delphi205 BS程序设计技巧集（1--3）.docVIP

Delphi2005 B/S程序设计技巧集（1--3） 宋雨炫 2005-3 现在delphi 2005 B/S的书籍资料太少，几乎没有可参考的资料，这在一定程度上限制了delphi 2005的使用，相反C#，ASP的书籍资料到处都是。通过几个月的学习也算是总结了一点经验，从现在起我将陆续将ASP和C#的例子、技巧翻译到delphi 2005下面，希望对大家的学习和工作有帮助，毕竟.Net是一种发展趋势。我将不定期写新的内容，同时，如果你在工作或学习中有什么问题，我也会将问题加入本篇文章，另外，一个人的能力毕竟有限，也希望大家共同来解决问题。 本篇文章内容绝大部分都是新的，与以前写的文章基本没有相同的内容。 2005-3-10 更新说明：好长时间没有写东西，也没有学习，主要是事情太多，笔记本电脑又坏了需要更换，心情也不好，就没有动手，现在很多事情都过去了，就写点心得体会，水平有限，仅供参考。另外，以前写的文章里面很多东西都有偏差，在这里也算是修正一下。里面很多基础的东西例如数据连接等，请参考前面写的delphi 2005 B/S程序设计一文，里面有，在里面查找sohy就有了。 1、文件的上传（Html组件的使用） （程序代码参见--例1.rar） 新建一个工程文件，在这里我起名为WebApp。 在下方切换到“Design”页面。在“Tool Palette”中选择“Html Elements”组件中的“Html File Upload”组件，将其放置到“Design”页面上。 将其“Name”和“ID”设置为“MyFile”（其它名字也可以，这里是个例子）， 在下方切换到“WebForm1.aspx”，在 input id=MyFile style=Z-INDEX: 1; LEFT: 38px; POSITION: absolute; TOP: 30px type=file name=MyFile代码后面加入runat=server，将其变为 input id=MyFile style=Z-INDEX: 1; LEFT: 38px; POSITION: absolute; TOP: 30px type=file name=MyFile runat=server 存盘。这时在下方切换到“WebForm1.pas”，检查 type TWebForm1 = class(System.Web.UI.Page) {$REGION Designer Managed Code} strict private procedure InitializeComponent; procedure Button1_Click(sender: System.Object; e: System.EventArgs); {$ENDREGION} strict private procedure Page_Load(sender: System.Object; e: System.EventArgs); strict protected 后面是否有MyFile: System.Web.UI.HtmlControls.HtmlInputFile;语句，如果没有手工添加（应该是自动添加的）。这样就可以在pas文件中正常使用Html File Upload组件了。 举个例子具体演示文件上传：这段代码只是上传文件，并将其存储在当前服务器目录上，文件名为图片.jpg，演示的是上传图片文件，如果是其它的文件类型，需要取出MyFile.PostedFile.FileName的扩展名，并将其写入MyFile.PostedFile.SaveAs(Server.MapPath(图片.jpg));里面，这就需要分析字符串，方法和delphi7相同，这里就不说了。只需看procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);里面的代码。 unit WebForm1; interface uses System.Collections, System.ComponentModel, System.Data, System.Drawing, System.Web, System.Web.SessionState, System.Web.UI, System.Web.UI.WebControls, System.Web.UI.HtmlControls; type TWebForm1 = cla