Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.02.04;
Скачать: CL | DM;

Вниз

как создать таблицу картинок формата 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;
Скачать: CL | DM;

Наверх




Память: 0.51 MB
Время: 0.037 c
15-1168879297
Ringo
2007-01-15 19:41
2007.02.04
А зачем ваще заканчивать институт?


1-1165586648
.ruslan
2006-12-08 17:04
2007.02.04
Информация о создании компонента


15-1168543701
ArtemESC
2007-01-11 22:28
2007.02.04
Так и не понял Паскаля...


8-1149685999
pm
2006-06-07 17:13
2007.02.04
VideoWindow не на главной форме


6-1156944529
Орион
2006-08-30 17:28
2007.02.04
Transfer-encoding: chunked