VCL 形成写入 stdout 的应用程序

发布于 2024-08-06 02:05:21 字数 306 浏览 3 评论 0原文

我的公司有一个带有文档对象模型的大型 Windows 应用程序：打开应用程序、打开文件、进行一些更改、保存、关闭。我试图从顶部切掉 GUI 并创建一个控制台应用程序，它接受一些参数、打开文件、执行一些有用的操作、保存、关闭文件并终止。由于存在大量遗留代码，我被迫使用 VCL 表单应用程序并从命令行（或批处理脚本）启动它。我确实需要能够打印到标准输出，以便我可以写出状态消息，响应“--version”和“-？”等选项。我花了整个上午的时间在谷歌上搜索这个主题，但没有找到任何有用的东西。

该应用程序是使用 VCL 在 CodeGear C++ Builder 2007 中编写的。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

怪我闹别瞎闹 2024-08-13 02:05:21

如果您只想显示控制台窗口，您可以调用 AllocConsole 和 FreeConsole 然后您可以像通常使用控制台应用程序一样调用 WriteLn('xxx') 。但是，如果您从命令行运行此应用程序，它仍然会创建一个新控制台，并且标准输出将转到新控制台而不是调用控制台。

AllocConsole 和 FreeConsole 的原型是在 Windows 单元中。

回复收藏 0 原文

上课铃就是安魂曲 2024-08-13 02:05:21

您可以在 GUI 程序中写入 STDOUT，因为没有控制台，所以通常不会有任何输出，除非它是从实际控制台启动的。或者，查看 GetStdHandle() 和 WriteConsole() 函数Win32 API。如果 GetStdHandle() 返回有效的句柄，然后你就可以写入它。如果您的 GUI 应用程序是由另一个想要出于自身目的拦截您的 STDOUT 输出的应用程序启动的，那么这尤其有用。

回复收藏 0 原文

习惯成性 2024-08-13 02:05:21

在项目文件中使用 {$APPTYPE CONSOLE}。这将分配一个控制台（即使您的应用程序仍然基于表单）。

或者，您可以根据项目 (.DPR) 文件中的命令行参数进行分支（Delphi 代码如下 - 由您决定转换为 C++ Builder 等效项）。您仍然需要 APPTYPE 定义，或者需要使用 Win32 API 控制台函数来创建自己的控制台（请参阅 MSDN 控制台功能了解更多信息）：

begin
  if ParamCount() > 0 then
    DoWhateverTheConsoleAppWouldDoHere()
  else
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
end;

Use {$APPTYPE CONSOLE} in your project file. This will allocate a console (even though your app is still based on forms).

Alternatively, you can do branching based on command-line parameters in the project (.DPR) file (Delphi code follows - up to you to convert to C++ Builder equivalent). You'll still need the APPTYPE definition, or you'll need to use Win32 API console functions to create your own console (see MSDN Console Functions for more info):

begin
  if ParamCount() > 0 then
    DoWhateverTheConsoleAppWouldDoHere()
  else
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
end;

回复收藏 0 原文

~没有更多了~