Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

почему не грузится изображение? [D6, Yaffil]

GIL © (2004-04-09 13:46:00)
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 14:29:00) [1]
извинете не знал

jack128 (2004-04-09 14:19:00) [2]
На самом деле было бы странно, если бы SaveToStream обратно позицию возврощал в ноль, вы не находите? ;-)

sniknik (2004-04-09 14:10:00) [3]
не знаю, не читал так никогда из файла, и в базах не уверен может гдето и ставит по умолчанию... но я всегда сам ставил.

GIL (2004-04-09 14:03:00) [4]
класс, спасибо!! а что он по умолчанию ее не в 0 выставляет когда из базы считывает? а то когда из файла, то все нормально

sniknik (2004-04-09 13:59:00) [5]
похоже не хватает кусочка кода
Strm.Position:= 0;
(с условием что остальное хорошо, практически)

GIL (2004-04-09 13:56:00) [6]
Если пытаться создать блобстрим, то он его вообще не хочет создавать, хотя все по примеру из хелпа

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »