Delphi 5 WriteLn to Console AND Text File



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

我需要 (A) 将日志写入文本文件并显示其进度,所以我有两个问题:

    除了
  • 使用 AssignFile(F,log.txt) 然后查找/替换每个 WriteLn 之外,是否有一种更快/更不乏味的方法来输出到文本文件和控制台:

    WriteLn('我的输出文本');WriteLn(F,'my output text');

  • 我的 GUI 应用程序 (B) 有没有办法实时显示文本文件中 (A) 的输出,或者至少知道 (A) 何时完成。目前,我显示一条消息"请等待外部导入完成并按确定",之后它会刷新表格。

谢谢

您应该能够将输出从 A 重定向到 B,然后将其显示在 B 中并将其记录在 B 中。自从我使用 Delphi 以来已经有很长时间了,但如果 B 是一个 .net 应用程序,这里有一篇不错的文章:如何重定向标准输出

最新更新