Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

сохранить ico бд [D7]


rar ©   (2007-08-29 08:29:00) 

увжаемые мастера подскажите почему это работает

procedure TForm1.Button4Click(Sender: TObject);
var
 Icon: TIcon;
begin
   OpenDialog1.Execute;
   Icon := TIcon.Create;
   Icon.LoadFromFile(OpenDialog1.FileName);
   ADODataSet1.Edit;
   ADODataSet1.FieldByName('CL').AsInteger:=integer(Icon);
   ADODataSet1.Post;
       Image1.Picture.Graphic:=TIcon(ADODataSet1.FieldByName('CL').AsInteger);
end;


Desdechado   (2007-08-29 10:45:00) [1]

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1188310105&n=1


sniknik   (2007-08-29 08:57:00) [2]

потому, что адрес компонента это вовсе не содержимое, сохранять адрес толку мало. неважно куда, бд тут не причем.

+, даже в этом случае, когда адрес еще валидный, имедж вроде бы не работает с ico  (видел функции преобразований для имеджа... нафига бы они были нужны если бы можно было вот так просто присвоить...).


Сергей М.   (2007-08-29 08:53:00) [3]

Прокомментируй глубину своей творческой мысли - хранить в БД указатель..


Наверх

Титульная страница Поиск, карта сайта Написать письмо