Delphi 5 WriteLn到控制台和文本文件

Question

我制作了一个控制台应用程序（A），它每天独立运行以下载文件，并使用WriteLn('text')在控制台中显示进度。 然后，我有另一个GUI应用程序（B），它在表中显示该数据，但也可以使用ShellExecute调用第一个程序（A）。

我需要（A）将日志写入文本文件并显示它的进度，所以我有两个问题：

• 除了使用AssignFile（F，log.txt）之外，是否有更快/更繁琐的输出到文本文件和控制台的方式，然后使用以下命令查找/替换每个WriteLn：

  WriteLn（'我的输出文本'）; WriteLn（F，'我的输出文本'）;

• 我的GUI应用程序（B）是否有办法从文本文件中实时显示（A）的输出，或者至少知道何时（A）完成。目前我显示一条消息“请等待外部导入完成并按OK”，然后刷新表格。

由于

Answer 1

您应该能够将输出从A重定向到B，然后将其显示在B中并将其记录在B中。自从我使用Delphi以来已经很长时间了但是如果B是.net应用程序，那么有一篇很好的文章在这里：how to redirect standard output