powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / работа с Blob-полями в IB из Delphi
11 сообщений из 11, страница 1 из 1
работа с Blob-полями в IB из Delphi
    #32219302
Арнис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Народ! Помогите - кто чем сможет!
Значит так. Есть IB и Delphi 6.
Задача: Фотографию в формате jpg запихнуть в табличку БД.
Я так понял без Blob-поля - не обойтись. Знаний про эти поля у меня - ноль. Соответственно и про обращения с ними. так-что - недайте погибнуть чайнику - дайти вырасти до кофейника :). Может быть кто подкинет ссылки - что-нить почитать. Или сам накидает алгоритм работы с Blob-полями. Или ещё было-бы совсем неплохо - простенький пример. Но именно "простенький". Заранее спасибо.
...
Рейтинг: 0 / 0
работа с Blob-полями в IB из Delphi
    #32219326
Фотография Gluk (Kazan)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Отправил по почте
...
Рейтинг: 0 / 0
работа с Blob-полями в IB из Delphi
    #32220452
paul_c0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
CREATE TABLE name (
PHOTOs_value BLOB SUB_TYPE 0 SEGMENT SIZE 80
)
...
Рейтинг: 0 / 0
работа с Blob-полями в IB из Delphi
    #32220572
_DDV_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А можно посмотреть что там на почту пришло?
уж больно инетересно :)
...
Рейтинг: 0 / 0
работа с Blob-полями в IB из Delphi
    #32220625
Арнис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
to paul_c0 : как создать-то я знаю. надо узнать как запихнуть :( но тут вроде что-то получилось, тока я ещё неосмыслил результат :)
...
Рейтинг: 0 / 0
работа с Blob-полями в IB из Delphi
    #32220903
MrAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если у тебя картинка на экран выводится... Воспользуйся TDBImage.

DBImage.Image.LoadFromFile('C:\a.jpg') ;
DBImage.DataSource.DataSet.Post ;
...
Рейтинг: 0 / 0
работа с Blob-полями в IB из Delphi
    #32220928
Арнис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вообщем. в долгих муках я родил такой вариант :)

procedure TForm1.Button1Click(Sender: TObject);
var
s: TStream;
inc_num: Integer;
begin
IBQuery1.SQL.Clear;
IBQuery1.SQL.Text := 'insert into foto (list_id) values (' + Edit1.Text + ')';
ShowMessage(IBQuery1.Text);
IBQuery1.ExecSQL;
IBDataSet1.ParamByName('id').Value := StrToInt(Edit1.Text);
IBDataSet1.Open;
IBDataSet1.Edit;
IBDataSet1.FieldByName('numbitmap').AsInteger := 1;
s := IBDataSet1.CreateBlobStream(IBDataSet1.FieldByName('bitmap'), bmWrite);
Image1.Picture.Graphic.SaveToStream(s);
IBDataSet1.Post;
s.Free;
IBTransaction1.Commit;
end;

как ни странно - он работает :)
и ещё :
Image1.Picture.Graphic.SaveToStream(s); - запихивает jpeg-и
Image1.Picture.Bitmap.SaveToStream(s); - bmp-хи

Если у кого есть лучьшие варианты - с удовольствием посмотрю. :)
Всем спасибо!
...
Рейтинг: 0 / 0
работа с Blob-полями в IB из Delphi
    #32220954
А если хранить фотографии не в базе, а просто в каком-то каталоге? Имхо, это лучший вариант.
...
Рейтинг: 0 / 0
работа с Blob-полями в IB из Delphi
    #32221122
Арнис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
э... - незадумывался. С другой стороны : у меня есть 12000 обектов. их кол-во растёт. И каждому надо сопоставить как минимум 1-у фотку. Это конечно - самый страшный вариант, но всётаки .... На мой взгляд будет довольно-таки геморно и долго шарится по папкам
Народ. Есть мнения на этот счёт?
...
Рейтинг: 0 / 0
работа с Blob-полями в IB из Delphi
    #32221776
Никакого гемора я не замечал. Все фотки складываются в одну папку, имя каждого файла совпадает с id-шником соответсвующего объекта. На форме есть TImage в который подгружается нужный файл. Преимущество - не разростается база. Но всё наверное зависит от суммарного объёма фотографий. В прошлом моём проекте объём интербэйзовской базы был примерно 200 метров, объём графических файлов - точно не помню, но не меньше гига. Согласитесь, в такой ситуации запихивать графику в базу смысла нет.
...
Рейтинг: 0 / 0
работа с Blob-полями в IB из Delphi
    #32222229
AlexGL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Возникает попутно единственная проблема с "раздачей" прав на папку с фотографиями!
Через программу+сервер БД - можешь контролировать доступ на изменение информации в БД на уровне пользователей БД, а тут ещё добавляется контроль на уровне общей папочки (где фото сохраняются)!!!!!!!!!!!!
если дать всем - полный ... кто-нибудь умудриться вытереть или пересмотреть все фотки, что крайне нежелательно для корпоративной БД!
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / работа с Blob-полями в IB из Delphi
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]