Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];

Вниз

как создать таблицу картинок формата jpg   Найти похожие ветки 

 
mary84 ©   (2007-01-20 21:41) [0]

помогите плз! как создать в базе данных таблицу, содержащую картинки формата jpg???


 
API ©   (2007-01-20 21:49) [1]

В какой базе данных?

В MS SQL:

CREATE TABLE Pictures (ID Integer Identity NOT NULL, PictureData Image, PRIMARY KEY (ID))


 
mary84 ©   (2007-01-20 21:51) [2]

Paradox 7


 
FIL-23 ©   (2007-01-20 21:55) [3]

я тоже долго мучился этим вопросом :)
так вот слушай по шагово:
1. создаем таблицу в BDE естественно с полем (Graphic)
2. далее связываем эту таблицу в делфи с помощью table и datasource
3. добавляем на форму компонент dbimage (вкладка data controls)
4. у компонента dbimage выстанавливаем значения datasource и datafields (естественно в datafields указываем поле со значением Graphic)
5. ну а дальше работаем как с обычным image :)
все понятно?


 
Anatoly Podgoretsky ©   (2007-01-20 21:55) [4]

> mary84  (20.01.2007 21:51:02)  [2]

Формат команды SQL (Create Table) документирован в справке по LocalSQL


 
mary84 ©   (2007-01-20 22:05) [5]

Спасибо, так понятно, только не понятно как картинку вставить в таблицу.
Я другие таблицы в DatabaseDesktop заполняла, только как вот туда картинки повставлять, или их как то по другому вставлять надо???


 
API ©   (2007-01-20 22:20) [6]

только как вот туда картинки повставлять

См. TBlobStream, там, в справке, пример есть:

procedure TForm1.Button1Click(Sender: TObject);

var
 Stream1: TBlobStream;
 Stream2: TStream;
begin
 Stream1 := TBlobStream.Create(Table1Notes, bmRead);
 try
   ClientDataSet1.Edit;
   { here’s a different way to create a blob stream }
   Stream2 := ClientDataSet1.CreateBlobStream(ClientDataSet1.FieldByName("Remarks"), bmReadWrite);
   try
     Stream2.CopyFrom(Stream1, Stream1.Size);
     ClientDataSet1.Post;
   finally
     Stream2.Free;
   end;

 finally
   Stream1.Free;
 end;
end;


Откуда у тебя картинки берутся? Из файла? Тогда см. также в сторону TFileStream.

Собственно, "вставление" изображения в формате JPEG ничем не отличается от "вставления" произвольных бинарных данных.


 
FIL-23 ©   (2007-01-20 22:25) [7]


> только не понятно как картинку вставить в таблицу.


ИСПОЛЬЗУЙ компонент OpenPictureDialog (вкладка dialogs)
для примера чтобы было понятно кодик :

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;


ну теперь то все понятно? :)


 
FIL-23 ©   (2007-01-20 22:27) [8]

> API ©   (20.01.07 22:20) [6]

уууууууууууу ну ты и намудрил :)))


 
mary84 ©   (2007-01-20 22:57) [9]

>FIL-23 ©   (20.01.07 22:25) [7]

Спасибо большое, только мне не совсем это сделать надо.
У меня есть база данных. Мен надо, чтобы при выделении определенной строки таблицы показывалась нужная картинка.
Как мне загрузить на нужное ключевое поле нужную картинку?


 
FIL-23 ©   (2007-01-20 23:05) [10]


> mary84 ©   (20.01.07 22:57) [9]

даааааа .... что с табой поделаешь ... :)


> Мен надо, чтобы при выделении определенной строки таблицы
> показывалась нужная картинка.

я так понимаю dbgrid используешь?

> Как мне загрузить на нужное ключевое поле нужную картинку?

вообще оно автоматически загружается выбираешь поле, открываешь картинку, и....... делаешь так table1.post или если тебе не понятно ...можно сделать еще и так :
1. выбираешь компонент dbnavigator (вкладка data controls)
2. и связываем этот компонент также как и dbimage

на этом компоненте (dbnavigator) можно все понять,.... ну если и тут не разберешся то это вощееее :)


 
mary84 ©   (2007-01-20 23:36) [11]

Все равно непонятно.
Куда вставлять это table1.post.
Мне надо, чтобы когда уже загрузится БД, картинки были уже и их не надо было открывать.
Можно ли их в Database Desktop повставлять?


 
FIL-23 ©   (2007-01-20 23:40) [12]

на прямую нельзя, кинь мне свое мыло и я тебе пример сброшу этой программы


 
mary84 ©   (2007-01-20 23:44) [13]

vinmariya@mail.ru


 
Anatoly Podgoretsky ©   (2007-01-20 23:44) [14]

> mary84  (20.01.2007 23:36:11)  [11]

Можно, Ctrl+A, Ctrl+C, Ctrl+V


 
mary84 ©   (2007-01-21 02:03) [15]

Спасибо за прогу, только это все равно не то что нужно.
Я просто Delphi совсем не знаю :)
Я взяла в таблице в поле фото прописала ссылки на картинки и в dbimage прописала datasource на эти картинки. Я прочитала где-то, что можно с помощью AfterScroll этой таблицы поменять картинку. Вы не знаете как это сделать??? (с кодом плз)


 
Германн ©   (2007-01-21 02:20) [16]


> mary84 ©   (21.01.07 02:03) [15]

"В огороде бузина, а в Киеве дядька". Сей форум, имхо, не для подобного "попрошайничества"!


 
mary84 ©   (2007-01-21 02:23) [17]

неужели так жалко


 
Германн ©   (2007-01-21 02:37) [18]


> mary84 ©   (21.01.07 02:23) [17]
>
> неужели так жалко

Помочь не жалко. Жалко тратить время на "первичное" обучение. :) Тем более бесплатно, да ещё в воскресенье, когда все "простые" люди отдыхают, забыв о будничном :)
Ей-богу! Будут конкретные вопросы по "частностям" - милости просим! Поможем даже в воскресенье! Имхо, говорю не только от себя любимого, но и от "сообщества МД"!



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

Форум: "Начинающим";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.49 MB
Время: 0.045 c
15-1168800324
Джо
2007-01-14 21:45
2007.02.04
Выбор «воздушки»


15-1167329662
Rouse_
2006-12-28 21:14
2007.02.04
Вот вам для разминки мозгов.


15-1168625185
Карелин Артем
2007-01-12 21:06
2007.02.04
Какие колонки сделать тыловыми, какие фронтальными?


2-1169295348
redlord
2007-01-20 15:15
2007.02.04
получение почты средствами компонентов indi


3-1163258294
Gulnaz
2006-11-11 18:18
2007.02.04
Как создать поиск





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский