求助:各位大哥,WNetCancelConnection2 这个函数到底有什么用?我这样用错了吗?谢谢! ( 积分: 100 )

  • 主题发起人 主题发起人 宇宙神
  • 开始时间 开始时间

宇宙神

Unregistered / Unconfirmed
GUEST, unregistred user!
请教:
服务器的
计算机名为:lsh
IP 地址为 :192.168.0.188

客户端的
计算机名为:wqs
IP 地址为 :192.168.0.166


我的图片是放在 ledtest/test4/ 目录下
并且把 ledtest 是设置为共享的


procedure TForm1.Button1Click(Sender: TObject);
var
NetShare :NETRESOURCE;
begin
NetShare.dwType := RESOURCETYPE_ANY;
//NetShare.lpLocalName := PAnsiChar(edit1.Text);
NetShare.lpLocalName := 'D:';
//NetShare.lpRemoteName:= PAnsiChar(edit2.Text);
NetShare.lpRemoteName:= '//lsh/ledtest/test4/';
NetShare.lpProvider:='';
WNetAddConnection2(NetShare,'administrator','1999',CONNECT_UPDATE_PROFILE);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
strLocalName : PChar;
begin
strLocalName:= PAnsiChar(edit1.Text);
WNetCancelConnection2(strLocalName,CONNECT_UPDATE_PROFILE,False);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
map:Tbitmap; //位图实例变量
begin
map:=Tbitmap.Create;
map.Transparent:=true;
map.LoadFromFile('//lsh/ledtest/test4/001.bmp');
form1.Canvas.Draw(20,20,map);
end;


程序运行后:
我首先单击 Button1,想使登陆到服务器
然后 单击 Button3, 想显示图片

可是还是
提示:
can not open file "//lsh/ledtest/test4/001.bmp'"
登陆失败,未知的用户名或密码错误


各位大哥,这是什么原因?
我哪里写错了
是不是
map.LoadFromFile('//lsh/ledtest/test4/001.bmp');
这里写错了,如果是的话,那要怎么写呢?

谢谢!
 
后退
顶部