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

Вниз

Записать Image в Базу данных.   Найти похожие ветки 

 
Maloy ©   (2003-11-02 13:13) [0]

Всем мастерам привет, помогите с глупым вопросом: Как добавить в базу данных картинку, и какой тип поля должен быть при этом?
Заранее благодарен.


 
De Kamp   (2003-11-02 14:21) [1]

Используй компонент DBImage. А данные сохраняй в поле BLOB.


 
Maloy ©   (2003-11-02 15:03) [2]

То, что использовать DBImage я понимаю, и то что данные сохранять Blob впринципе тоже, вопрос в том, как их туда записать? может подскажешь. Спасибо.


 
Maxud ©   (2003-11-02 16:08) [3]

В DBImage:

procedure TForm1.Button1Click(Sender: TObject);
var
B: TBitmap;
begin
B := TBitmap.Create;
try
B.LoadFromFile("your.bmp");
DBImage1.Picture.Assign(B);
finally
B.Free;
end;
end;


 
Maxud ©   (2003-11-02 16:15) [4]

В blob:

procedure TForm1.Button2Click(Sender: TObject);
begin
Table1Blobfield.LoadFromFile("your.bmp");
end;


 
Maloy ©   (2003-11-02 19:00) [5]

А он не понимает, пишет Undeclared identifier: "TableBlobField".
Это свойство, или объект, как его определить, я просто не очень силен в этом. Подскажи. Благодарю.


 
Плохиш_   (2003-11-02 19:03) [6]

TTable + F1/Help


 
Maxud ©   (2003-11-03 08:20) [7]

Полагаю,что база данных уже создана,на форме или в модуле данных имеются DataSource и Table, они связаны и подключены.
На Table делаешь double-click, вызывается Fields Editor, в контекстном меню выбираешь "Add all fields", при этом для каждого поля базы создается статическое поле, т.е объект базового типа TField,но связанное с конкретным типом данных (TDateField, TIntegerField, TBLOBField...). Эти поля доступны из инспектора объектов и в самой программе и позволяют обращаться к конкретному полю напрямую по имени (имена образуются автоматически по имени компонента Table и названию поля, например есть Table1: TTable и поле Image: TBLOBField, имя будет Table1Image). Пример использования см. выше.
Желаю удачи :)


 
Maloy ©   (2003-11-03 18:53) [8]

За удачу спасибо. Объяснения ты дал исчерпывающее, я все сделал, оно скомпилилось, я даже было обрадовался, но нет. После удачной компиляции, тогда, когда я нажимаю на кнопку добавления записи из файла, он выдает: ошибку записи массива данных, что-то вроде Stream Write Error. Может сможешь подсказать в чем сейчас дело. Спасибо.


 
app ©   (2003-11-03 19:16) [9]

В Дельфи есть пример FishFact


 
Maloy ©   (2003-11-04 10:31) [10]

Да ладно, я уже дошел в чем дело, после добавления строки Table1.Edit; все заработало, как часы; Всем спасибо.


 
Плохиш_   (2003-11-04 10:35) [11]

>Maloy © (04.11.03 10:31) [10]


> после добавления строки Table1.Edit; все заработало,


Даааа, не пора-ли теорию поучить?


 
Maloy ©   (2003-11-04 12:14) [12]

Может мне пора и теорию поучить.
А ответ TTable + F1/Help, не самый исчерпывающий, и если почитаешь условия нахождения на форуме, он нужен для того, чтоб помогать людям, а не для того, говорить людям что они ни Х... не понимают в этом вопросе.


 
Delirium ©   (2003-11-04 12:26) [13]

> Maloy © (04.11.03 12:14) [12]

"...если почитаешь условия нахождения на форуме, он нужен для того, чтоб помогать людям, а не для того, говорить людям что они ни Х... не понимают в этом вопросе..." - люди на форуме не обязаны "помогать" тем кто "ни Х... не понимают", здесь надо научиться быть благодрным, за то, что хоть что-то объяснили, не смотря на хамство и тупость...


 
Maloy ©   (2003-11-04 14:26) [14]

Это была не цитата, а логический вывод , и про обязанность я не говорил, а по поводу благодарности, я сказал выше:"Всем спасибо", ну да ладно, я сдесь не для того, что б ругаться, если кого-то, чем-то обидел, извиняюсь.



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

Текущий архив: 2003.11.24;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.038 c
14-79159
Mihey
2003-10-29 17:52
2003.11.24
Есть ли нормальные компиляторы Pascal?????


14-79120
Fants
2003-11-01 13:57
2003.11.24
Проверка правописания


14-79172
Думкин
2003-10-31 05:58
2003.11.24
С днем рождения! 31 октября.


14-79116
undert
2003-10-25 13:57
2003.11.24
KERIO WINROUTE FIREWALL !!! HELP !!!


1-79044
NewD
2003-11-13 07:56
2003.11.24
после загузки в ImageList иконка портится