添加了 {APPTYPE CONSOLE} 指令，现在我的应用程序运行速度非常慢。 移动鼠标使其运行速度更快

Question

我正在尝试扩展第 3 方应用程序，以便除了使用 Windows 窗体 GUI（需要混合模式）之外，还可以通过命令行调用它。 这是一个相当简单的程序，基本上加载一个文件，然后单击一个按钮，它开始发送 UDP 网络数据包。

我需要从另一个应用程序调用该应用程序，并希望传递一个参数，并且需要能够将 ExitCode 返回到调用应用程序。 根据我的阅读，为了做到这一点，您需要添加编译器指令 {APPTYPE CONSOLE}。

我这样做了，我的应用程序按照我想要的方式工作，除了发送网络数据包的速度减慢了。 我发现每当我在表单上移动鼠标时都会出现这种情况。 表明网络传输速率显着提高。 我怀疑存在某种类型的 Windows 消息队列问题，并且移动鼠标会导致中断，进而导致消息队列被处理？

我已经用 google 搜索并尝试在计时器中使用1ms 间隔，这根本没有帮助。 我在这个 其他应用程序的用户手册中发现，它说 Indy 10 支持APPTYPE CONSOLE 和 GUI 类型。 坦率地说，这让我感到困惑，因为我认为所有网络库都可以在两种模式下工作......但就像我说的，我不熟悉 Delphi。

我确信问题仅限于我的应用程序中的一行，即是否包含 {APPTYPE CONSOLE}。

有人有任何想法吗？

版本信息：
Delphi 7 个人版（内部版本 4.453）
印地9.0.4

Answer 1

如果您将 {APPTYPE CONSOLE} 添加到您的应用程序，即使您希望混合模式执行，那么即使应用程序处于 GUI 模式，您也必须使用控制台。 你当然可以关闭控制台，但这会导致一些闪烁，对我来说有点黑客行为。

您应该能够在没有控制台程序的情况下做您想做的事情。 一个小测试程序证明退出代码可以从 GUI 程序中读取：

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ExitCode := 42;
  Timer1.Interval := 1000;
  Timer1.Enabled := TRUE;
end;

如果使用以下 cmd 文件执行：

@echo off
start /WAIT project1.exe
echo %ERRORLEVEL%

程序显示其主窗体 1 秒，关闭，脚本将 42 打印到控制台窗口。

现在捕获输出 - 如果允许使用临时文件，从 GUI 程序执行此操作实际上比从控制台程序执行此操作更容易。 无论如何，您都需要使用命令行参数来启动程序，那么为什么不给它一个临时文件的名称，等待应用程序完成，读入该文件并随后将其删除呢？

Answer 2

如果您希望应用程序返回“错误”代码，则无需将其设为控制台应用程序。 你只需要设置ExitCode，例如

ExitCode := 10;

在批处理文件中

@Echo off
project1
echo %errorlevel%

就会显示应用程序，然后显示10时。

注意：还可以使用 AllocConsole 从 Windows API 动态创建控制台窗口，或使用 AttachConsole 进行附加。

我为此创建了一个对象包装器，但不再有可用的代码。 从记忆中它不支持重定向（因为我不需要它）。

Answer 3

如果我理解正确，那么您希望您的应用程序有两种模式：

1. 如果没有传递参数，则在 GUI 模式下运行
2. 在非 GUI 模式下运行 否则

最简单的是如果您可以集中逻辑，以便可以从一种方法调用它（在我的示例中为 CoreLogic）。

下面的应用程序应该可以正常工作。

两个技巧：

1. Application.ShowMainForm := False; 根本不会使 MainForm 显示。
2. ExitCode := 327; 将设置您的返回代码（例如 mghie 和 Gerry 已经提到过）。

一些注意事项：

• 由于 CoreLogic 不处理任何 Windows 消息，因此应用程序中依赖于正在处理的 Windows 消息的任何内容都将停止。
• 如果您需要 Windows 消息处理，那么只需 CoreLogic 中的所有 Application.ProcessMessages()
• 如果您需要表单可见，那么您可以更改 MainForm 中的逻辑来测试命令行参数，并且当工作完成后退出（通过调用Application.Terminate()）。 放置该逻辑的最佳位置是 MainForm.OnShow 事件的事件方法。

希望这可以帮助 ：-）

program VCLAppThatDoesNotShowMainForm;

uses
  Forms,
  MainFormUnit in 'MainFormUnit.pas' {MainForm},
  Windows;

{$R *.res}

procedure CoreLogic;
begin
  Sleep(1000);
  ExitCode := 327;
end;

procedure TestParams;
begin
  if ParamCount > 0 then
  begin
    MessageBox(0, CmdLine, PChar(Application.Title), MB_ICONINFORMATION or MB_OK);
    CoreLogic();
    Application.ShowMainForm := False;
  end;
end;

begin
  Application.Initialize();
  Application.MainFormOnTaskbar := True;
  TestParams();
  Application.CreateForm(TMainForm, MainForm);
  Application.Run();
end.

Answer 4

1 毫秒的计时器大约每 40 毫秒触发一次（由于 Windows 限制），所以它没有帮助。 我已经看到了像你描述的混合控制台和 GUI 应用程序的效果，另一个是它们没有正确最小化。

您可以使用 CreateConsole API 调用（不确定名称是否正确）在程序启动后创建一个控制台，而不是在项目中启用控制台。 我在我执行此操作的一个（！）程序中没有看到任何不利影响。

但这仅当您想写入控制台时才需要。 如果您只想处理命令行参数并返回退出代码，则不需要控制台。 只需评估 ParamCount/ParamStr 函数的参数并设置 ExitCode 作为返回值即可。

Answer 5

如果您的控制台应用程序中的某些线程调用 Synchronize（我猜 Indy 的东西实际上就是这样做的），您必须做一些准备：

将一个方法分配给 WakeMainThread 变量。 该方法必须具有 TNotifyEvent 的签名。

在此方法中调用CheckSynchronize。

有关其他信息，请参阅这两项的 Delphi 帮助。