Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.023 c
8-31906
Ocean
2002-06-10 17:58
2002.10.10
Рисование в контроле


1-31848
MC TOL
2002-09-27 16:33
2002.10.10
Direct Oracle Access for Delphi 7?!


1-31739
Шурик Ш
2002-09-30 16:19
2002.10.10
Передача значений между формами в заранее неизвестной последов.


1-31762
Chlavik
2002-09-27 02:52
2002.10.10
Дайте Help на русском по Delphi 6 !!!!!


1-31675
GreatMaster
2002-09-26 09:46
2002.10.10
как нормально скрыть курсор в TEdit? (hidecaret)