Показать сообщение отдельно
  #1  
Старый 16.06.2017, 10:58
nixon232 nixon232 вне форума
Активный
 
Регистрация: 26.01.2014
Сообщения: 282
Версия Delphi: delphi xe4
Репутация: выкл
По умолчанию TblobField to TSttream

В поле есть файл, пытаюсь его сохранить в поток, но ругается Stream error write. Вроде удается записать в TMemoryStream, но передать его в стрим не могу. Я думал, что из области как Tstrings и Tstringlist, но что ничего толком не вышло. Или размер нужно вручную выставить?
Код:
 MS:=TMemoryStream.Create;
      bf:= TBlobField(Query.FieldByName('u_Data'));
      bf.SaveToStream(ms);
      
      ms.SaveToStream(m); // var M: Tstream тут Stream write error
Наставьте на путь истесанный.
--- upd Вроде удалось решить
Код:
M: tsream;
m:=tMemoryStrem.create;
но смущает, так ли делаю?
Ответить с цитированием