Вниз
Скачать: CL | DM;

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

 
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]

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


 
jack128 ©   (2004-04-09 14:19) [5]

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


 
GIL ©   (2004-04-09 14:29) [6]

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.034 c
14-1082448342
Sirus
2004-04-20 12:05
2004.04.11
Установк своей программы...


9-1065171136
Zergling
2003-10-03 12:52
2004.04.11
DerectDraw - SetPalette


3-1079495625
vi007
2004-03-17 06:53
2004.04.11
Refresh данных в Interbase


7-1075557969
juiceman
2004-01-31 17:06
2004.04.11
запуск в авторане


1-1082890875
hgd
2004-04-25 15:01
2004.04.11
Как вставить картинку с alfa в формате png




   Наверх