0
  • Q1：为什么在下载过程中无法关闭模态表单
  • Q2：为什么下载完成后进度条没有100%丰富（是重绘的一种方式？）
  • Q3：为什么如果我在下载过程中停止并重新启动与 Web 服务器的连接，传输会在没有任何错误提示的情况下停止，并且永远不会继续？我该怎么做才能获取并捕获错误并返回初始状态（下载并在位置 0 处安装进度条）

备注：IdAntiFreeze 已激活

procedure Tform_update.button_downloadClick(Sender: TObject);
var
  FS: TFileStream;
  url, file_name: String;
begin
  //execute download
  if button_download.Tag = 0 then
    begin
      Fdone:= False;
      Fcancel:= False;

      url:= APP_DOMAIN + '/downloads/Setup.exe';
      file_name:= 'C:\Temp\Setup.exe';

      if FileExists(file_name) then DeleteFile(file_name);

      try
        FS:= TFileStream.Create(file_name, fmCreate);
        Http:= TIdHTTP.Create(nil);

        Http.OnWorkBegin:= HttpWorkBegin;
        Http.OnWork:= HttpWork;

        Http.Get(url, FS);
      finally
        FS.Free;
        Http.Free;
        if Fdone then ModalResult:= mrOk;
      end;
    end
  else
    //cancel download
    begin
      Fcancel:= True;
    end;
end;

procedure Tform_update.HttpWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
var
  ContentLength: Int64;
  Percent: Integer;
begin
  ContentLength:= Http.Response.ContentLength;
  if AWorkCount = ContentLength then Fdone:= True; //

  if (Pos('chunked', LowerCase(Http.Response.TransferEncoding)) = 0) and (ContentLength > 0) then
    begin
      sleep(15);
      Percent := 100 * AWorkCount div ContentLength;
      progress_bar.Position:= Percent;
    end;

  //stop download
  if Fcancel and Http.Connected then
    begin
      Http.IOHandler.InputBuffer.Clear;
      Http.Disconnect;
      Fcancel:= False;

      button_download.Caption:= _('Download and Install');
      button_download.Tag:= 0;
      progress_bar.Position:= 0;
    end;
end;

procedure Tform_update.HttpWorkBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64);
begin
  if AWorkMode <> wmRead then Exit;

  button_download.Tag:= 1;
  button_download.Caption:= _('Cancel');
end;

procedure Tform_update.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Fcancel:= True;
end;
4

3 回答 3

1

另一种方法是使用 TThread 来控制执行。像这样的东西：

  ThreadUpdate = class(TThread)
  protected
    procedure Execute; override;
  public

procedure ThreadUpdate.Execute;
begin
  inherited;
  while (not terminated) do 
  begin
      //YOUR CODE HERE - maybe your button_download Click
      Terminate;
  end;
end;

您也可以尝试让 Windows 为您的应用程序处理消息。

  if (Pos('chunked', LowerCase(Http.Response.TransferEncoding)) = 0) and (ContentLength > 0) then
  begin
    sleep(15);
    Percent := 100 * AWorkCount div ContentLength;
    progress_bar.Position:= Percent;
    **Application.ProcessMessages;**
  end;
于 2015-07-16T14:05:52.180 回答
1

Q1。印地堵住了。所有 Antifreeze 都会定期调用 Windows 消息处理。它不会阻止 Indy 的阻塞特性，因此除非您明确有办法处理错误，否则它不会按照您的意愿行事。您需要在不同的线程中进行下载并使用您的表单来监控该线程的状态，而不是尝试依赖防冻剂。不要将任何 UI 操作放在该线程中，将它们留在主线程中，因此不要尝试从线程内更新进度条。例如，将同步变量设置为进度百分比，并从主线程中的计时器读取。请记住，UI 组件不是线程安全的，因此只能从单个线程更新。

Q2。我也看到了。与印地无关。我认为当您将状态栏设置为 100% 时，组件不会立即响应，而是尝试平稳移动到该点（但没有时间）。不过，这只是一个猜测。我不知道。或者它可能是我猜想防冻剂处理消息的频率（在这种情况下它与 Indy 有关）。

Q3。真的和Q1一样，解决方法一样。放入一个单独的线程并从主线程监视该线程的状态。

将 Indy 操作移动到单独的线程后，您就不需要 Antifreeze。

于 2015-07-16T15:03:00.007 回答
0

关于 Q1 和 Q2，线程肯定更好。如果您决定继续使用 Indy Antifreeze，则应确保将 OnlyWhenIdle 标志设置为 False，以便它可以在工作完成时处理消息。

于 2015-07-16T17:22:13.133 回答