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

TFileStream добавление файла в конец   Найти похожие ветки 

← →
HSD   (2004-08-20 12:00) [0]

Не получается копировать
Файл1(50Kb) в конец Файла2(10Kb)
после кода файл будет не 60,а 50 Kb!
TRY
FileName:="test3.sat";
Stream := TFileStream.Create(FileName, fmOpenRead or fmShareExclusive  );
FileName:="test.sat";
Stream2 := TFileStream.Create(FileName, fmCreate or fmShareDenyWrite);

Stream2.Seek(0,soFromEnd);// в конец но не работает
Stream2.CopyFrom(Stream,Stream.Size);
EXCEPT
END;
Stream.Free;
Stream2.Free;
end;

---

← →
Sandman25 ©   (2004-08-20 12:03) [1]

Stream2 := TFileStream.Create(FileName, fmCreate or fmShareDenyWrite);

Файл создается заново

---

← →
Семен Сорокин ©   (2004-08-20 12:03) [2]

Stream.Position := 0; ?

---

← →
афвуд   (2004-08-20 12:47) [3]

Может быть всё-таки:

Stream2 := TFileStream.Create(FileName, fmOpenWrite or fmShareDenyWrite);  

?

---

← →
HSD   (2004-08-20 13:28) [4]

>me, fmOpenWrite or
да наверное тут ошибка(у меня)

---

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

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



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