具有简历支持的 Indy Http Server答案

【问题标题】：Indy Http Server with resume support具有简历支持的 Indy Http Server
【发布时间】：2014-02-25 00:01:20
【问题描述】：

我已经编写了一个 indy http 服务器，我想提供带有恢复支持的文件下载。当我使用 IDM 下载文件时，下载是单线程的：

请注意，恢复能力是是，但是当我暂停并恢复下载时，它会从头开始。

我的 Indy Http 服务器如下：

void __fastcall TfrmMain::httpServerCommandGet(TIdContext *AContext,
    TIdHTTPRequestInfo *ARequestInfo, TIdHTTPResponseInfo *AResponseInfo)
{
    Beep(1000, 100);
    string fileName = ExtractFileDir(Application->ExeName) + ARequestInfo->Document;
    fileName = fileName.replace("/", "\\");

    TFileStream *stream = new TFileStream(fileName, fmOpenRead | fmShareDenyNone);

    int start = 0, end = 0;
    string range = ARequestInfo->Range;
    if(!range.empty())
    {
        int dash_pos = range.find("-");
        start = range.substr(0, dash_pos).intValue();
        end = range.substr(dash_pos + 1).intValue();
        if(end == 0) // Endless Range: start-
            end = stream->Size;
    }
    else
    {
        start = 0;
        end = stream->Size;
    }
    OutputDebugStringW(string("ctx=[] start=[] end=[]") <<
        IntToHex((int)AContext, 8) << start << end);

    stream->Seek((__int64)start, soBeginning);
    AResponseInfo->ContentStream = stream;
    AResponseInfo->FreeContentStream = true;
    AResponseInfo->ContentLength = stream->Size;
    if(!range.empty())
    {
        AResponseInfo->ContentRangeStart = start;
        AResponseInfo->ContentRangeEnd = end;
        AResponseInfo->ResponseNo = 206;
        AResponseInfo->ContentRangeInstanceLength = end + 1;
        AResponseInfo->ContentLength = end - start + 1;
        AResponseInfo->AcceptRanges = "bytes";
    }
    AResponseInfo->WriteHeader();
    AResponseInfo->WriteContent();
}

任何帮助将不胜感激。

【问题讨论】：

标签： delphi tcp c++builder indy httpserver

【解决方案1】：

IdCustomHTTPServer 单元有一个 TIdHTTPRangeStream 辅助类用于此目的。

如果客户端请求远程下载，请创建TIdHTTPRangeStream 的实例并将您的预期TStream 和客户端请求的范围传递给它，然后将其分配为要发送的ContentStream。 TIdHTTPRangeStream 还有一个 ResponseCode 属性，您需要将其分配给响应的 ResponseNo 属性。

例如：

void __fastcall TfrmMain::httpServerCommandGet(TIdContext *AContext, TIdHTTPRequestInfo *ARequestInfo, TIdHTTPResponseInfo *AResponseInfo)
{
    // create file stream ...

    // THTTPServer parses the ranges for you
    if (ARequestInfo->Ranges->Count > 0)
    {
        if (ARequestInfo->Ranges->Count > 1)
        {
            AResponseInfo->ResponseNo = 416;
            return;
        }

        TIdEntityRange *range = ARequestInfo->Ranges->Range[0];

        TIdHTTPRangeStream *rstream = new TIdHTTPRangeStream(stream, range->StartPos, range->EndPos, true);

        AResponseInfo->ResponseNo = rstream->ResponseCode;
        AResponseInfo->ContentRangeStart = rstream->RangeStart;
        AResponseInfo->ContentRangeEnd = rstream->RangeEnd;
        AResponseInfo->ContentStream = rstream;
        AResponseInfo->AcceptRanges = "bytes";
    }
    else
    {
        AResponseInfo->ContentStream = stream;
    }

    // no need to seek the target stream manually
    // no need to set the ContentLength manually
    // no need to call WriteHeader() and WriteContent() manually
    //
    // TIdHTTPServer handles all that for you internally!
}

【讨论】：