почему не грузится изображение?

← →
GIL © (2004-04-09 13:46) [0]

MainIBQ.First;
if not MainIBQ.IsEmpty then begin
Strm:=TMemoryStream.Create;//(MainIBQSMALL,bmRead);
for i:=1 to 12 do begin
if not MainIBQ.Eof then begin
MainIBQSmall.SaveToStream(Strm);
(ScrollBox1.Controls[i*2-1] as TImage).Picture.Bitmap.LoadFromStream(Strm);
(ScrollBox1.Controls[i*2-1] as TImage).Enabled:=True;
(ScrollBox1.Controls[i*2] as TLabel).Caption:=MainIBQId.Value;
end
Практически все хорошо, но рисунка нет!

← →
GIL © (2004-04-09 13:56) [1]

Если пытаться создать блобстрим, то он его вообще не хочет создавать, хотя все по примеру из хелпа

← →
sniknik © (2004-04-09 13:59) [2]

похоже не хватает кусочка кода
Strm.Position:= 0;
(с условием что остальное хорошо, практически)

← →
GIL © (2004-04-09 14:03) [3]

класс, спасибо!! а что он по умолчанию ее не в 0 выставляет когда из базы считывает? а то когда из файла, то все нормально

← →
sniknik © (2004-04-09 14:10) [4]

не знаю, не читал так никогда из файла, и в базах не уверен может гдето и ставит по умолчанию... но я всегда сам ставил.

На самом деле было бы странно, если бы SaveToStream обратно позицию возврощал в ноль, вы не находите? ;-)

извинете не знал

почему не грузится изображение? Найти похожие ветки