还
还是朋友
Unregistered / Unconfirmed
GUEST, unregistred user!
win2000:
能建立FTP主目录,但设置密码不成功:
代码如下:
procedure TSysControl.Button1Click(Sender: TObject);
var
Site, Server, VRoot, VDir: Variant;
begin
Site := CreateOleObject('IISNamespace');
Site := Site.GetObject('IIsFtpService', 'localhost/MSFTPSVC');
Server := Site.GetObject('IIsFtpServer', '1');
VRoot := Server.GetObject('IIsFtpVirtualDir', 'Root');
VRoot.Path := 'D:/Temp';
VRoot.AccessRead := true;
VRoot.AccessWrite := true;
VRoot.UNCUserName := 'zknet';
VRoot.UNCPassword := 'zknet';
VRoot.SetInfo;
Site := Unassigned;
Server := Unassigned;
VRoot := Unassigned;
VDir := Unassigned;
end;
为何,请帮忙?
能建立FTP主目录,但设置密码不成功:
代码如下:
procedure TSysControl.Button1Click(Sender: TObject);
var
Site, Server, VRoot, VDir: Variant;
begin
Site := CreateOleObject('IISNamespace');
Site := Site.GetObject('IIsFtpService', 'localhost/MSFTPSVC');
Server := Site.GetObject('IIsFtpServer', '1');
VRoot := Server.GetObject('IIsFtpVirtualDir', 'Root');
VRoot.Path := 'D:/Temp';
VRoot.AccessRead := true;
VRoot.AccessWrite := true;
VRoot.UNCUserName := 'zknet';
VRoot.UNCPassword := 'zknet';
VRoot.SetInfo;
Site := Unassigned;
Server := Unassigned;
VRoot := Unassigned;
VDir := Unassigned;
end;
为何,请帮忙?