如何在Delphi中实现ASP编程
但是脚本语言是一种非编译的语言，其所开发的web程序存在先天的安全性、执行效率扩张性方面的问题，因此我们一般在开发web系统时用高级语言编写asp执行体，然后用脚本语言作为连接代码去调用asp执行体执行存取。在这方面由于asp技术是微软推出的，因此我们一般利用vb或vc，那么delphi程序员又如何实现呢？在这方面笔者最近通过inrpisre的资料，实现了在delphi环境中实现asp技术的web编程，现以一个介绍如下：1、在delphi环境中建立一个新的acdiveX DLL项目Project1，然后通过delphi的Active Server Object建立一个ASP对象，在他的coClassName中填入所建立对象的名字MyAspObject.2、通过type Library为刚建立的MyAspObject对象建立一个将要被脚本语言调用的方法MyAspRequest.3、由于刚才所建立的ASP对象是从TASPObject继承的，应此我们在方法建立中可以直接使用asp对象，现在为我们建立的Asp对象填写代码如下：produce TMyAspObject.MyAspRequest; begin repsonse.write('
您的姓名是:'); repsonse.write(request.form.item['Name']）； repsonse.write('');//从所要建立的网页中读出用户名// repsonse.write('
您的工作是:'); repsonse.write(request.form.item['work']）； repsonse.write('');//从所要建立的网页中读出用户工作// repsonse.write('
您用的开发工具:'); if(request.form.item['delphi'].count>0) repsonse.write('delphi'); if(request.form.item['bcb'].count>0) repsonse.write('c++ Builder');//判断用户所用的开发工具// repsonse.write(''); repsonse.write('
您的身份:'); repsonse.write(request.form.item['Identity'])； repsonse.write('');//读出用户的身份// end; 4、对程序进行编译并在delphi中进行注册为PMyAspObject.dll文件。 5、编写用于连接的ASP脚本语言文件MyAsp.asp 这是一个用delphi建立的ASP对象 你填的内容如下 6、建立用于显示的网页Myhtm.htm
服务器具备的条件是24小时开机，因为要向外开放网络。web的话就必须搭建相应的环境，比如你制作的网站是asp环境就必须搭建asp环境的，还有php，jps等等，根据自己的需求安装环境，还有其他的web应用。搭建网站的条件是
1.域名（comcnorg等等）
2.服务器（自己电脑，或者购买服务器）
3.脚本（aspaspxphpjsp等等）为了防止别人入侵你的网站你可以安装相应的软件来防止别人入侵你的网站比如：安全宝，安全狗。
实现了在delphi环境中实现asp技术的web编程，现以一个介绍如下：
1、在delphi环境中建立一个新的acdivex dll项目project1，然后通过delphi的activeserverobject建立一个asp对象，在他的coclassname中填入所建立对象的名字myaspobject.
2、通过typelibrary为刚建立的myaspobject对象建立一个将要被脚本语言调用的方法myasprequest.
3、由于刚才所建立的asp对象是从taspobject继承的，应此我们在方法建立中可以直接使用asp对象，现在为我们建立的asp对象填写代码如下：
produce tmyaspobject.myasprequest;
begin
repsonse.write(
您的姓名是:);
repsonse.write(request.form.itemname）；
repsonse.write();//从所要建立的网页中读出用户名//
repsonse.write(
您的工作是:);
repsonse.write(request.form.itemwork）；
repsonse.write();//从所要建立的网页中读出用户工作//
repsonse.write(
您用的开发工具:);
repsonse.write(delphi);
repsonse.write(c++ builder);//判断用户所用的开发工具//
repsonse.write();
repsonse.write(
您的身份:);
repsonse.write(request.form.itemidentity)；
repsonse.write();//读出用户的身份//
end;
4、对程序进行编译并在delphi中进行注册为pmyaspobject.dll文件。
5、编写用于连接的asp脚本语言文件myasp.asp你填的内容如下
6、建立用于显示的网页myhtm.htm请选择
姓名：
工作：
开发工具：delphi
c++ builder
您的身份:
学生技术人员
7、然后把myhtm.htm和myasp.asp放在个人的web服务器中的shd目录下即可浏览测试。
DELPHI中AS的用法,请教各位。
答：dog:=animal as tdog;text:=dog.eat;或(animal as tdog).eat同样可用isif animal is tdog then dog(animal).eat;<<入门到精通上>>比较详细，可以看看。
delphi下使用ACCESS是如何进行搭建的
答：1、放置adoconnection控件 设置NAME属性 简单来说就是该控件的名字 为以后在代码中调用他用的 这个CONNECTIONSTRING属性是设置连接字符串的 连接什么数据库都要用他 D:\database\bmgl.mdb 这句是连接路径 LOGINPROMPT属性是设置是否每次连接都提示输入密码什么的 这个一般设置为FALSE CONNECTED属性设置为TR...
在Delphi 7里做统计时,sql语句中count 怎么用?
答：sql语句中count，就是DELPHI中ADO.recordcount。通过ADO实现步骤如下：1、创建ADOQuery控件，并将sql写入ADOquery；2、初使化ado，即close>>open，如有条件参数还需传入条件参数；3、调用ADO.recordcount。附实例代码如下图：
如何使用Delphi编写可用于ASP等程序的DLL文件?在线等.
答：选择Delphi编辑器选单中的File/New，在New Item中选择ActiveX 项中的Automation Object选项，系统将显示the Automation Object导向，在物件名称中输入TestObject和选择Multiple Instance选项,按OK键后系统将弹出类型编辑器，其实这时系统已经生成了两个单元（Project1—TLB.pas与unit1.pas），unit1.pas中有如...
如何用delphi程序实现,将EXCEL导入ACCESS数据库
答：procedure TF_Main.ToolButtonExcelClick(Sender: TObject);var OpenDialog:TOpenDialog; iCount:integer;begin if ShowIYN('是否真的要导入Excel数据,要生的数据将被删除?')<>IDCANCEL then try OpenDialog:=TOpenDialog.Create(Self); OpenDialog.DefaultExt := 'xls'; OpenDialog...
delphi中ads.asstring的值为‘2013-07-16’,为什么ads.asdatetime的值...
答：转换函数是 Converts a string to a TDateTime value.Unit SysUtils Category datetime routines Delphi syntax:function StrToDateTime(const S: string): TDateTime; overload;function StrToDateTime(const S: string; const FormatSettings: TFormatSettings): TDateTime; overload;C++ syntax:extern PACKAGE...
在delphi中实现报表加水印,该怎么处理
答：1、可在代码中设置：PrivateSubRunBySize(IsPreviewAsBoolean)'求得用报表使用的计量单位表示的纸张尺寸值DimWidthAsDoubleDimLengthAsDoubleWidth=CDbl(txtWidth.Text)Length=CDbl(txtLength.Text)If(Report.Unit=grmuInch)ThenWidth=Width/2.54Length=Length/2.54EndIfReport.Printer.PrinterName="aaaa"'...
在Delphi中,实现单击同一个按钮改变不同的内容,求源代码
答：如大于4，就不干了 Exit;Button1.Tag := Button1.Tag + 1; // 因初值为0，而数组下标从1开始，故先加一 Edit1.Text := C_asPoet[ Button1.Tag ]; // 选用适当的句子 end;注意：如果Button1.Tag在你的整体逻辑中有其它用途，则将以在TForm中定一个专用的私有变量来计数当前句子。
delphi 数据库如何在一个界面一个表格中显示出两个表中的数据~
答：用一个DBGRID来显示，然后用ADOSTOREDPROC来获取数据。大致SQL语句你这样写应该可以（具体不清楚你的表结构，我猜想应该是用销售单号来关联的吧？）销售单号 VARCHAR(50) /*做为存储过程的输入参数*/ SELECT 商品编码，数量,(SELECT 日期 FROM 销售单 WHERE 销售单.销售单号 = @销售单号) AS ...
如何在DELPHI中实现字段模糊查询??
答：NameStr:String;‖设置字符串中间变量 Begin NameStr:=′王′；Query1??SQL??Clear{清除SQL属性中的SQL命令语句} Query1??SQL??Add(′Select＊FromCustom??dbwhere(Name1>=N1)and(Name2<=N2)′);‖SQL命令语句 Query1??params[0]??AsString:=NameStr＋chr(0);‖控制参数在NameStr＋Chr(0...
