Текущий архив: 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.018 c
