Inno Setup 脚本中的 HTTP POST 请求

Question

我想通过 POST 将 Inno 安装过程中从用户那里收集的一些信息提交到我们的服务器。

显而易见的解决方案是包含一个 .exe 文件，安装程序会将其提取到临时位置并使用参数启动。但是，我想知道 - 有没有更简单/更好的方法？

Answer 1

基于 jsobo 使用 WinHTTP library 的建议，我用这个非常简单的代码来完成这个技巧。比如说，您想在实际安装开始之前发送序列号进行验证。在代码部分，输入:

procedure CurStepChanged(CurStep: TSetupStep);
var
  WinHttpReq: Variant;
begin
  if CurStep = ssInstall then
  begin
    if AutoCheckRadioButton.Checked = True then
    begin
      WinHttpReq := CreateOleObject('WinHttp.WinHttpRequest.5.1');
      WinHttpReq.Open('POST', '<your_web_server>', false);
      WinHttpReq.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
      WinHttpReq.Send('<your_data>');
      { WinHttpReq.ResponseText will hold the server response }
    end;
  end;
end;

Open 方法将 HTTP 方法、URL 和是否进行异步请求作为参数，似乎我们需要添加 SetRequestHeader 以设置 Content-Type header 到 application/x-www-form-urlencoded。

WinHttpReq.Status 将保存响应代码，因此检查服务器是否成功返回:

if WinHttpReq.Status <> 200 then
begin
  MsgBox('ERROR', mbError, MB_OK);
end
else
begin
  MsgBox('SUCCESS', mbInformation, MB_OK);
end;

https://learn.microsoft.com/en-us/windows/win32/winhttp/winhttprequest列出 WinHttpRequest 对象的所有方法和属性。

此外，为了避免运行时错误(如果主机无法访问，可能会发生)，最好用 try/except 代码包围代码。