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;
为何,请帮忙?
UNCUserName
UNCPassword
不是访问FTP站的用户名与密码。。访问FTP站点的用户名与密码就是windows本身的用户名与密码。。