Einzelnen Beitrag anzeigen

Benutzerbild von gsh
gsh

Registriert seit: 24. Okt 2004
1.542 Beiträge
 
Delphi XE Architect
 
#7

Re: idHttp Komponente ignoriert mein ContentRange

  Alt 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
  Mit Zitat antworten Zitat