delphi - 如何从delphi应用程序在远程计算机中运行perl脚本？

Question

嗨，我正在开发一个 Delphi 应用程序。我需要从本地计算机执行 delphi 应用程序中远程计算机中的 perl 脚本。我需要自动执行此过程，无需手动拦截。现在我将清楚地解释该过程，目前要运行perl脚本，我只需打开putty窗口，连接到远程计算机并执行perl脚本。 Perl 脚本依次调用存储过程并更新表。

现在我想通过单击按钮自动执行上述过程。因此，当我单击按钮时，它应该调用一个连接到远程计算机的函数，然后执行 perl 脚本。我说清楚了吗？？？请帮忙解决这个问题。我需要尽快在 delphi 中使用此代码。

Answer 1

本着将您已经手动完成的工作自动化的精神，您可以使用 Plink Putty 附带的实用程序。它接受各种命令行选项，包括用户名、主机、密码和要运行的命令。您也可以在保存的 Putty session 中指定大多数选项。请参阅the Putty documentation了解更多。您可以使用CreateProcess从您的程序运行命令。

var
  cmd: string;
begin
  cmd := 'plink -batch -ssh -pw secret user@host /home/user/command.pl';
  UniqueString(cmd);
  CreateProcess(nil, PChar(cmd), ...);

如果您需要运行的命令有参数，您可能需要引用整个命令。如果要运行多个命令，则应将它们放入一个文件中，然后使用 Plink 的 -m 选项。