求助:各位大哥,请帮我看看我下面这个问题(关于WNetCancelConnection2 )谢谢! ( 积分: 100 )

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

宇宙神

Unregistered / Unconfirmed
GUEST, unregistred user!
请教:<br>服务器的<br>计算机名为:lsh&nbsp;<br>IP&nbsp;地址为&nbsp;:192.168.0.188<br><br>客户端的<br>计算机名为:wqs<br>IP&nbsp;地址为&nbsp;:192.168.0.166<br><br><br>我的图片是放在&nbsp;&nbsp;ledtest/test4/&nbsp;目录下<br>并且把&nbsp;ledtest&nbsp;是设置为共享的<br><br><br>procedure&nbsp;TForm1.Button1Click(Sender:&nbsp;TObject);<br>var<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NetShare&nbsp;:NETRESOURCE;<br>begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NetShare.dwType&nbsp;:=&nbsp;RESOURCETYPE_ANY;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//NetShare.lpLocalName&nbsp;:=&nbsp;PAnsiChar(edit1.Text);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NetShare.lpLocalName&nbsp;:=&nbsp;'D:';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//NetShare.lpRemoteName:=&nbsp;PAnsiChar(edit2.Text);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NetShare.lpRemoteName:=&nbsp;'//lsh/ledtest/test4/';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NetShare.lpProvider:='';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WNetAddConnection2(NetShare,'administrator','1999',CONNECT_UPDATE_PROFILE);<br>end;<br><br>procedure&nbsp;TForm1.Button2Click(Sender:&nbsp;TObject);<br>var<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strLocalName&nbsp;:&nbsp;PChar;<br>begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strLocalName:=&nbsp;PAnsiChar(edit1.Text);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WNetCancelConnection2(strLocalName,CONNECT_UPDATE_PROFILE,False);<br>end;<br><br>procedure&nbsp;TForm1.Button3Click(Sender:&nbsp;TObject);<br>var<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;map:Tbitmap;&nbsp;//位图实例变量<br>begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;map:=Tbitmap.Create;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;map.Transparent:=true;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;map.LoadFromFile('//lsh/ledtest/test4/001.bmp');<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;form1.Canvas.Draw(20,20,map);<br>end;<br><br><br>程序运行后:<br>我首先单击&nbsp;Button1,想使登陆到服务器<br>然后&nbsp;单击&nbsp;Button3,&nbsp;想显示图片<br><br>可是还是<br>提示:<br>can&nbsp;not&nbsp;open&nbsp;file&nbsp;&quot;//lsh/ledtest/test4/001.bmp'&quot;&nbsp;<br>登陆失败,未知的用户名或密码错误<br><br><br>各位大哥,这是什么原因?<br>我哪里写错了<br>是不是&nbsp;<br>map.LoadFromFile('//lsh/ledtest/test4/001.bmp');<br>这里写错了,如果是的话,那要怎么写呢?<br><br>谢谢!
 
NetShare.lpRemoteName:=&nbsp;'//lsh/ledtest';
 
后退
顶部