Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Problem mit IdHttp (ContentRangStart)

  Alt 5. Aug 2005, 07:17
liegt es vielleicht einfach daran das du die position des Memorystreams falsch setzt? ist nur eine vermutung da dieser teil des quelltextes fehlt (desweiteren benutze bitte die "Delphi-Code"-Tags für den Quelltext)

Ich hab mal nen Testprojekt gemacht und es gab keine Probleme
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var LLength: Integer;
    LPos: Integer;
    LDestStream: TMemoryStream;
begin
  IdHTTP1.Head('http://www.esfeb-it.de/');
  LLength := IdHttp1.Response.ContentLength;

  LDestStream := TMemoryStream.Create;
  LPos := 0;
  while (LPos < LLength) do
  begin
    IdHTTP1.Request.ContentRangeStart := LPos;
    IDHTTP1.Request.ContentRangeEnd := Min(LPos + 9, LLength);
    IdHTTP1.Get('http://www.esfeb-it.de/', LDestStream);
    inc(LPos, 10);
  end;
  LDestStream.SaveToFile('e:\test.htm');
  LDestStream.Free;
end;
Die Datei wurde komplett unter "e:\test.htm" gespeichert (und natürlich auch in mehreren Schritten abgerufen)
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat