عمل مسح ضوئى من داخل فورم فى اوراكل 10g

السلام عليكم ورحمة الله وبركاتة

احتاج الى مساعدة لقد حاولت استخدام هذا الكود لعمل مسح ضوئى لصور من خلال

oracle form

هل هذا الكود صحيح ام يحتاج الى تعديل ام ان مسألى المسح الضوئى فى

oracle 10g

تتطلب استعمالى الى

other functions

وهذا هو الكود

DECLARE

-- Declare the OLE objects

MyApplication OLE2.OBJ_TYPE;

Myimages OLE2.OBJ_TYPE;

Myimage OLE2.OBJ_TYPE;

MySelection OLE2.OBJ_TYPE;

-- Declare handle to the OLE argument list

args OLE2.LIST_TYPE;

BEGIN

MyApplication := OLE2.CREATE_OBJ('ABAConversionUtility');

Myimages:= OLE2.GET_OBJ_PROPERTY(MyApplication, 'image');

Myimage := OLE2.INVOKE_OBJ(Myimages, 'Scan');

--(specify the item which i will scan on)

MySelection:=OLE2.GET_OBJ_PROPERTY(MyApplication,':block3.imge5');

--(specify the name of the scanner)

OLE2.SET_PROPERTY(MySelection,'Scan','abaarchivallib.abaarchivallibcontol');

--(save my image into this path)

OLE2.ADD_ARG(args, 'f:\image.jpg');

OLE2.INVOKE(Myimage, 'SaveAs', args);

OLE2.DESTROY_ARGLIST(args);

--OLE2.INVOKE(Myimage, 'Close');

-- Release the OLE objects

OLE2.RELEASE_OBJ(MySelection);

OLE2.RELEASE_OBJ(Myimage);

OLE2.RELEASE_OBJ(Myimages);

OLE2.RELEASE_OBJ(MyApplication);

END;

ارجو المساعدة لانى بحثت كثيرا فى هذا الموضوع ولم اجد شىء مجدى

انا استخدم oracle 10g

وليس

6i

شكرا