如何用delphi写isapi 请问如何用delphi写isapi? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 http://www.swissdelphicenter.ch/en/showarticle.php?id=2 呵呵,楼主怎么现在还写isapi啊,记得我两三年前用delphi写过一些isapi,调试很不方便,每次修改编译之前都要回收应用程序池,好麻烦啊。凭着记忆刚刚有写了个小demo,功能很简单,现在把代码贴出来,希望对楼主有帮助,---------------------------------------------------------------------------------unit Unit1;interfaceuses SysUtils, Classes, HTTPApp;type Tmyisapi = class(TWebModule) procedure myisapiindexAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); procedure myisapitestAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); private { Private declarations } public { Public declarations } end;var myisapi: Tmyisapi;implementation{$R *.dfm}procedure Tmyisapi.myisapiindexAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);begin Response.Content := '<form name="form1" method="post" action="/isapi/isapitest.dll/test"><input type="text" name="text1" id = "text1"><input type="submit" name="Submit" value="提交"></form>'end;procedure Tmyisapi.myisapitestAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);begin Response.Content := 'we get the request :'+Request.ContentFields.Values['text1']; Response.Content := Response.Content + '<p>'+Request.URL; Response.Content := Response.Content + '<p>'+Request.PathInfo; Response.Content := Response.Content + '<p>'+Request.Host; Response.Content := Response.Content + '<p>'+Request.ScriptName;end;end.---------------------------------------------------------------------------------object myisapi: Tmyisapi OldCreateOrder = False Actions = < item Default = True Name = 'index' PathInfo = '/index' OnAction = myisapiindexAction end item Name = 'test' PathInfo = '/test' OnAction = myisapitestAction end> Left = 478 Top = 343 Height = 150 Width = 215end---------------------------------------------------------------------------------建议楼主开发时用cgi,这样调试比较方便,不用每次都回收应用程序池,发布时再改为isapi。还有一部分陈年的源代码,需要的留下邮箱 例子很多的建议用WebAppDebuger形势开发成功后移植到ISAPI推荐IIS6用W3WP.EXE -debug方式调试,非常方便 Delphi给word加背景,加水印? 如何检测浏览器的某个子窗口是否关闭 关于IdFtp和视频广播的问题 如何做一个坐标图 如何用语句禁止使用word软件? 关于数据库里的图片显示的问题求解!!! 大家帮忙 关于串口通信。寻求解决方案,SOS 在线等候!!! Delphi+SqlServer备份大讨论,快来参加。 请教问题 控件中实现返回所调控件的上一页 关于视频聊天的程序
每次修改编译之前都要回收应用程序池,好麻烦啊。
凭着记忆刚刚有写了个小demo,功能很简单,现在把代码贴出来,希望对楼主有帮助,
---------------------------------------------------------------------------------
unit Unit1;interfaceuses
SysUtils, Classes, HTTPApp;type
Tmyisapi = class(TWebModule)
procedure myisapiindexAction(Sender: TObject; Request: TWebRequest;
Response: TWebResponse; var Handled: Boolean);
procedure myisapitestAction(Sender: TObject; Request: TWebRequest;
Response: TWebResponse; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;var
myisapi: Tmyisapi;implementation{$R *.dfm}procedure Tmyisapi.myisapiindexAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Response.Content := '<form name="form1" method="post" action="/isapi/isapitest.dll/test"><input type="text" name="text1" id = "text1"><input type="submit" name="Submit" value="提交"></form>'
end;procedure Tmyisapi.myisapitestAction(Sender: TObject; Request: TWebRequest;
Response: TWebResponse; var Handled: Boolean);
begin
Response.Content := 'we get the request :'+Request.ContentFields.Values['text1'];
Response.Content := Response.Content + '<p>'+Request.URL;
Response.Content := Response.Content + '<p>'+Request.PathInfo;
Response.Content := Response.Content + '<p>'+Request.Host;
Response.Content := Response.Content + '<p>'+Request.ScriptName;
end;end.
---------------------------------------------------------------------------------
object myisapi: Tmyisapi
OldCreateOrder = False
Actions = <
item
Default = True
Name = 'index'
PathInfo = '/index'
OnAction = myisapiindexAction
end
item
Name = 'test'
PathInfo = '/test'
OnAction = myisapitestAction
end>
Left = 478
Top = 343
Height = 150
Width = 215
end
---------------------------------------------------------------------------------建议楼主开发时用cgi,这样调试比较方便,不用每次都回收应用程序池,发布时再改为isapi。还有一部分陈年的源代码,需要的留下邮箱
建议用WebAppDebuger形势开发成功后移植到ISAPI
推荐IIS6用W3WP.EXE -debug方式调试,非常方便