如何在 Delphi 中自动化 perl 脚本？

Question

目前，我正在使用 delphi 应用程序。我需要从 delphi 应用程序运行 perl 脚本。更清楚地说，我们在 unix 窗口中手动执行 perl 脚本。现在我需要从应用程序自动执行该 perl 脚本。

我尝试使用 ShellExecute：

ShellExecute(Handle, 'open', PChar('C:\loaderperl.bat'), nil, nil, SW_SHOW);

窗口闪烁一秒钟然后关闭。不知道脚本有没有执行。

您好，感谢您的所有回答，对于我迟到的回复感到抱歉。我仍然在与这种自动化作斗争。现在我将过程解释清楚，目前我打开putty窗口，连接到远程机器并执行perl脚本。 perl 脚本依次调用存储过程并更新表。现在我想通过单击按钮自动执行上述过程。所以当我点击一个按钮时，它应该调用一个连接到远程机器的函数，然后执行 perl 脚本。我对你清楚吗？？？请帮助解决这个问题。我在delphi中需要这段代码

Answer 1

（根据下面的 cmets 进行编辑。）

有几个步骤：首先，实际运行脚本；其次，检查它是否成功运行（它是否成功地启动了一个新进程以及该进程是否成功。）

第 1 部分，运行脚本：

要从您的 Delphi 应用程序运行脚本，使用 ShellExecuteEx 和“open”动词应该可以工作（下面的标志中有更多详细信息。）如果脚本与您的 Perl 可执行文件相关联，您可以执行脚本本身，或者运行将脚本作为命令行参数的 Perl exe。

This article 看起来是使用此 API 及其更简单的表亲 ShellExecute 的良好起点。

ShellExecute[Ex] 函数通常希望您的应用程序在之后运行消息循环。您的应用程序不太可能不是，只要在用户单击按钮启动此应用程序后，您的应用程序就会处于空闲状态，但如果由于某种原因它不会，您应该传递 SEE_MASK_NOASYNC 标志。 MSDN 有很多信息。

第 2 部分，检查它是否成功执行并成功完成任务：

要查看脚本是否执行，您应该获取已启动进程的进程句柄，如果有新进程，请检查其中的退出代码。如果任务失败，您应该修改脚本以返回非零代码。 （我对 Perl 不熟悉，所以我无法具体告诉您如何操作，但通常它是“main”函数或其他 first/startup 函数的返回值。）您可以通过以下方式执行此操作：

• 将SEE_MASK_NOCLOSEPROCESS 标志传递给ShellExecuteEx。如果它成功启动了一个进程（如果没有，请检查GetLastError 找出原因。）如果这就是你需要知道的全部（如果它开始了，不管它是否有效）然后你就完成了。
• 可选：使用WaitForSingleObject(YourParamStruct.hProcess, INFINITE) 等待进程结束（当然，如果你有一个有效的 hProcess）
• 致电GetExitCodeProcess 查找退出代码。 （检查它是否返回STILL_ACTIVE，如果它仍在运行，请等待并重试。）通常，它应该以0 退出以表示成功。您应该修改您的脚本，以便如果出现问题，它会返回非零值。您可以根据需要使代码变得简单或复杂——例如，针对任何错误返回1，或者根据错误类型制作多个代码。 （避免使用259，因为这是STILL_ACTIVE 的值 - 这样做可能会导致您的 Delphi 代码进入无限循环，这取决于它的编码方式，认为它仍在等待获取退出代码，因为 Perl 脚本仍在运行时不是。）

然后，您的 Delphi 应用程序可以检查此代码以查看 Perl 脚本是否有效，并在失败时执行某些操作 - 记录消息、告诉用户等。

另一件事 - 你说你只是想知道脚本是否执行，上面应该提供。鉴于它是一个 Perl 脚本并在命令行上运行，您可能想要做的另一件事是获取它的输出，如果您不返回错误代码，则扫描错误，或者记录或显示用户。您可以通过CreateProcess 和capturing the output 运行它来做到这一点。不过，从你所说的来看，这可能对你所追求的有点过分了！

Answer 2

使用 shellexecute 使用相关参数（perl 解释器 + 脚本位置 + 名称）启动 rsh 或任何你的 unix 窗口？

Answer 3

如果您想ShellExecute() 一个批处理文件，您需要执行cmd.exe 并将脚本作为参数传递，如下所示：

ShellExecute(Handle, 'open', 'cmd.exe', '/C C:\loaderperl.bat', nil, SW_SHOW);

您可以使用输出重定向来捕获文件中的脚本输出。如果您想查看脚本是否成功执行，您可以（出于测试目的）在其末尾添加pause。

Answer 4

您需要调用外部程序（perl 解释器在本地机器上执行，像这样的 ssh 或 smth 在远程机器上执行）。这是调用外部程序并等待它结束的过程（如果您不需要等到它结束，请删除 WaitForSingleObject 或按照其他人的建议调用 ShellExecute）。

更新：要查看脚本输出，请尝试使用来自this article的解决方案

function ExecAndWait(const FileName, Params: ShortString; const WinState: Word): boolean; export; 
var 
  StartInfo: TStartupInfo; 
  ProcInfo: TProcessInformation; 
  CmdLine: ShortString; 
begin 
  { Put the name of file between quotes, due to spaces in names of files in system Win9x } 
  CmdLine := '"' + Filename + '" ' + Params; 
  FillChar(StartInfo, SizeOf(StartInfo), #0); 
  with StartInfo do 
  begin 
    cb := SizeOf(SUInfo); 
    dwFlags := STARTF_USESHOWWINDOW; 
    wShowWindow := WinState; 
  end; 
  Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false, 
                          CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, 
                          PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo);
  { Wait the finish of program } 
  if Result then 
  begin 
    WaitForSingleObject(ProcInfo.hProcess, INFINITE); 
    { Free the Handles } 
    CloseHandle(ProcInfo.hProcess); 
    CloseHandle(ProcInfo.hThread); 
  end; 
end;