VPF::Проблемы с потоками - Форум программистов

AndreyIQ

Дата 2.9.2011, 08:52 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 5.2.2007

Репутация: 1
Всего: 8

Возникла проблема с потоками. Если сохраняю через TFileStream то проблем нет, а если через TMemoryStream, то файл почему-то обрезается.

Код


procedure TFbrmCommandFile.SaveToFile(AFileName: string);
var
  i: integer;
//  FileStream: TFileStream;
  MemoryStream: TMemoryStream;
  Writer: TWriter;
begin
//  FileStream := TFileStream.Create(AFileName, fmCreate);
  MemoryStream:= TMemoryStream.Create;
  Writer:= TWriter.Create(MemoryStream, 4096);
  try
    Writer.WriteListBegin;
    Writer.WriteString((Commands.Text));//Crypt
    for i := 0 to Length(FScripts) - 1 do
      Writer.WriteString((FScripts[i].Text));//Crypt
    Writer.WriteListEnd;
    MemoryStream.Seek(0, soFromBeginning);
    MemoryStream.SaveToFile(AFileName);
    sleepex(1000, TRUE);
  finally
    FreeAndNil(Writer);
//    FreeAndNil(FileStream);
    FreeAndNil(MemoryStream);
  end;
end;

Что я не так делаю

AndreyIQ

Дата 2.9.2011, 09:54 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 5.2.2007

Репутация: 1
Всего: 8

Уже сам разобраля. Вдруг кому понадобится.
Оказалось, что TWriter не пишет на прямую в поток, а сначала сохраняет данные в буфер и только после заполнения буфера записывает его в поток. Для принудительной записи буфера надо вызывать метод FlushBuffer.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »