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

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

как сохранить картинку в файл [D7, свой тип]


v1keeee ©   (2008-12-25 21:26:00) 

Здравствуйте! Помогите пожалуста в вопросе: я пишу программку типа базы данных для хранения и обработки данных использую записть типа

type
 Info = record
    FIO : char[10];
    ... {еще данные}
    foto: char[256]; // <---- вот тут вопрос {не знаю что делать}

вопрос: как сохранить картинку jpg формата в базу данных (файл типа text или byte) чтобы потом прочитать из этой базы методом BlockRead еще и картинку которую сохранил вместе с основными данными?

P.S. Может как нить представить картинку в виде последовательности байт и записывать? только я не знаю как :(


Виталий Панасенко   (2008-12-26 12:47:00) [1]

BlockWrite/BlockRead с потоками не работает, насколько я знаю


v1keeee   (2008-12-26 11:38:00) [2]


> я бы рекомендовал использовать нетипированный файл... записать
> заголовок(Info=record), далее размер данных картинки и собственно
> данные

вот терь я сам понял чего хотел ))


>  и собственно данные

а данные получить из потока так получается?


Виталий Панасенко   (2008-12-26 10:36:00) [3]

я бы рекомендовал использовать нетипированный файл... записать заголовок(Info=record), далее размер данных картинки и собственно данные


v1keeee   (2008-12-26 09:33:00) [4]


> TMemoryStream (если картинка сравнительно небольшая) или
> TFileStream (для картинки произвольного размера)

спасиба


Сергей М.   (2008-12-26 08:48:00) [5]


> типа базы данных для хранения и обработки
> данных использую записть типа


Все уже до тебя написано, осталось только воспользоваться готовым - см. TClientDataSet


Сергей М.   (2008-12-26 08:46:00) [6]

TMemoryStream (если картинка сравнительно небольшая) или TFileStream (для картинки произвольного размера)


v1keeee   (2008-12-25 22:31:00) [7]

а какого типа stream создовать чтобы picture.graphic туда засунуть? TMemoryStream или какой?


Johnmen   (2008-12-25 22:31:00) [8]


> щас буду пробовать ^-^

Чушь пробованию не поддается. Это так, к слову...


v1keeee   (2008-12-25 22:29:00) [9]


> поэтому сохранить запись в поток, в уж потом блокрайтом

щас буду пробовать ^-^


Johnmen   (2008-12-25 22:25:00) [10]


> блоки фиксированной длины

И что? Это чему-то мешает?


Правильный$Вася   (2008-12-25 22:22:00) [11]


> Да какая разница, что за данные в записи??? Пиши БлокРайтом
> и всё...

разница есть
блоки фиксированной длины, а файлы - произвольной
поэтому сохранить запись в поток, в уж потом блокрайтом


Johnmen   (2008-12-25 22:14:00) [12]

Да какая разница, что за данные в записи??? Пиши БлокРайтом и всё...


v1keeee   (2008-12-25 22:09:00) [13]


> SaveToFile+F1 для TGraphic, TBitmap, TIcon и примеры есть.
> ..

пардон, не понял...
Мне нужно записывать функцией BlockWrite запись содержащую поле в виде картинки jpg формата в файл...


Johnmen   (2008-12-25 22:00:00) [14]

SaveToFile+F1 для TGraphic, TBitmap, TIcon и примеры есть...


v1keeee   (2008-12-25 21:47:00) [15]

Еще вот наблюдаю такое: если на компоненте image c загруженной в нем картинкой щелкнуть правой кнопкой мыши и выбрать пункт View as Text
то появляется вот это:

object Image1: TImage
   Left = 16
   Top = 8
   Width = 297
   Height = 286
   Picture.Data = {0A544A504547496D61676511730000F
                       .....
    325D8614C2FF000747F3F0EEBFF003
    000000050012010300010000000100}
   end

получается что в свойстве Picture.Data содержится представление картинки в виде последовательности байт? каким образом это можно получить в переменную типа char или byte чтобы сохранить в файле и потом прочитать с другими данными?


v1keeee   (2008-12-25 21:38:00) [16]


> она такая и естьSaveToStream

Извеняюсь если чегото может недопонимаю.. а у какого свойства вызывать этот метод? У image1.picture "SaveToStream" нету :( просто у image1 тоже нету


Правильный$Вася   (2008-12-25 21:33:00) [17]


> Может как нить представить картинку в виде последовательности байт

она такая и есть
SaveToStream


Наверх

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