|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Вывод на экран картинку и текст
Здравствуйте. Есть готовая программа с бд(Database Desktop). Мне нужно чтобы при добавлении записи можно было добавить текст и картинку. И чтобы все это отображалось в главном окне.
Вот скриншоты программы. Мб я не те компоненты разместил,но суть думаю поймете http://prntscr.com/700lii http://prntscr.com/700lyh Заранее спасибо |
#2
|
||||
|
||||
А здесь скриншотки к теме прикрутить можно? Что-то ваши картинки блокируются при просмотре
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
Тогда вот вам пример-пятиминутка
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
|||
|
|||
Цитата:
|
#6
|
||||
|
||||
<DELETED>
Смотрите демосы, там вроде пример базы с картинками был Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 03.05.2015 в 13:51. |
#7
|
|||
|
|||
Создал в таблице раздел под мемо и графику. Дал им значение M и G.Подключил,выдает ошибку
Ошибка Последний раз редактировалось luftfanol, 03.05.2015 в 17:51. |
#8
|
||||
|
||||
Это у вас БД ругнулась на отсутствие уникального ключа в таблице. Обычно делают поле счетчик для этих целей.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#9
|
|||
|
|||
когда я нажимаю редактировать запись в бд то обновляется только текст,а картинка остается прежней. подскажите как исправить?
ну и хотелось бы сделать возможность загрузки других форматов картинок.dbimage |
#10
|
|||
|
|||
Советую сделать кнопку для загрузки картинки в DBImage
Можно подрубить модуль. uses JPEG Функция на конвертацию картинки из JPEG в BMP: Код:
procedure JPEGtoBMP(FileName: TFileName; var Bmp: TBitmap); var jpg: TJPEGImage; begin jpg := TJPEGImage.Create; jpg.CompressionQuality := 100; jpg.Compress; jpg.LoadFromFile(FileName); Bmp.Assign(jpg); FreeAndNil(jpg); end; Кнопка загрузки картинки: Код:
procedure TfMASTERS.SpeedButton1Click(Sender: TObject); var FileName: TFileName; Bmp: TBitmap; begin if fdm.QMASTERS.Active then if fdm.QMASTERS.RecordCount > 0 then if OpenPictureDialog1.Execute then begin fdm.QMASTERS.Edit; FileName := OpenPictureDialog1.FileName; Bmp := TBitmap.Create; try JPEGtoBMP(FileName, Bmp); fdm.QMASTERS.Fields[7].Assign(Bmp); FreeAndNil(Bmp); except ShowMessage('Не удалось загрузить картинку.'); FreeAndNil(Bmp); end; end; end; Вот так у меня все путем и когда я загружаю новую картинку, предыдущая удаляется. И привяжите DBImage к BLOB полю в вашей таблице таблице. Только для загрузки в таблице должна быть хотя бы одна запись. Так что перед тем, как грузить, сделайте запись без картинки, потом добавьте нормальную запись(с картинкой) и запись без картинки уже можно удалить. Последний раз редактировалось gewasop, 05.05.2015 в 23:16. |
Этот пользователь сказал Спасибо gewasop за это полезное сообщение: | ||
fantanol (05.05.2015)
|
#11
|
|||
|
|||
ругается на процедуру http://prntscr.com/71xssa
|
#12
|
|||
|
|||
Цитата:
Хотя скорей всего где-то лишний begin Последний раз редактировалось gewasop, 05.05.2015 в 23:35. |
#13
|
|||
|
|||
Программа запустилась. При добавлении jpeg картинка пропадает,а в мемо появляются странные буквы. При добавлении BMP ошибка http://prntscr.com/71y1mf
|