请教:
procedure TForm1.Button1Click(Sender: TObject);
var
NetShare :NETRESOURCE;
begin
NetShare.dwType := RESOURCETYPE_ANY;
NetShare.lpLocalName := 'T:';
NetShare.lpRemoteName:='\\192.168.0.118\ledtest\test4';
NetShare.lpProvider:=nil;
ShowMessage(IntToStr(WNetAddConnection2(NetShare,'','guest',CONNECT_UPDATE_PROFILE)));
end;
是这样的:
我的客户端需要读取服务器 D:\ledtest\test4 目录下的图片问题1:
客户端是不知道服务器 登陆帐号 和密码,
那么是不是只能用 guset 帐户啊?
不用帐呼行不?问题2:
guest 帐户的权限够了吗?问题3:
我试了,服务器必须把 防火墙 关掉?
有没有什么方法可以不关掉防火墙呢/
或者防火墙什么地方可以设置吗?
(设置可以使这个程序可以访问)问题4:
如果通过网络把图片考到客户端
这样的程序是怎么写的?谢谢!
procedure TForm1.Button1Click(Sender: TObject);
var
NetShare :NETRESOURCE;
begin
NetShare.dwType := RESOURCETYPE_ANY;
NetShare.lpLocalName := 'T:';
NetShare.lpRemoteName:='\\192.168.0.118\ledtest\test4';
NetShare.lpProvider:=nil;
ShowMessage(IntToStr(WNetAddConnection2(NetShare,'','guest',CONNECT_UPDATE_PROFILE)));
end;
是这样的:
我的客户端需要读取服务器 D:\ledtest\test4 目录下的图片问题1:
客户端是不知道服务器 登陆帐号 和密码,
那么是不是只能用 guset 帐户啊?
不用帐呼行不?问题2:
guest 帐户的权限够了吗?问题3:
我试了,服务器必须把 防火墙 关掉?
有没有什么方法可以不关掉防火墙呢/
或者防火墙什么地方可以设置吗?
(设置可以使这个程序可以访问)问题4:
如果通过网络把图片考到客户端
这样的程序是怎么写的?谢谢!
现在客户端需要把 my.bmp 这个图片下载到
自己硬盘的 D:\myfile 目录下,
这样的语句要怎么写啊?客户端要不要先登陆到服务器? 谢谢!