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:

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)