Add/Remove ISAPI Filter to/from IIS Automatically Using Delphi

关注

原创最新推荐文章于 2026-11-09 23:10:23 发布 1.6k 阅读 AI 写同款· GEO 优化 ›

基于MATLAB的电池等效电路模型（ECM）仿真，用于分析电气行为和动态响应.zip 1.版本：matlab2014a/2019b/2024b 2.附赠案例数据可直接运行。 3.代码特点：参数化编程、参数可方便更改、代码编程思路清晰、注释明细。 4.适用对象：计算机，电子信息工程、数学等专业的大学生课程设计、期末大作业和毕业设计。立即下载

function SplitString(Source,ch: String): TStringList;
var
    temp:String;
    i:Integer;
begin
    Result:=TStringList.Create;
    if Source = '' then Exit;
    temp := Source;
    i := pos(ch,Source);
    while i <> 0 do
    begin
       Result.add(copy(temp,0,i-1));
       Delete(temp,1,i);
       i := pos(ch,temp);
    end;
    Result.add(temp);
end;

//Add a global IIS isapi filter
function AddISAPIFilterToIISGlobal(FilterName, FilterPath, FilterDesc:String):Boolean;
var
    IISNameSpace,
    IISWebService,
    IISFilters,
    IISFilter:Variant;
begin
    Result := True;
    try
      try
        IISNameSpace := CreateOleObject('IISNamespace');
        IISWebService := IISNameSpace.GetObject('IIsWebService',   'localhost/w3svc');
        IISFilters := IISWebService.GetObject('IISFilters',   'Filters');
        IISFilters.FilterLoadOrder := IISFilters.FilterLoadOrder + ',' + FilterName;
        IISFilters.SetInfo;

        IISFilter := IISFilters.Create('IIsFilter',FilterName);
        IISFilter.FilterPath := FilterPath;
        IISFilter.FilterDescription := FilterDesc;
        IISFilter.SetInfo;
      except
        Result := False;
      end;
    finally
      IISFilter := Unassigned;
      IISFilters := Unassigned;
      IISWebService := Unassigned;
      IISNameSpace := Unassigned;
    end;
end;

//Add a isapi IIS filter to default web site
function AddISAPIFilterToIISDefaultSite(FilterName, FilterPath, FilterDesc:String):Boolean;
var
    IISNameSpace,
    IISWebService,
    IISWebServer,
    IISFilters,
    IISFilter:Variant;
begin
    Result := True;
    try
      try
        IISNameSpace := CreateOleObject('IISNamespace');
        IISWebService := IISNameSpace.GetObject('IISWebService',   'localhost/w3svc');
        IISWebServer := IISWebService.GetObject('IISWebServer',   '1');
        IISFilters := IISWebServer.GetObject('IISFilters',   'Filters');
        IISFilters.FilterLoadOrder := IISFilters.FilterLoadOrder + ',' + FilterName;
        IISFilters.SetInfo;

        IISFilter := IISFilters.Create('IISFilter',FilterName);
        IISFilter.FilterPath := FilterPath;
        IISFilter.FilterDescription := FilterDesc;
        IISFilter.SetInfo;
      except
        Result := False;
      end;
    finally
      IISFilter := Unassigned;
      IISFilters := Unassigned;
      IISWebService := Unassigned;
      IISNameSpace := Unassigned;
    end;
end;

function RemoveISAPIFilterFromIISGlobal(FilterName:String):Boolean;
var
    IISNameSpace,
    IISWebService,
    IISFilters,
    LoadOrder:Variant;
    List:TStringList;
    I:Integer;
begin
    Result := True;
    List := nil;
    LoadOrder := '';
    try
      try
        IISNameSpace := CreateOleObject('IISNamespace');
        IISWebService := IISNameSpace.GetObject('IIsWebService',   'localhost/w3svc');
        IISFilters := IISWebService.GetObject('IISFilters',   'Filters');
        List := SplitString(IISFilters.FilterLoadOrder, ',');
        for I := 0 to List.Count - 1 do
        begin
          if FilterName <> List[I] then
          begin
            if I <> List.Count - 1 then
              LoadOrder := LoadOrder + List[I] + ','
            else
              LoadOrder := LoadOrder + List[I];
          end;
        end;
        if IISFilters.FilterLoadOrder <> LoadOrder then
        begin
          IISFilters.FilterLoadOrder := LoadOrder;
          IISFilters.SetInfo;
        end;

        IISFilters.Delete('IISFilters', FilterName);
      except
        Result := False;
      end;
    finally
      LoadOrder := Unassigned;
      IISFilters := Unassigned;
      IISWebService := Unassigned;
      IISNameSpace := Unassigned;
      if List <> nil then
        List.Free;
    end;
end;

function RemoveISAPIFilterFromIISDefaultSite(FilterName:String):Boolean;
var
    IISNameSpace,
    IISWebService,
    IISWebServer,
    IISFilters,
    LoadOrder:Variant;
    List:TStringList;
    I:Integer;
begin
    Result := True;
    List := nil;
    LoadOrder := '';
    try
      try
        IISNameSpace := CreateOleObject('IISNamespace');
        IISWebService := IISNameSpace.GetObject('IIsWebService',   'localhost/w3svc');
        IISWebServer := IISWebService.GetObject('IISWebServer',   '1');
        IISFilters := IISWebServer.GetObject('IISFilters',   'Filters');
        List := SplitString(IISFilters.FilterLoadOrder, ',');
        for I := 0 to List.Count - 1 do
        begin
          if FilterName <> List[I] then
          begin
            if I <> List.Count - 1 then
              LoadOrder := LoadOrder + List[I] + ','
            else
              LoadOrder := LoadOrder + List[I];
          end;
        end;
        if IISFilters.FilterLoadOrder <> LoadOrder then
        begin
          IISFilters.FilterLoadOrder := LoadOrder;
          IISFilters.SetInfo;
        end;

        IISFilters.Delete('IISFilters', FilterName);
      except
        Result := False;
      end;
    finally
      LoadOrder := Unassigned;
      IISFilters := Unassigned;
      IISWebServer := Unassigned;
      IISWebService := Unassigned;
      IISNameSpace := Unassigned;
      if List <> nil then
        List.Free;
    end;
end;