Question

Delphi中的数据以.txt形势保存到局域网指定路径

我想把Delphi edit1=GLG,edit2=LLL,edit3=AAA的数据
以 ZMZ.txt的文件名保存到局域网 192.168.2.13该IP的
D:\ZPLX文件夹下。请问如何操作？
另外保存完后，我想通过Delphi程序马上去192.168.2.13该IP的
D:\ZPLX文件夹下查询一下是否有ZMZ.txt这个文件，如果没有
系统马上进行报警。
请高手指导，谢谢
hgs101 我也知道这样处理的啊
但是我现在要3个算法
1.Delphi信息转换为.txt
2.txt文件保存到指定路径
3.检查.txt文件是否真的保存成功

很感谢 gatohell的算法，我快成功了
现在我想做动态的文件名
即：\\192.168.2.13\ZPLX\ZMZ.txt ZMZ.txt的文件名为动态的，
文件名Edit1内容 如Edit.text:=123 文件名为：123.txt
\\192.168.2.13\ZPLX\123.txt

Answer 1

1. 先将要保存的内容保存到本机的ZMZ.txt下.
2. 在192.168.2.13 的D:\ZPLX 文件夹共享. 可以建立一个帐号, 设置为可写的权限.
3. 先在本机测试一下是否可以连接 .13 电脑的共享文件夹,并且确认是否可以写文件.
4. 这样就可以在网络连接状况是Ok下, 就像操作本机目录一样使用那个共享文件夹.当然也可以检查 ZMZ.txt 这个文件是否存在等等操作.

Answer 2

假设当你点击button1，执行你说的操作。前提是你对'\\192.168.2.13\ZPLX\‘文件夹有可写权限。
procedure TForm1.Button1Click(Sender: TObject);
var
Str, FileName: string;
i: Integer;
TxtFile: TextFile;
begin
Str := edit1.text + ' ' + edit2.text + ' ' + edit3.text;
FileName := '\\192.168.2.13\ZPLX\ZMZ.txt';
try
// 文本文件赋值
AssignFile(TxtFile, FileName);
// 如果文件不存在,则新建文件;如果文件存在,则删除后重建文件
Rewrite(TxtFile);
// 写入字符串
Writeln(TxtFile, Str); //实现你所说的“算法1，算法2”
// 清空已打开文件的缓存
Flush(TxtFile);
// 关闭文件
CloseFile(TxtFile);
except
on e: Exception do
Application.HandleException(nil);
end; // try/except
if FileExists( FileName ) then //测试文件是否存在，满足你的 算法3
ShowMessage('已成功导入!');
//打开刚才保存的文件
WinExec(PAnsiChar('notepad.exe ' + FileName), SW_SHOWNORMAL);
end;

动态的话，更简单了：
FileName := '\\192.168.2.13\ZPLX\ZMZ.txt';

这句改为：
FileName := '\\192.168.2.13\ZPLX\' + edit1.text + '.txt';

Answer 3

不是什么高手，说下思路。
前提是 192.168.2.13或者开通ftp或者http协议，再或者就是共享D:\ZPLX这个文件夹
手动可以访问后，实现就不是难的了。然后用delphi的相应组件操作（写入、保存、查询等操作），最后就是报警（可能用delphi播放mp3）。
goease答案给的够详细了。

Answer 4

var
i: Integer;
sLst: TStringList;
bSuccess :Boolean;
begin
//---初始化StringList
sLst := TStringList.Create;
//---获取数据
for i := 0 to ComponentCount - 1 do
begin
if (Components[i].ClassType = TEdit) then
begin
sLst.Add((Components[i] as TEdit).Text);
end;
end;
//---保存数据
sLst.SaveToFile('\\192.168.2.13\ZPLX\ZMZ.txt');
//---检查是否成功
bSuccess := FileExists('\\192.168.2.13\ZPLX\ZMZ.txt');
//---释放StringList
if Assigned(sLst) then
sLst.Free;
end;