[nixon232]

В поле есть файл, пытаюсь его сохранить в поток, но ругается Stream error write. Вроде удается записать в TMemoryStream, но передать его в стрим не могу. Я думал, что из области как Tstrings и Tstringlist, но что ничего толком не вышло. Или размер нужно вручную выставить?

Код:

1 2 3 4 5

MS:=TMemoryStream.Create;      bf:= TBlobField(Query.FieldByName('u_Data'));      bf.SaveToStream(ms);             ms.SaveToStream(m); // var M: Tstream тут Stream write error

Наставьте на путь истесанный.
--- upd Вроде удалось решить

Код:

1 2	M: tsream; m:=tMemoryStrem.create;

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

[Alegun]

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

Код:

1 2 3 4 5 6 7 8 9 10 11

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]

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