Delphi访问网上邻居的方法

最新推荐文章于 2024-10-27 19:52:17 发布

wjw806

最新推荐文章于 2024-10-27 19:52:17 发布

阅读量280

点赞数

分类专栏： delphi 文章标签： delphi

本文链接：https://blog.csdn.net/wjw806/article/details/120361655

版权

delphi 专栏收录该内容

18 篇文章

订阅专栏

本文介绍使用Delphi进行网络资源连接的具体实现方法，并演示了如何通过代码连接指定服务器，展示连接成功与失败的不同处理方式。此外，还提供了从远程服务器检索文件列表并显示在本地应用程序中的示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TForm1.ConnectServer;
var
NetSource : TNetResource;
dwResult:DWORD;
begin
g_bFlag:=True;
with NetSource do
begin
dwType := RESOURCETYPE_ANY;
lpLocalName :='';
lpRemoteName:='\\172.16.3.209\all';
lpProvider :='';
end;
dwResult:=WnetAddConnection2(NetSource,'123456','administrator',CONNECT_UPDATE_PROFILE);
if dwResult<>0 then
begin
ShowMessage('连接服务器失败!');
g_bFlag:=False;
end
else
begin
//从服务里拷贝文件到本地D盘
// if copyfile(PChar('\\172.16.3.209\all\数据采集系统.zip'),PChar('d:/1.zip'),false) then
// application.MessageBox('文件复制成功.','提示信息',64)
// else
// application.MessageBox('文件复制失败.','提示信息',48);
Memo1.Lines := Searchfile('\\172.16.3.209\all');