كيف يمكن ان اضع صورة في الـ Scanner واحفظها في قاعدة البيانات مباشرة من الform

يمكن ان تستفيد من هذا الكود

declare
scanMID PLS_INTEGER;
docNameMID PLS_INTEGER;
scanResultMID PLS_INTEGER;
lobject Ole2.Obj_type;
begin lobject:=OLE2.CREATE_OBJ('ABAArchivalLib.ABAArchivalLibContol');


scanMID:=GET_OLE_MEMBERID(lobject,'Scan');

docNameMID:=GET_OLE_MEMBERID(lobject,'DocName');

scanResultMID:=GET_OLE_MEMBERID(lobject,'ScanResult'); 

Set_Ole(lobject,docNameMID,'the path which you want to put the image in ',VT_BSTR); 
Init_OleArgs(0);

Call_Ole(lobject, scanMID);

lscanreturn:=GET_OLE_NUM(lobject,scanResultMID);
end;