Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.042 c
