Главная страница
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.014 c
14-31951
SemFLY
2002-09-13 00:15
2002.10.10
Где можно найти софт для работы с автомобильным компьютером ?


3-31654
Blondin
2002-09-20 11:27
2002.10.10
Blob поля в Interbase


1-31843
runser
2002-09-28 16:16
2002.10.10
Создание компонента


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


1-31812
kamonavt
2002-10-01 21:00
2002.10.10
mdi-форма -> dll