Картинки в БД

← →
onix (2004-11-03 09:57) [0]

Здравстуйте мастера !
Никогда не приходилось сохранять картинки в БД. Помогите пожалуйста советом, как сей фокус проделать с помощью TStoredProc.

Заранее спасибо.

← →
vv_fran (2004-11-03 12:52) [1]

Blob поле делаешь. Подробней в Help

← →
onix (2004-11-03 14:06) [2]

>vv_Fran
Blob поле в таблице есть. Процедура которая должна добавить картинку тоже вроде есть. Проблемма, как передать картинку из программы в хранимую процедуру.
Таблица состоит из 2 полей:
IMAGE BLOB SUB_TYPE 0 SEGMENT SIZE 800,
ID INTEGER

Процедура имеет вид:
CREATE PROCEDURE UPDATE_PIC (
ID INTEGER,
IMAGE BLOB SUB_TYPE 0 SEGMENT SIZE 80
) AS
begin
update pic
set image = :image
where id = :id;
end

А вот какой код на писать в программе, чтоб передать в процедуру? Пробовал так :

procedure TFMain.Image2DblClick(Sender: TObject);
var pic : TBitmap;
begin
try
if OpenPicture.Execute then begin
pic := TBitmap.Create;
pic.LoadFromFile(OpenPicture.FileName);
with DM.SPTemp do begin
Active:=false;
StoredProcName:="update_pic";
Params.Clear;
Params.CreateParam(ftGraphic,"Image",ptInput).SetData(@pic);
Params.CreateParam(ftInteger,"id",ptInput).AsInteger := TImage(Sender).Tag;
ExecProc;
TransCommit;
end;
TImage(Sender).Picture.LoadFromFile(OpenPicture.FileName);}
end;
except
ShowMessage("Не удачное завершение записи");
end;
pic.Free;
end;
И еще несколько вариантов, но эффект =0

Картинки в БД Найти похожие ветки