Registriert seit: 24. Okt 2004
1.542 Beiträge
Delphi XE Architect
|
Re: idHttp Komponente ignoriert mein ContentRange
18. Mär 2007, 18:44
ja des hab ich ja sonst könnte er ja gar nichts machen aber er lädt einfach immer die komplette datei
k hier ist der ganze code was aber wahrscheinlich nicht sehr viel bringt
Delphi-Quellcode:
BytePosition := 0;
FileStream := TFileStream.Create(ExtractFilePath(ParamStr(0))+cTempUpdateDir+DownloadFileList[I].ListItem.Caption, fmCreate or fmShareExclusive);
try
repeat
IdHTTP.Request.ContentRangeStart := BytePosition;
if (DownloadFileList[I].ByteSize-BytePosition) > cFileSplitSize then
begin
IdHTTP.Request.ContentRangeEnd := BytePosition+cFileSplitSize-1;
end
else IdHTTP.Request.ContentRangeEnd := DownloadFileList[I].ByteSize;
IdHTTP.Get(cServerAdresse+DownloadFileList[I].ListItem.Caption, FileStream);
BytePosition := BytePosition+cFileSplitSize;
Application.ProcessMessages;
until (BytePosition >= DownloadFileList[I].ByteSize);
finally
FreeAndNil(FileStream);
end;
Alex "Sage nicht alles, was du weißt, aber wisse alles, was du sagst!" Matthias Claudius
"Wer sich über Kritik ärgert, gibt zu, daß er sie verdient hat." Tacitus
|