Как сохранить IStream в файл?

← →
Igit © (2003-11-27 10:17) [0]

subj

← →
крот (2003-11-27 11:03) [1]

Скопировать в буффер содержимое IStream с помощью IStream.Read,
а буффер - в нужный файл, можно с помошью TFileStream, можно на API (CreateFile, WriteFile)

← →
Igit © (2003-11-30 07:21) [2]

А как такое здедать (не разу не работал со Stream"ами)?

← →
крот (2003-11-30 12:29) [3]

> А как такое здедать (не разу не работал со Stream"ами)?

Не понятно с каким именно Stream затруднение: интерфейс IStream,
или класс Delphi TStream

← →
Бином Ньютоныч (2003-11-30 14:37) [4]

function SaveIStreamToFile(const StmSrc: IStream; const FileName: string): boolean;
var
StmTgt: IStream;
sz, szRead, szWrite: int64;
begin
StmSrc.Seek(0, soFromEnd, sz);
StmSrc.Seek(0, soFromBeginning, int64(nil^));
StmTgt:=TStreamAdapter.Create(TFileStream.Create(FileName, fmCreate), soOwned);
StmSrc.CopyTo(StmTgt, sz, szRead, szWrite);
Result:=(sz = szRead) and (sz = szWrite);
end;

Спасибо.

2 крот
У меня непонятки вроде вообще... не очень представляю, чтож из себя представляет класс TStream

Как сохранить IStream в файл? Найти похожие ветки