分类导航

Delphi 发布时间：2022-04-11 发布网站：大佬教程 code.js-code.com

大佬教程收集整理的这篇文章主要介绍了delphi – TIdHTTPServer是否兼容Microsoft BITS，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

我们正在尝试使用TIdhttpServer组件为我们的软件编写更新服务器.目前,我们正在提供一个列出可用更新及其文件版本等的 XML文件.当客户端程序找到更新版本时,应使用BITS开始下载.

现在这是我们遇到的问题,我们的程序正在请求XML文件,并且看到有可用的更新.然后它创建一个BITS作业下载它,然而BITS保持报告下载失败.我们可以使用相同的URL和IE / Firefox / Chrome下载文件.

所以我的问题：

TIdhttpServer是否兼容BITS？

我问这个是因为我已经发现有这些下载要求的位工作.
HTTP Requirements for BITS Downloads

解决方法

刚刚发现一个错误,在使用范围请求时,阻止传输2.1GB以上的文件.

这里是

IdhttpHeaderInfo.pas aprox行770

procedure TIdEntityRange.SetText(const AValue: String);
var
  LValue,S: String;
begin
  LValue := Trim(Avalue);
  if LValue <> '' then
  begin
    S := Fetch(LValue,'-'); {do not localizE}
    if S <> '' then begin
      FStartPos := StrToIntDef(S,-1);
      FEndPos := StrToIntDef(Fetch(Lvalue),-1);
      FSuffixLength := -1;
    end else begin
      FStartPos := -1;
      FEndPos := -1;
      FSuffixLength := StrToIntDef(Fetch(Lvalue),-1);
    end;
  end else begin
    FStartPos := -1;
    FEndPos := -1;
    FSuffixLength := -1;
  end;
end;

这应该是

procedure TIdEntityRange.SetText(const AValue: String);
var
  LValue,'-'); {do not localizE}
    if S <> '' then begin
      FStartPos := StrToInt64Def(S,-1);
      FEndPos := StrToInt64Def(Fetch(Lvalue),-1);
      FSuffixLength := -1;
    end else begin
      FStartPos := -1;
      FEndPos := -1;
      FSuffixLength := StrToInt64Def(Fetch(Lvalue),-1);
    end;
  end else begin
    FStartPos := -1;
    FEndPos := -1;
    FSuffixLength := -1;
  end;
end;

一个Remy修复