TStringList.LoadFromStream - не работает?

[Brainenjii]

Написал простенький оповещатель об ошибках -

aStringList := TStringList.Create;
LogStream.Seek(0, soFromBeginning);
aStringList.LoadFromStream(LogStream);
If Not(DirectoryExists(Utf8Decode('\\srv01\logs\'))) Then
mkdir(Utf8Decode('\\Srv01\logs\'));
aStringList.SaveToFile(Utf8Decode('\\srv01\logs\' +
Login + '.' + FormatDateTime('dd.mm.yy', Now) + '.txt'));
aStringList.Free;
LogStream.Seek(0, soFromEnd);

LogStream - это TFileStream. В файле, на который он создан вся информация есть. На сервере файл лога создаётся, но пустой. С чем это может быть связано?

[Sergei I. Gorelkin]

А если stringlist не грузить из файла, а заполнить какой-нибудь ерундой вручную, он сохраняется?

ps: вообще не понятно, зачем тут применять stringlist, можно тупо скопировать потоки с помощью TStream.CopyFrom...

[Brainenjii]

Мне нужно сохранить содержимое LogStream(TFileStream) в удалённый файл. C TStringList'ом показалось что проще всего

[Padre_Mortius]

а писать данные из TFileStream в файл чем не устраивает?

[Brainenjii]

а как? :-3
P.S. На всякий случай - файл нужно не тот, что задавался в TFileStream.Create('/path/to/file');

[Padre_Mortius]

P.S. На всякий случай - файл нужно не тот, что задавался в TFileStream.Create('/path/to/file');

В таком случае копирование из одного потока в другой тебе поможет. Либо TStream, либо TFileStream.

[Brainenjii]

И всё-равно >_< Файл создаётся, но опять пустой... Что я не так делаю >_<

[скалогрыз]

И всё-равно >_< Файл создаётся, но опять пустой... Что я не так делаю >_<

почему бы не сделать SaveToFile на локальный путь а не сетевой?

смысл: проверить, файл не записывается из-за сети (нет прав на запись), или это глюки в RTL

P.S. http://code.google.com/p/pascalbugreports/ успешно загнулся?

[Brainenjii]

Вот на волне его обсуждения и включил в свой проектик информёр ^_^ Времени его довести до ума с посылкой по почте или выкладкой в БД (кстати, может действительно, забить и выкидывать в общую базу?) особо нет... Файл ведь создаётся! Открыть и сохранить его получается... Но сам он пустой... Надо будет сделать тестовый пример, а это дело переписать в сохранение в блоб ^_^

[AbakAngelSoft]

P.S. http://code.google.com/p/pascalbugreports/ успешно загнулся?

Еще не загнулся, уйду в отпуск вернусь к проекту - очень нужен.
А почему никто больше им не занимаеться? Так кричали что нужен?