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

Вниз

Blob поля в Interbase   Найти похожие ветки 

← →
Blondin   (2002-09-20 11:27) [0]

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

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

Спасибо

---

← →
секретарь   (2002-09-20 11:41) [1]

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

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

---

← →
Prooksius ©   (2002-09-20 12:08) [2]

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

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 12:09) [3]

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

---

← →
Prooksius ©   (2002-09-20 12:16) [4]

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

---

← →
секретарь   (2002-09-20 12:28) [5]

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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.012 c