| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Blob поля в Interbase [D6, IB6.x]

Blondin ©   (2002-09-20 11:27:00) 

У меня возникла необходимость записывать в базу фотки,
но я не знаю как с этим работать в ИБ,т.к. добавление,редактирование происходит через SQL запрос
(insert,update)

Подскажите как действовать.

Спасибо

---

секретарь   (2002-09-20 12:28:00) [1]

это ты мне?
Я не думаю, я исполняю.

---

Prooksius   (2002-09-20 12:16:00) [2]

Ну я же не все тебе буду писать! Тут и самому подумать не мешало бы :)

---

секретарь   (2002-09-20 12:09:00) [3]

не по-русски написано...
Фотографии искажаться будут при вводе.

---

Prooksius   (2002-09-20 12:08:00) [4]

Примерно так:

var
bs: TFIBBlobStream;
begin
if OpenPictureDlg.Execute then begin
PhotoImage.Picture.LoadFromFile(OpenPictureDlg.FileName);
if PhotoImage.Picture.Graphic <> nil then begin
Transaction.StartTransaction;
bs := TFIBBlobStream.Create;
try
bs.Mode := bmWrite;
bs.Database := DataBase;
bs.Transaction := Transaction;
bs.Truncate;
PhotoImage.SaveToStream(bs);
bs.Finalize;
PhotoQry.ParamByName("PHOTOCARD").AsQuad := bs.BlobID;
try
PhotoQry.ExecQuery;
Transaction.Commit;
except
on Exception do Transaction.Rollback;
end;
finally
bs.Free;
end;
end;
end;

PhotoQry.SQL = "insert into PhotoTable (Photo) values (PHOTOCARD)"

---

секретарь   (2002-09-20 11:41:00) [5]

для этого тебе нужна камера, подключенная к компьютеру.
Подносишь фотку к камере, вводишь ее в компьютер и она попадает в базу.
А без камеры никак... И IB тут нипричем...

P.S. Хотя, говорят в последнее время появились сканеры для ввода фоток, но они, говорят, плохо работают. И фотку зажевать могут.

---

Наверх