Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  18:42[Войти] | [Зарегистрироваться]
Ответ на вопрос № 39461

26-01-2006 01:14
Добрый день.
В моей программульке понадобилось сделать так, чтобы некоторым записям в одной из таблиц можно было "назначить иконку".
Как ее прорисовывать в гриде, искать на диске - это мне понятно.
Подскажите, как реализовать хранение иконок? Если в базе (используется FB), я понимаю так, что через BLOB, но ни разу еще не сталкивался с таким типом.

В общем, вопрос такой: поделитесь теорией насчет сабжа.

Спасибо.

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

26-01-2006 03:54 | Комментарий к предыдущим ответам
GraphicEx берем здесь http://www.delphi-gems.com/GraphicEx.php
RegExpr здесь http://regexpstudio.com/RU/TRegExpr/TRegExpr.html
jpeg - не скажу ;)

26-01-2006 02:25
Здесь xPic - это TDBImage для Blob

uses GraphicEx, jpeg, RegExpr;
...
procedure TForm1.LoadPictureClick(Sender: TObject);
var
  GraphicClass: TGraphicExGraphicClass;
  Graphic: TGraphic;
  Jpg: TJPEGImage;
  Pic: TBitmap;
  Ico: TIcon;
begin
  // Загрузка картинки с диска в БД
  with OpenPictureDialog1 do begin
    if Execute then begin
      Screen.Cursor := crHourGlass;
      try
        xPic.Field.DataSet.Edit;
        GraphicClass := FileFormatList.GraphicFromContent(FileName);
        if GraphicClass = nil then begin
          if ExecRegExpr('(?i)\.jpe?g$', FileName) then begin
            Jpg := TJPEGImage.Create;
            Pic := TBitmap.Create;
            try
              Jpg.LoadFromFile(FileName);
              Pic.Assign(Jpg);
              xPic.Field.Assign(Pic);
            finally
              Jpg.Free;
              Pic.Free;
            end;
          end
          else begin
            if ExecRegExpr('(?i)\.ico$', FileName) then begin
              Ico := TIcon.Create;
              Pic := TBitmap.Create;
              try
                Ico.LoadFromFile(FileName);
                Pic.Width := Ico.Width;
                Pic.Height := Ico.Height;
                Pic.Canvas.Draw(0, 0, Ico);
                xPic.Field.Assign(Pic);
              finally
                Pic.Free;
                Ico.Free;
              end;
            end
            else (xPic.Field as TBlobField).LoadFromFile(FileName);
          end;
        end
        else begin
          // GraphicFromContent always returns TGraphicExGraphicClass
          Graphic := GraphicClass.Create;
          Graphic.LoadFromFile(FileName);
          (xPic.Field).Assign(Graphic);
          Graphic.Free;
        end;
      finally
        Screen.Cursor := crDefault;
      end;
    end;
  end;
end;


26-01-2006 02:14 | Сообщение от автора вопроса
TImageList
нее, у меня пользователь создает новую запись, выбирает ей иконку не из заданных заранее, а с диска.

2 Shabal:
есть ваш совет:
Image1.Picture.Bitmap.Assign(MyImageBlobField);

а вот что значит SUB_TYPE 0 SEGMENT SIZE 80?
вообще для иконки как надо? и при создании поля нужно ли указывать кодировку? :)

Как присвоить битмэпу из базы я уловил, а теперь как бы битмэп сохранить в базу? :)

26-01-2006 01:51
Как правило, число иконок для вывода в гриде не безгранично, поэтому самый простой способ - хранить их в приложении в TImageList.

26-01-2006 01:33 | Вопрос к автору: запрос дополнительной информации
А в чем, в принципе, вопрос? Эта тема подымалась ни раз - хранение как и в любой другой БД в Blob поле. Ищите на необъятных просторах "Круглого стола".

create domain T_Graphic as BLOB SUB_TYPE 0 SEGMENT SIZE 80;


Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Кто съел Красную шапочку?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования