VPF::TidMessage и FileStream - Форум программистов

Aig

Дата 30.3.2010, 09:11 (ссылка)

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

Загрузка ...

Новичок

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

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

Есть проблема.
Записываю полученные письма в файл:
(пример)

Код


var
  intI :integer;
  Stream: TFileStream;
begin
  Stream := TFileStream.Create('d:\test2.dat', fmCreate);
  for intI := 1 to FMsgCount do
  begin
    idmes1.Clear;
    Application.ProcessMessages;
    POP.Retrieve(intI, idMes1); //читать с сервера
    idMes1.SaveToStream(stream,false);
  end;
  stream.Free;
end;

В другой момент времени считываю записанные сообщения из этого файла:

Код


Stream := TFileStream.Create('d:\test2.dat', fmOpenRead);
while (Stream.Position < Stream.Size) do
begin
  Msg1.Clear;
  msg1.LoadFromStream(stream,false);
  // фаза отображения.....
end;
stream.Free;

Проблема в том, что считывается только одно (первое) сообщение (записывалось несколько). При этом Stream.Position = Stream.Size.
В файле все письма есть, разделитель (CR.CR) тоже.
В чем проблема и как ее решить?

Это сообщение отредактировал(а) Snowy - 30.3.2010, 11:00

Snowy

Дата 30.3.2010, 11:17 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Нужно считывать вручную все письма по одному в промежуточный TMemoryStream
и уже из этого стрима загружать каждое письмо в msg.
Загрузка письма расчитана только на одно письмо в стриме.
Поэтому нужно их разделить вручную.

Aig

Дата 30.3.2010, 11:51 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо, попробую.

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