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

Вниз

Помогите с bitmap-ами в базе!!!   Найти похожие ветки 

 
Chemist   (2002-07-20 21:30) [0]

Немогу вставить картинки в базу данных.


 
Lola ©   (2002-07-21 12:28) [1]

Попробуй:
procedure GetPictureFromField;
- передача картинки из БД в DBImage

var ImageStream: TBlobStream;
begin
ImageStream:=TBlobStream.Create(Form1.Query1.FieldByName("Photo") as
TBlobField, bmRead);

try Form1.DBImage1.Picture.Graphic.LoadFromStream(ImageStream);
finally ImageStream.Free;
end;
end;

procedure GivPictureToField;
- передача картинки в БД при вставке/редактировании

var ImageStream: TBlobStream;
begin
ImageStream:=TBlobStream.Create(Form1.Query1.FieldByName("Photo") as
TBlobField, bmWrite);

try Form1.DBImage1.Picture.Graphic.SaveToStream(ImageStream);
finally ImageStream.Free;
end;
end;




 
IlyaA   (2002-07-22 10:08) [2]

> Lola не плохой способ, но можно и без стримов

Можно преобразовать Table.FieldByName("Blob") к TBlobField, а у неого есть методы LoadFromFile и SaveToFile.


 
Pasha676   (2002-07-23 14:01) [3]

Вопрос некоректен. Надо уточнить что за база. Как осуществляется доступ. Через ТТаble или через ТQuery.
В общем случае советую посмотреть демо пример, который поставляется с Дельфи. Там все основы есть.



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
1-35309
GTA 3
2002-07-29 17:20
2002.08.12
Как узнать четыре последних символа в Edit1?


14-35461
Igor_thief
2002-07-16 12:18
2002.08.12
Компонент


1-35258
Kran
2002-07-31 11:15
2002.08.12
Посимвольное присваивание Строк


1-35366
GTA 3
2002-07-30 16:01
2002.08.12
Запись и чтение из реестра


7-35476
roadstar
2002-05-29 14:23
2002.08.12
Как програмно открыть папку