如何用delphi程序向局域网内的计算机（某个文件夹下）发送TXT文档？(150分)

  • 主题发起人 主题发起人 darlingpeng
  • 开始时间 开始时间
D

darlingpeng

Unregistered / Unconfirmed
GUEST, unregistred user!
如何用delphi程序向局域网内的计算机（某个文件夹下）发送TXT文档？
我在网上找了下，大部分例子都是有发送端，接受端的，请问我只弄个发送端，接受的电脑什么程序都不用写，该怎么弄啊？
在线等！帮帮小弟
 
有没有知道的哥们啊
 
自己写就可以了，就像写本地文件一样。
//192.168.1.1/C:/TEST.TXT
前提：
对方要开完全共享；
对方电脑建立共享连接；
 
恩，我来试下
 
to Highpeak,
这种方法要受到共享服务器用户名，密码的限制，有没有更好的方法？
欢迎大家来讨论
 
有没有知道的哥们啊？
小弟急，在线等
 
f:textfile;
fl:integer;
str,gxfilename:string;

str:='aaa';
gxfilename:='//192.168.1.1/C:/TEST.TXT';
fl:=FileCreate(gxfilename);
FileClose(fl);
str:=rechCode.Text;
AssignFile(f,gxfilename);
append(F);
writeln(f,str);
CloseFile(F);
 
关注！！！
f:textfile;
fl:integer;
str,gxfilename:string;

str:='aaa';
gxfilename:='//192.168.1.1/C:/TEST.TXT';
fl:=FileCreate(gxfilename);
FileClose(fl);
str:=rechCode.Text;
AssignFile(f,gxfilename);
append(F);
writeln(f,str);
CloseFile(F);
调试ing
 
to 可视化,zkq712
str:=rechCode.Text;
rechCode 是什么？
 
欢迎大家来讨论这个问题
 
关注！！！
f:textfile;
fl:integer;
str,gxfilename:string;

str:='aaa';
gxfilename:='//192.168.1.1/C:/TEST.TXT';
fl:=FileCreate(gxfilename);
FileClose(fl);
str:=rechCode.Text;
AssignFile(f,gxfilename);
append(F);
writeln(f,str);
CloseFile(F);
测试一下...
 
to 书痕
str:=rechCode.Text
什么意思
 
貌似用户名密码的局限无法突破，真要是用户名、密码、完全共享、客户端都不需要就可以直接写东西进去，那么恭喜你，你可以找微软麻烦了。
感觉完全共享是必需的，连接时，在发送文件前进行连接。我以前是在程序里先调用命令，net use ipipc$ "密码" /user:"用户名"，连接成功后再去读写文件。
读写同Highpeak
 
rechCode.Text 就是文档的内容。
此方法也要共享计算的文件夹，属性要设置成可写。
 
多人接受答案了。
 
这样写的话是不是不太严禁
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
S
如何向局域网内的一台计算机发送短信(20分)
回复
16
查看
176
skytears
S
野
如何监听局域网内某台机器的特定端口?用什么控件?(200分,在线等待) (200分)
回复
7
查看
267
野兽王子
野
N
如何检测局域网内各台机子的计算机名和IP并列表?(50分)
回复
7
查看
197
newhzh
N
X
如何在Delphi程序中获取局域网中相关指定IP地址的计算机的硬盘，CPU,内存的使用情况？(50分)
回复
6
查看
233
wangeren
W
后退
顶部