IIS. домашняя директория

Morli Dots
Дата: 22.11.2007 17:26:24
Как определить домашнюю директорию установленную в IIS?

ЗЫ в реестре не всегда есть инфа, но в метаданных они присутствует. а вот как прочитать их?
Morli Dots
Дата: 23.11.2007 16:52:15
через метаданные IIS
uses ActiveDs_TLB, ActiveX, ComObj;


function GetObject(const name: string): IDispatch;
var Moniker: IMoniker;
    Eaten: integer;
    BindContext: IBindCtx;
    Dispatch: IDispatch;
  begin
  OleCheck(CreateBindCtx(0, BindContext));
  OleCheck(MkParseDisplayName(BindContext, PWideChar(WideString(name)), Eaten, Moniker));
  OleCheck(Moniker.BindToObject(BindContext, nil, IDispatch, Dispatch)); 
  Result := Dispatch;
  end;

function GetComputerNetName: string;
var buffer: array[0..255] of char;
    size: dword;
  begin
  size := 256;
  if GetComputerName(buffer, size) then Result := buffer
                                    else Result := '';
end;

procedure TForm1.Button1Click(Sender: TObject);
var IIS  : IADs;
    Path : String;
begin
  IIS := GetObject('IIS://'+GetComputerNetName+'/W3SVC/1/Root') as IADs;
  // моно и так IIS := GetObject('IIS://localhost/W3SVC/1/Root') as IADs;
  Path := IIS.Get('Path');
  Showmessage( Path );
  IIS := nil;
end;

ЗЫ полная переписка: http://www.delphikingdom.ru/asp/answer.asp?IDAnswer=57173

Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.