使用Delphi创建IIS虚拟目录

原创 2004年03月18日 12:35:00

想把自己的东西整理出来已经很久了,可是一直没有时间,自己的水平又太差,也怕耽误别人的时间,所以至今没写出任何东西出来。可是每次看到别人的文章心里也痒痒,于是找来自己在www.delphibbs.com上发表过的一个帖子,以回馈大家。

{ *********************************************************************** }
{                                                                                                                              }
{                                                                                                                              }
{                    zhao zhenhua                                                                                       }
{                                                                                                                              }
{ Copyright zhao zhenhua           email:zhao-zhenhua@163.net                                       }
{                                                                                                                              }
{ *********************************************************************** }

unit MainUnt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl, Buttons,Activeds_TLB;

type
  TIISConfigFrm = class(TForm)
    edtAlias: TEdit;
    Label1: TLabel;
    dlbIIS: TDirectoryListBox;
    dcbIIS: TDriveComboBox;
    Label2: TLabel;
    edtPath: TEdit;
    GroupBox1: TGroupBox;
    cbRead: TCheckBox;
    cbScript: TCheckBox;
    cbExecute: TCheckBox;
    cbWrite: TCheckBox;
    cbBrowse: TCheckBox;
    bbtOK: TBitBtn;
    lblPath: TLabel;
    procedure dlbIISChange(Sender: TObject);
    procedure bbtOKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  function ADsGetObject(const PathName: WideString; const GUID:TGUID; out I: IUnknown): HRESULT; stdcall;

var
  IISConfigFrm: TIISConfigFrm;

implementation

{$R *.dfm}

function ADsGetObject;external 'ActiveDS.dll' name 'ADsGetObject';

procedure TIISConfigFrm.dlbIISChange(Sender: TObject);
begin
  edtPath.Text:=dlbIIS.Directory;
end;

procedure TIISConfigFrm.bbtOKClick(Sender: TObject);
var
  I: IADsContainer;
  ADs: IADs;
begin
  if Length(Trim(edtAlias.Text))=0 then begin
    Application.MessageBox('別名不可以為空!','警告');
    Exit;
  end;

  if Length(Trim(edtPath.Text))=0 then begin
    Application.MessageBox('請選定虛擬目錄位置!','警告');
    Exit;
  end;

  if ADsGetObject('IIS://localhost', IID_IADsContainer, IUnknown(I)) = S_Ok then begin //IIS已經安裝
    if ADsGetObject('IIS://localhost/w3svc', IID_IADsContainer, IUnknown(I)) = S_Ok then begin //Web伺服器存在
      ADs := IADs(I.GetObject('IIsWebServer', '1'));  //取得服務
      if ADs.QueryInterface(IID_IADsContainer, I) = S_OK then begin //服務支持
        ADs := IADs(I.GetObject('IIsWebVirtualDir', 'Root'));  //在Web伺服器的Root下建立虛擬目錄
        if ADs.QueryInterface(IID_IADsContainer, I) = S_OK then begin //服務支持
          try
            ADs := IADs(I.Create('IIsWebVirtualDir', edtAlias.Text)); //建立虛擬目錄,別名為edtAlias.Text
          except
            Application.MessageBox('這個別名已經存在,請選擇另外的別名!','警告');
            Exit;
          end; //try except
          ADs.Put('AccessRead', cbRead.Checked);      //設定各參數
          ADs.Put('AccessWrite', cbWrite.Checked);
          ADs.put('AccessScript',cbScript.Checked);
          ADs.Put('AccessExecute',cbExecute.Checked);
          ADs.put('EnableDirBrowsing',cbBrowse.Checked);
          ADs.Put('Path', edtPath.text);
          ADs.Put('DefaultDoc','Default.asp, Default.html, Default.htm, ndex.asp, Index.html, Index.htm, Home.asp, Home.Html, Home.htm');
          ADs.Put('EnableDefaultDoc',True);//允許打開默認文件
          ADs.SetInfo;                  //保存參數
          Application.MessageBox('您的設定已經保存。','恭喜');
        end;
      end;
    end;
  end else
    Application.MessageBox('您的電腦上沒有安裝IIS或者您無權訪問IIS。','警告');
end;

procedure TIISConfigFrm.FormCreate(Sender: TObject);
begin
  edtPath.Text:=dlbIIS.Directory;
end;

end.

VS中 无法创建虚拟目录

从前就有个疑问了,为什么我拉取别人写好的代码后就可以在IIS里面生成一个网站呢?这里所谓的生成网站,是指包含了所有源代码文件的网站;相对地,发布网站,就是指包含被编译的源文件所得到的DLL文件的网站。...
  • Sven1520
  • Sven1520
  • 2016年12月23日 22:22
  • 4570

IIS中FTP虚拟目录的妙用

相信不少朋友一定都用过微软自带的IIS中的FTP来架设自己的FTP站点吧!我开始学习FTP架站时就是从它开始的。后来玩的多了,发现FTP虚拟目录有一个非常有趣的地方。并且,我们完全可以利用这点来达到隐...
  • u014062332
  • u014062332
  • 2014年05月23日 16:55
  • 1390

IIS站点/虚拟目录中访问共享目录(UNC)

UNC是 Universal Naming Convention 的简称,也叫通用命名规范、通用命名约定。 网络(范指局域网)上资源的完整位置名称。 格式为 \\servername\sharen...
  • minsenwu
  • minsenwu
  • 2013年11月08日 22:15
  • 2164

用VB创建IIS虚拟目录

  • 2008年09月15日 02:30
  • 9KB
  • 下载

C# 创建IIS虚拟目录

  • 2011年01月04日 12:23
  • 9KB
  • 下载

IIS虚拟目录的建立与使用

  • 2012年12月13日 16:20
  • 29KB
  • 下载

如何:在IIS 中创建和配置虚拟目录

http://yxiaoli.2009.blog.163.com/blog/static/12994237320104206320337/ 如何:在IIS 中创建和配置虚拟目录 此页面仅适...
  • mituan1234567
  • mituan1234567
  • 2014年08月12日 13:02
  • 1010

在应用程序级别之外使用注册为 allowDefinition='MachineToApplication' 的节是错误的。如果在 IIS 中没有将虚拟目录配置为应用程序,则可能导致此错误

解决方案一:导致你这个问题,是因为你的虚拟目录路径设置不正确,路径设置到你的工程名即可. 或是你的虚拟目录别名...多少有影响..   我之前都是出这样的问题,这是自身经验...你试试. 把I...
  • fan325
  • fan325
  • 2011年09月08日 12:24
  • 1568

C#创建IIS站点或者虚拟目录

using System; using System.Collections.Generic; using System.Text; using System.DirectoryServices...
  • lbuskeep
  • lbuskeep
  • 2012年02月24日 07:10
  • 2806

如何:在 IIS 中创建和配置虚拟目录

使用 Internet 信息服务 (IIS) 管理器,可以为 ASP.NET Web 应用程序创建虚拟目录。虚拟目录在客户端浏览器上显示时,就好像它包含在 Web 服务器的根目录中一样,即使它...
  • xiayimiaokuaile
  • xiayimiaokuaile
  • 2011年04月23日 16:57
  • 966
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:使用Delphi创建IIS虚拟目录
举报原因:
原因补充:

(最多只允许输入30个字)