本文来自 bet365 750303
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程序
设计一文,2ccc里面有,在里面查找sohy就有了。
1、文件的上传(Html组件的使用) (
程序代码参见--例1.rar) 新建一个工程文件,在这里我起名为WebApp。
在下方切换到“Design”页面。在“Tool Palette”中选择“Html Elements”组件中的“Html File Upload”组件,将其放置到“Design”页面上。
本文来自 bet365 750303
本文来自 bet365 750303
将其“Name”和“ID”设置为“MyFile”(其它名字也可以,这里是个例子),
在下方切换到“WebForm1.aspx”,在
style="Z-INDEX: 1; LEFT: 38px; POSITION: absolute; TOP: 30px" type="file" name="MyFile">代码后面加入runat="server",将其变为
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}
本文来自 bet365 750303
本文来自 bet365 750303
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 = class(System.Web.UI.Page) {$REGION 'Designer Managed Code'} strict private
procedure InitializeComponent;
procedure Button1_Click(sender: System.Object; e: System.EventArgs);
本文来自 bet365 750303
本文来自 bet365 750303
{$ENDREGION} strict private
procedure Page_Load(sender: System.Object; e: System.E