|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
专业性的服务。有的ASP商提供垂直型的应用服务，针对某一特定行业提供应用服务。假如你想离开asp喜好者的程度，那末你就应当学会为asp编写组件。我在google上搜刮了一下，Delphi编写asp组件的文章一共就几篇，以是明天写了这篇Delphi编写asp组件的基本文章，但愿对老手有点匡助。入手下手吧，让我们一同编写一个”helloworld!”的示例。我这里用的是Delphi7。
1.文件->新建->其他->ActiveX->ActiveXLibrary,然后保留成showdll.dpr
2.再次，文件->新建->其他->ActiveX->ActiveXServerObject,填写CoClassName:showhello,其他稳定，点击ok。
3.如今入手下手写程序，先增加一个办法。选择Ishowhello->右键->New->Method,填写办法称号：sayworld。
4．如今入手下手写程序，将Unit1保留成show.pas,然后增加办法sayworld的代码
show.pas的全体代码以下：
unitshow;
{$WARNSYMBOL_PLATFORMOFF}
interface
uses
ComObj,ActiveX,AspTlb,showdll_TLB,StdVcl;
type
Tshowhello=class(TASPObject,Ishowhello)
protected
procedureOnEndPage;safecall;
procedureOnStartPage(constAScriptingContext:IUnknown);safecall;
proceduresayworld;safecall;//sayworld办法
end;
implementation
usesComServ;
procedureTshowhello.OnEndPage;
begin
inheritedOnEndPage;
end;
procedureTshowhello.OnStartPage(constAScriptingContext:IUnknown);
begin
inheritedOnStartPage(AScriptingContext);
end;
procedureTshowhello.sayworld();//界说sayworld办法
begin
response.Write(Helloworld);//里边的语法和asp一样的写法了，就在这里封装了。
end;
initialization
TAutoObjectFactory.Create(ComServer,Tshowhello,Class_showhello,
ciMultiInstance,tmApartment);
end.
4．点击运转，编译成dll，并主动注册了。这时候候会提醒：
让你放到web服务器上运转，好了如今写个asp文件挪用一下吧，注重Delphi已天生了一个asp文件，我们改一下挪用的办法就能够了。
修正后的showhello.asp代码以下：
<HTML>
<BODY>
<TITLE>TestingDelphiASP</TITLE>
<CENTER>
<H3>YoushouldseetheresultsofyourDelphiActiveServermethodbelow</H3>
</CENTER>
<HR>
<%SetDelphiASPObj=Server.CreateObject("showdll.showhello")
DelphiASPObj.sayworld
%>
<HR>
</BODY>
</HTML>
在iis的站点下运转看看效果吧：
5．其他：
Delphi编写的组件，用win2000的组件服务注册后能够看该组件的接口的办法
6．另有asp页面和组件间传送参数,实在就是给挪用的办法（函数）传送参数，注重Delphi里界说的时分要和vbs的数据范例分歧。这些仍是人人多理论吧。这里次要是想人人学会封装asp中心代码的办法，起个举一反三的感化。
写这些，笔墨未几，就是截图贫苦了点。程度无限，毛病的中央，人人拍砖，拍的轻点啊！！！！
一风一云
2004-10-18
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时. |
|
|Archiver|手机版|仓酷云
鄂ICP备14007578号-2
发表于 2015-1-16 22:30:51
收藏
转播
分享
淘帖
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
照妖镜
楼主