,客户端如何读取(访问)服务器的数据(比如图片),马上放分
求助:各位大哥,客户端怎么读取(访问)服务器的数据(比如图片),马上放分
请教:
服务器的
计算机名为: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 ');
这里写错了,如果是的话,那要怎么写呢?
谢谢!
------解决方案--------------------
你怎麼重複發這麼多啊
------解决方案--------------------
好像button1里面的代码就有错误,似乎是你button1.click俩面那个路径设置的不对
------解决方案--------------------
按照楼主的代码的话,
map.LoadFromFile( '\\lsh\ledtest\test4\001.bmp ');
要改成:
map.LoadFromFile( 'D:\001.bmp ');
因为\\lsh\ledtest\test4\已经被映射成了本地的D:
另外,
NetShare.lpLocalName := 'D: ';
中的D:最好改成比较靠后的盘符, 比如T:
请教:
服务器的
计算机名为: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 ');
这里写错了,如果是的话,那要怎么写呢?
谢谢!
------解决方案--------------------
你怎麼重複發這麼多啊
------解决方案--------------------
好像button1里面的代码就有错误,似乎是你button1.click俩面那个路径设置的不对
------解决方案--------------------
按照楼主的代码的话,
map.LoadFromFile( '\\lsh\ledtest\test4\001.bmp ');
要改成:
map.LoadFromFile( 'D:\001.bmp ');
因为\\lsh\ledtest\test4\已经被映射成了本地的D:
另外,
NetShare.lpLocalName := 'D: ';
中的D:最好改成比较靠后的盘符, 比如T: