恢复HTTP邮政与印

Question

我想继续使用印（HTTP邮政）上传/上传，代码如下所示（使用德尔福2010年，印10.4736）：

IdHttp.Head('http://localhost/_tests/resume/large-file.bin'); 
ByteRange   := IdHttp.Response.ContentLength + 1; 

// Attach the file to post/upload 
Stream    := TIdMultipartFormDataStream.Create; 
with Stream.AddFile('upload_file', 'D:\large-file.bin', 'application/octet-stream') do 
begin 
     HeaderCharset := 'utf-8'; 
     HeaderEncoding := '8'; 
end; // with 

with IdHTTP do 
begin 
     IOHandler.LargeStream   := True; 

     with Request do 
     begin 
      ContentRangeStart   := ByteRange; 
      ContentRangeEnd   := (Stream.Size - ByteRange); 
      ContentLength    := ContentRangeEnd; 
      ContentRangeInstanceLength := ContentLength; 
     end; // with 

     Post('http://localhost/_tests/resume/t1.php', Stream); 
end; // with 

但上传简历没有“T工作:(

我看着Indy的代码，似乎这个功能IdIOHandler.pas

TIdIOHandler.Write（）

总是处理完整的流/文件（因为参数ASize：TIdStreamSize似乎总是0，根据代码意味着发送完整的文件/流）。

这可以防止indy恢复上传。

我的问题是：是否可以避免发送完整的文件？

设置内容范围没有改变任何东西。我还调整了Indy的代码（修改后的3线），使印服从的含量范围/流的位置，但它是越野车和印地最后总是挂在IdStackWindows.pas因为无限超时这里：

TIdSocketListWindows.FDSelect（）

Answer 1

正如我告诉你your earlier question，你必须张贴TStream包含其余文件数据上传。不要使用TIdMultipartFormDataStream.AddFile()，因为它会发送整个文件。改为使用TStream重载版本TIdMultipartFormDataStream.AddFormField()。

而TIdHTTP并不旨在尊重ContentRange...属性。大多数Request属性仅仅设置相应的HTTP标头，它们不影响数据。这就是为什么你的编辑打破了它。

试试这个：

IdHttp.Head('http://localhost/_tests/resume/large-file.bin'); 
FileSize := IdHttp.Response.ContentLength; 

FileStrm := TFileStream.Create('D:\large-file.bin', fmOpenRead or fmShareDenyWrite); 
try 
    if FileSize < FileStrm.Size then 
    begin 
    FileStrm.Position := FileSize; 

    Stream := TIdMultipartFormDataStream.Create; 
    try 
     with Stream.AddFormField('upload_file', 'application/octet-stream', '', FileStrm, 'large-file.bin') do 
     begin 
     HeaderCharset  := 'utf-8'; 
     HeaderEncoding := '8'; 
     end; 

     with IdHTTP do 
     begin 
     with Request do 
     begin 
      ContentRangeStart := FileSize + 1; 
      ContentRangeEnd := FileStrm.Size; 
     end; 

     Post('http://localhost/_tests/resume/t1.php', Stream); 
     end; 
    finally 
     Stream.Free; 
    end; 
    end; 
finally 
    FileStrm.Free; 
end; 

随着中说，这是一个重大的错误使用HTTP和multipart/form-data的。对于初学者，ContentRange值是错误的地方。整体而言，您将它们应用于整个Request，这是错误的。他们需要在FormField上应用，但TIdMultipartFormDataStream目前不支持该功能。其次，multipart/form-data的设计并非像这样使用。从头开始上传文件是好的，但不能恢复上传的文件。你真的应该停止使用TIdMultipartFormDataStream而直接传递文件数据TIdHTTP.Post()像我suggested earlier，如：

FileStrm := TFileStream.Create('D:\large-file.bin', fmOpenRead or fmShareDenyWrite); 
try 
    IdHTTP.Post('http://localhost/_tests/upload.php?name=large-file.bin', FileStrm); 
finally 
    FileStrm.Free; 
end; 

。

IdHTTP.Head('http://localhost/_tests/files/large-file.bin'); 
FileSize := IdHTTP.Response.ContentLength; 

FileStrm := TFileStream.Create('D:\large-file.bin', fmOpenRead or fmShareDenyWrite); 
try 
    if FileSize < FileStrm.Size then 
    begin 
    FileStrm.Position := FileSize; 
    IdHTTP.Post('http://localhost/_tests/resume.php?name=large-file.bin', FileStrm); 
    end; 
finally 
    FileStrm.Free; 
end; 

我已经explained earlier如何访问PHP原始POST数据。