[nixon232]

В поле есть файл, пытаюсь его сохранить в поток, но ругается 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;

но смущает, так ли делаю?

[Alegun]

Можно немного подсократить код, вот вариант загрузки картинки из BLOBField через MemoryStream в Image

Код:

 MS:=TMemoryStream.Create;
 b:= TJpegImage.Create;
 TBLOBField(tbl.FieldByName('Рисунки')).SaveToStream(ms);
  try
    ms.Position:= 0;
    b.LoadFromStream(ms);
    Image1.Picture.Bitmap.Assign(b);
  finally
   b.Free;
   ms.Free;
  end;

[nixon232]

Господи, все дело было в простой каретке.... Спасибо