Скачать: CL | DM;

Как сохранить 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;

---

← →
igit ©   (2003-11-30 17:11) [5]

Спасибо.

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c