0

我使用 TProcess 从 Lazarus/FPC 应用程序运行“curl”，例如：

proc := TProcess.Create(nil);
proc.Executable:= 'E:\sendfileemail\curl.exe';
proc.CurrentDirectory:= 'E:\sendfileemail';
proc.Parameters.Add('--upload-file d:\29\ZP_1_2019.eml --url smtps://smtp.yandex.ru:465 --ssl-reqd --mail-from xxxx@yandex.ru --mail-rcpt yyyy@yandex.ru --user zzzz@yandex.ru:password --insecure');
proc.Options := proc.Options + [poWaitOnExit, poUsePipes, poStderrToOutPut];
proc.Execute;
AStringList := TStringList.Create;
AStringList.LoadFromStream(proc.Output);
AStringList.SaveToFile('output.txt');
AStringList.Free;
proc.Free;

它总是失败：

curl: option --upload-file d:\29\ZP_1_2019.eml: is unknown  
curl: try 'curl --help' or 'curl --manual' for more information

或者首先是 curl 的参数。
用 'proc.Parameters.Add' 分别添加每个参数并不重要。

同时 

E:\sendfileemail\curl.exe --upload-file d:\29\ZP_1_2019.eml --url smtps://smtp.yandex.ru:465 --ssl-reqd --mail-from xxxx@yandex.ru --mail-rcpt yyyy@yandex.ru --user zzzz@yandex.ru:password --insecure

按预期从命令行手动执行。

ShellExecute也可以工作。

通过 TProcess 运行“curl”有什么问题？

4

1 回答 1

1

您将整个命令行放在一个参数中。把它们分开。使用多个 parameters.add() 语句

proc.Parameters.Add('--upload-file');
proc.Parameters.Add('d:\29\ZP_1_2019.eml');

ETC

此外，这是短输出的“简单”解决方案。如果你有很长的输出，它会挂起。最好看一下准备好的 RunCommand() 包装器。

于 2019-10-25T12:04:39.443 回答