求用delphi开isapi源码

Question

求用delphi开isapi源码，给高分

Answer 1

写错了，求用delphi开发isapi源码

Answer 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 = 215
end
---------------------------------------------------------------------------------建议楼主开发时用cgi，这样调试比较方便，不用每次都回收应用程序池，发布时再改为isapi。还有一部分陈年的源代码，需要的留下邮箱