TStream.Seek nicht implementiert - Warum?

[Andreas L.]

Hi,
mit folgenden Code versuche ich eine Datei herunterzuladen.

Delphi-Quellcode:

 source := TStream.Create;

 downloader := TIdHTTP.Create;
 downloader.Get(RemoveParams(ADocument), source);

 ForceDirectories(extractfilepath(application.ExeName) + GetDomain(ADocument));
 fs := TFileStream.Create(extractfilepath(application.ExeName) + GetDomain(ADocument) + '\' + GetDocumentFileName(ADocument), fmCreate);
 fs.CopyFrom(source, 0);

 fs.free;
 downloader.Free;
 source.Free;

Beim ausführen wird mir die Exception "TStream.seek nciht implementiert" entgegen geschleudert. Warum?

[SirThornberry]

weil TStream eine abstrakte Basisklasse ist.
Du musst dich für einen konkreten Stream eintscheiden (MemoryStream, FileStream, StringStream etc.)

[mkinzler]

Weil TStream eine (abstrakte) Basisklasse ist. Die Methode wird in abgeleiteten Klassen implementiert.

[Andreas L.]

Wenn ich TStringStream verwende kommt zwar kein Fehler aber es wird weder eine Datei erstellt, noch eine Datei irgendwo gespeichert. Warum? Muss ich evtl. einen anderen StreamTyp nehmen?

[Neutral General]

Benutz lieber einen FileStream oder einen MemoryStream. StringStreams sind für Strings gedacht und nicht für Dateien.

[Christian Seehase]

Moin Andreas,

warum übergibst Du dem Get nicht gleich den FileStream als Ziel?

[Andreas L.]

Zitat von Christian Seehase:

Moin Andreas,

warum übergibst Du dem Get nicht gleich den FileStream als Ziel?

Das habe ich ja probiert. Aber in der Datei steht dann gar nix drin...

[Robert Marquardt]

Poste doch mal die Sourcen mit dem FileStream.

[Andreas L.]

Delphi-Quellcode:

 fs := TFileStream.Create(extractfilepath(application.ExeName) + GetDomain(ADocument) + '\' + GetDocumentFileName(ADocument), fmCreate);
downloader := TIdHTTP.create;
downloader.get(Adocument, fs);
downloader.free;
fs.free;

ADocument wird mir von idHTTPProxyServer übergeben und enthält die angeforderte Adresse (z. B. http://www.delphipraxis.net/bla.php).
GetDomain ist eine von mir gebastelte Funktion die den Domainnamen (z. B. delphipraxis.net) zurückgibt.
GetDocumentFileName ist ebenfalls eine Routine von mir die das angeforderte Dokument zurückgibt. (z. B. bla.php)