download - 如何从互联网资源读取文本文件？

Question

我想从 Internet 资源中读取包含版本号的文本文件。然后我需要在我的脚本中使用这个版本号。

如何在 InnoSetup 中执行此操作？

Answer 1

在 InnoSetup 中，有多种方法可以从 Internet 获取文件。您可以使用外部库，例如 InnoTools Downloader 、编写您自己的库，或使用 Windows COM 对象之一。在下面的示例中，我使用了 WinHttpRequest用于文件接收的COM对象。

当 WinHTTP 函数未引发任何异常时，此脚本中的 DownloadFile 函数返回 True，否则返回 False。然后，对由 AURL 参数指定的 URL 的 HTTP GET 请求的响应内容将传递给声明的 AResponse 参数。当脚本因异常而运行失败时，AResponse参数将包含异常错误消息:

[Code]
function DownloadFile(const AURL: string; var AResponse: string): Boolean;
var
  WinHttpRequest: Variant;
begin
  Result := True;
  try
    WinHttpRequest := CreateOleObject('WinHttp.WinHttpRequest.5.1');
    WinHttpRequest.Open('GET', AURL, False);
    WinHttpRequest.Send;
    AResponse := WinHttpRequest.ResponseText;
  except
    Result := False;
    AResponse := GetExceptionMessage;
  end;
end;

procedure InitializeWizard;
var
  S: string;
begin
  if DownloadFile('http://www.example.com/versioninfo.txt', S) then
    MsgBox(S, mbInformation, MB_OK)
  else
    MsgBox(S, mbError, MB_OK)
end;