WNetCancelConnection2 这个函数到底有什么用?需要怎么用? |
|
npsgsys
一般會員 發表:12 回覆:0 積分:2 註冊:2007-03-02 發送簡訊給我 |
请教:
服务器的 计算机名为: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 "\\slh\myfile\my.bmp'" 登陆失败,未知的用户名或密码错误 各位大哥,这是什么原因? 我哪里写错了 谢谢!
------
帮助别人的同时自己会得到更大的快乐——因为我们都是delphi的爱好者!! |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |