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
да наверное тут ошибка(у меня)

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