Oracle Forms

respected member, i want to capture video using webcam through developer 6i. i m using ora_ffi package. my package specs are:
PACKAGE CAM IS
WM_CAP CONSTANT PLS_INTEGER := 1024; -- EQUALS TO '&H400S'
WM_CAP_DRIVER_CONNECT CONSTANT INTEGER := WM_CAP + 10;
WM_CAP_DRIVER_DISCONNECT CONSTANT INTEGER := WM_CAP + 11;
WM_CAP_EDIT_COPY CONSTANT INTEGER := WM_CAP + 30;
WM_CAP_GET_STATUS CONSTANT INTEGER := WM_CAP + 54;
WM_CAP_DLG_VIDEOFORMAT CONSTANT INTEGER := WM_CAP + 41;
WM_CAP_SET_PREVIEW CONSTANT INTEGER := WM_CAP + 50;
WM_CAP_SET_PREVIEWRATE CONSTANT INTEGER := WM_CAP + 52;
WM_CAP_SET_SCALE CONSTANT INTEGER := WM_CAP + 53;
WS_CHILD CONSTANT INTEGER := 1073741824; -- EQUALS TO '&H40000000'
WS_VISIBLE CONSTANT INTEGER := 268435456; -- EQUALS TO '&H10000000'
SWP_NOMOVE CONSTANT PLS_INTEGER := 2; -- EQUALS TO '&H2S'
SWP_NOSIZE CONSTANT PLS_INTEGER := 1;
SWP_NOZORDER CONSTANT PLS_INTEGER := 4; -- EQUALS TO '&H4S'
HWND_BOTTOM CONSTANT PLS_INTEGER := 1;
hHwnd PLS_INTEGER;

TYPE POINTAPI IS RECORD(
X INTEGER,
Y INTEGER
);
TYPE CAPSTATUS IS RECORD(
UIIMAGEWIDTH INTEGER , -- Width of the image
UIIMAGEHEIGHT INTEGER , -- Height of the image
FLIVEWINDOW INTEGER , -- Now Previewing video?
FOVERLAYWINDOW INTEGER , -- Now Overlaying video?
FSCALE INTEGER , -- Scale image to client?
PTSCROLL POINTAPI , -- Scroll position
FUSINGDEFAULTPALETTE INTEGER , -- Using default driver palette?
FAUDIOHARDWARE INTEGER , -- Audio hardware present?
FCAPFILEEXISTS INTEGER , -- Does capture file exist?
DWCURRENTVIDEOFRAME INTEGER , -- # of video frames cap'td
DWCURRENTVIDEOFRAMEDROPPED INTEGER , -- # of video frames dropped
DWCURRENTWAVESAMPLES INTEGER , -- # of wave samples cap'td
DWCURRENTTIMEELAPSEDMS INTEGER , -- Elapsed capture duration
HPALCURRENT INTEGER , -- Current palette in use
FCAPTURINGNOW INTEGER , -- Capture in progress?
DWRETURN INTEGER , -- Error value after any operation
WNUMVIDEOALLOCATED INTEGER , -- Actual number of video buffers
WNUMAUDIOALLOCATED INTEGER -- Actual number of audio buffers
);
FUNCTION SENDMESSAGE(HWND INTEGER,WMSG INTEGER,WPARAM INTEGER,LPARAM CAPSTATUS) RETURN BOOLEAN;
FUNCTION SENDMESSAGE(HWND INTEGER,WMSG INTEGER,WPARAM BOOLEAN,LPARAM INTEGER) RETURN BOOLEAN;
FUNCTION SENDMESSAGE(HWND INTEGER,WMSG INTEGER,WPARAM INTEGER,LPARAM INTEGER) RETURN BOOLEAN;
FUNCTION SETWINDOWPOS(HWND INTEGER,HWNDINSERTAFTER INTEGER,X INTEGER,Y INTEGER,CX INTEGER,CY INTEGER,WFLAGS INTEGER) RETURN INTEGER;
FUNCTION DESTROYWINDOW(HWND INTEGER) RETURN BOOLEAN;
FUNCTION CAPCREATECAPTUREWINDOWA(LPSZWINDOWNAME VARCHAR2,DWSTYLE INTEGER,X INTEGER,Y INTEGER,NWIDTH INTEGER,NHEIGHT INTEGER,HWNDPARENT INTEGER,NID INTEGER) RETURN PLS_INTEGER;
FUNCTION CAPGETDRIVERDESCRIPTIONA(WDRIVER INTEGER,LPSZNAME VARCHAR2,CBNAME INTEGER,LPSZVER VARCHAR2,CBVER INTEGER) RETURN BOOLEAN;


END;

package body are:

PACKAGE BODY CAM IS
/* Declare the library and function handles. */
USER_LIB_HANDLE ORA_FFI.LIBHANDLETYPE;
AVCP_LIB_HANDLE ORA_FFI.LIBHANDLETYPE;
FH_SM1 ORA_FFI.FUNCHANDLETYPE;
FH_SM2 ORA_FFI.FUNCHANDLETYPE;
FH_SM3 ORA_FFI.FUNCHANDLETYPE;
FH_SWP ORA_FFI.FUNCHANDLETYPE;
FH_DW ORA_FFI.FUNCHANDLETYPE;
FH_CPW ORA_FFI.FUNCHANDLETYPE;
FH_GDD ORA_FFI.FUNCHANDLETYPE;
/* Create the PL/SQL function that will actually invoke the foreign function. */
FUNCTION FF_SENDMESSAGE1(FHANDLE ORA_FFI.FUNCHANDLETYPE,HWND INTEGER,WMSG INTEGER,WPARAM INTEGER,LPARAM CAPSTATUS) RETURN BOOLEAN;
FUNCTION FF_SENDMESSAGE2(FHANDLE ORA_FFI.FUNCHANDLETYPE,HWND INTEGER,WMSG INTEGER,WPARAM BOOLEAN,LPARAM INTEGER) RETURN BOOLEAN;
FUNCTION FF_SENDMESSAGE3(FHANDLE ORA_FFI.FUNCHANDLETYPE,HWND INTEGER,WMSG INTEGER,WPARAM INTEGER,LPARAM INTEGER) RETURN BOOLEAN;
FUNCTION FF_SETWINDOWPOS(FHANDLE ORA_FFI.FUNCHANDLETYPE,HWND INTEGER,HWNDINSERTAFTER INTEGER,X INTEGER,Y INTEGER,CX INTEGER,CY INTEGER,WFLAGS INTEGER) RETURN INTEGER;
FUNCTION FF_DESTROYWINDOW(FHANDLE ORA_FFI.FUNCHANDLETYPE,HWND INTEGER) RETURN BOOLEAN;
FUNCTION FF_CAPCREATECAPTUREWINDOWA(FHANDLE ORA_FFI.FUNCHANDLETYPE,LPSZWINDOWNAME VARCHAR2,DWSTYLE INTEGER,X INTEGER,Y INTEGER,NWIDTH INTEGER,NHEIGHT INTEGER,HWNDPARENT INTEGER,NID INTEGER) RETURN INTEGER;
FUNCTION FF_CAPGETDRIVERDESCRIPTIONA(FHANDLE ORA_FFI.FUNCHANDLETYPE,WDRIVER INTEGER,LPSZNAME VARCHAR2,CBNAME INTEGER,LPSZVER VARCHAR2,CBVER INTEGER) RETURN BOOLEAN;
PRAGMA INTERFACE(C,FF_SENDMESSAGE1, 11265);
PRAGMA INTERFACE(C,FF_SENDMESSAGE2, 11265);
PRAGMA INTERFACE(C,FF_SENDMESSAGE3, 11265);
PRAGMA INTERFACE(C,FF_SETWINDOWPOS, 11265);
PRAGMA INTERFACE(C,FF_DESTROYWINDOW, 11265);
PRAGMA INTERFACE(C,FF_CAPCREATECAPTUREWINDOWA, 11265);
PRAGMA INTERFACE(C,FF_CAPGETDRIVERDESCRIPTIONA,11265);
-------------------------------------------------------------------------------------------------------------------
/* Create the PL/SQL function that is defined in the package spec.This function simply passes along the arguments */
/* it receives to ff_XXXXX (defined above), prepending the foreign function handle to the argument List. */
-------------------------------------------------------------------------------------------------------------------
FUNCTION SENDMESSAGE(HWND INTEGER,WMSG INTEGER,WPARAM INTEGER,LPARAM CAPSTATUS) RETURN BOOLEAN IS
BEGIN
RETURN (FF_SENDMESSAGE1(FH_SM1,HWND,WMSG,WPARAM,LPARAM));
END SENDMESSAGE;
-------------------------------------------------------------------------------------------------------------------
FUNCTION SENDMESSAGE(HWND INTEGER,WMSG INTEGER,WPARAM BOOLEAN,LPARAM INTEGER) RETURN BOOLEAN IS
BEGIN
RETURN (FF_SENDMESSAGE2(FH_SM2,HWND,WMSG,WPARAM,LPARAM));
END SENDMESSAGE;
-------------------------------------------------------------------------------------------------------------------
FUNCTION SENDMESSAGE(HWND INTEGER,WMSG INTEGER,WPARAM INTEGER,LPARAM INTEGER) RETURN BOOLEAN IS
BEGIN
RETURN (FF_SENDMESSAGE3(FH_SM3,HWND,WMSG,WPARAM,LPARAM));
END SENDMESSAGE;
------------------------------------------------------------------------------------------------------------------
FUNCTION SETWINDOWPOS(HWND INTEGER,HWNDINSERTAFTER INTEGER,X INTEGER,Y INTEGER,CX INTEGER,CY INTEGER,WFLAGS INTEGER) RETURN INTEGER IS
BEGIN
RETURN (FF_SETWINDOWPOS(FH_SWP,HWND,HWNDINSERTAFTER,X,Y,CX,CY,WFLAGS));
END SETWINDOWPOS;
------------------------------------------------------------------------------------------------------------------
FUNCTION DESTROYWINDOW(HWND INTEGER) RETURN BOOLEAN IS
BEGIN
RETURN (FF_DESTROYWINDOW(FH_DW,HWND));
END DESTROYWINDOW;
------------------------------------------------------------------------------------------------------------------
FUNCTION CAPCREATECAPTUREWINDOWA(LPSZWINDOWNAME VARCHAR2,DWSTYLE INTEGER,X INTEGER,Y INTEGER,NWIDTH INTEGER,NHEIGHT INTEGER,HWNDPARENT INTEGER,NID INTEGER) RETURN PLS_INTEGER IS
BEGIN
RETURN (FF_CAPCREATECAPTUREWINDOWA(FH_CPW,LPSZWINDOWNAME,DWSTYLE,X,Y,NWIDTH,NHEIGHT,HWNDPARENT,NID));
END CAPCREATECAPTUREWINDOWA;
------------------------------------------------------------------------------------------------------------------
FUNCTION CAPGETDRIVERDESCRIPTIONA(WDRIVER INTEGER,LPSZNAME VARCHAR2,CBNAME INTEGER,LPSZVER VARCHAR2,CBVER INTEGER) RETURN BOOLEAN IS
BEGIN
RETURN (FF_CAPGETDRIVERDESCRIPTIONA(FH_GDD,WDRIVER,LPSZNAME,CBNAME,LPSZVER,CBVER));
END CAPGETDRIVERDESCRIPTIONA;
------------------------------------------------------------------------------------------------------------------
/* Define the body of package mathlib */
BEGIN
/* Load the library. */
USER_LIB_HANDLE := ORA_FFI.LOAD_LIBRARY('C:\WINDOWS\SYSTEM32\', 'USER32.DLL');
AVCP_LIB_HANDLE := ORA_FFI.LOAD_LIBRARY('C:\WINDOWS\SYSTEM32\', 'AVICAP32.DLL');
/* Register the foreign function. */
FH_SM1 := ORA_FFI.REGISTER_FUNCTION(USER_LIB_HANDLE,'SendMessageA',ORA_FFI.C_STD);
/* Register all parameters of function . */
ORA_FFI.REGISTER_PARAMETER(FH_SM1,ORA_FFI.C_INT);
ORA_FFI.REGISTER_PARAMETER(FH_SM1,ORA_FFI.C_INT);
ORA_FFI.REGISTER_PARAMETER(FH_SM1,ORA_FFI.C_INT);
ORA_FFI.REGISTER_PARAMETER(FH_SM1,ORA_FFI.C_INT);
/* Register the return type. */
ORA_FFI.REGISTER_RETURN(FH_SM1,ORA_FFI.C_INT);
/* Register the foreign function. */
FH_SM2 := ORA_FFI.REGISTER_FUNCTION(USER_LIB_HANDLE,'SendMessageA',ORA_FFI.C_STD);
/* Register all parameters of function . */
ORA_FFI.REGISTER_PARAMETER(FH_SM2,ORA_FFI.C_INT);
ORA_FFI.REGISTER_PARAMETER(FH_SM2,ORA_FFI.C_INT);
ORA_FFI.REGISTER_PARAMETER(FH_SM2,ORA_FFI.C_INT);
ORA_FFI.REGISTER_PARAMETER(FH_SM2,ORA_FFI.C_INT);
/* Register the return type. */
ORA_FFI.REGISTER_RETURN(FH_SM2,ORA_FFI.C_INT);
/* Register the foreign function. */
FH_SM3 := ORA_FFI.REGISTER_FUNCTION(USER_LIB_HANDLE,'SendMessageA',ORA_FFI.C_STD);
/* Register all parameters of function . */
ORA_FFI.REGISTER_PARAMETER(FH_SM3,ORA_FFI.C_INT);
ORA_FFI.REGISTER_PARAMETER(FH_SM3,ORA_FFI.C_INT);
ORA_FFI.REGISTER_PARAMETER(FH_SM3,ORA_FFI.C_INT);
ORA_FFI.REGISTER_PARAMETER(FH_SM3,ORA_FFI.C_INT);
/* Register the return type. */
ORA_FFI.REGISTER_RETURN(FH_SM3,ORA_FFI.C_INT);
/* Register the foreign function. */
FH_SWP := ORA_FFI.REGISTER_FUNCTION(USER_LIB_HANDLE,'SetWindowPos',ORA_FFI.C_STD);
/* Register all parameters of function . */
ORA_FFI.REGISTER_PARAMETER(FH_SWP,ORA_FFI.C_INT);
ORA_FFI.REGISTER_PARAMETER(FH_SWP,ORA_FFI.C_INT);
ORA_FFI.REGISTER_PARAMETER(FH_SWP,ORA_FFI.C_INT);
ORA_FFI.REGISTER_PARAMETER(FH_SWP,ORA_FFI.C_INT);
ORA_FFI.REGISTER_PARAMETER(FH_SWP,ORA_FFI.C_INT);
ORA_FFI.REGISTER_PARAMETER(FH_SWP,ORA_FFI.C_INT);
ORA_FFI.REGISTER_PARAMETER(FH_SWP,ORA_FFI.C_INT);
/* Register the return type. */
ORA_FFI.REGISTER_RETURN(FH_SWP,ORA_FFI.C_INT);
--DESTROYWINDOW(FHANDLE ORA_FFI.FUNCHANDLETYPE,HWND INTEGER) RETURN BOOLEAN;
/* Register the foreign function. */
FH_DW := ORA_FFI.REGISTER_FUNCTION(USER_LIB_HANDLE,'DestroyWindow',ORA_FFI.C_STD);
/* Register all parameters of function . */
ORA_FFI.REGISTER_PARAMETER(FH_DW,ORA_FFI.C_INT);
/* Register the return type. */
ORA_FFI.REGISTER_RETURN(FH_DW,ORA_FFI.C_INT);
/* Register the foreign function. */
FH_CPW := ORA_FFI.REGISTER_FUNCTION(AVCP_LIB_HANDLE,'capCreateCaptureWindowA',ORA_FFI.C_STD);
/* Register all parameters of function . */
ORA_FFI.REGISTER_PARAMETER(FH_CPW,ORA_FFI.C_CHAR);
ORA_FFI.REGISTER_PARAMETER(FH_CPW,ORA_FFI.C_LONG);
ORA_FFI.REGISTER_PARAMETER(FH_CPW,ORA_FFI.C_INT);
ORA_FFI.REGISTER_PARAMETER(FH_CPW,ORA_FFI.C_INT);
ORA_FFI.REGISTER_PARAMETER(FH_CPW,ORA_FFI.C_INT);
ORA_FFI.REGISTER_PARAMETER(FH_CPW,ORA_FFI.C_INT);
ORA_FFI.REGISTER_PARAMETER(FH_CPW,ORA_FFI.C_INT);
ORA_FFI.REGISTER_PARAMETER(FH_CPW,ORA_FFI.C_INT);
/* Register the return type. */
ORA_FFI.REGISTER_RETURN(FH_CPW,ORA_FFI.C_INT);
/* Register the foreign function. */
FH_GDD := ORA_FFI.REGISTER_FUNCTION(AVCP_LIB_HANDLE,'capGetDriverDescriptionA',ORA_FFI.C_STD);
/* Register all parameters of function . */
ORA_FFI.REGISTER_PARAMETER(FH_GDD,ORA_FFI.C_LONG);
ORA_FFI.REGISTER_PARAMETER(FH_GDD,ORA_FFI.C_CHAR);
ORA_FFI.REGISTER_PARAMETER(FH_GDD,ORA_FFI.C_INT);
ORA_FFI.REGISTER_PARAMETER(FH_GDD,ORA_FFI.C_CHAR);
ORA_FFI.REGISTER_PARAMETER(FH_GDD,ORA_FFI.C_INT);
/* Register the return type. */
ORA_FFI.REGISTER_RETURN(FH_CPW,ORA_FFI.C_INT);


-- END;
/* Package Body Mathlib */
END;


now i call preview window through 'when-button-pressed' code is as:

DECLARE
IDEVICE INT := 0;
IHEIGHT INT := GET_ITEM_PROPERTY('BLOCK3.IMAGE',HEIGHT);
IWIDTH INT := GET_ITEM_PROPERTY('BLOCK3.IMAGE',WIDTH);
BRETURN BOOLEAN;RS INT;
S CAM.CAPSTATUS;
IMAGE_ID INT;
BEGIN
IMAGE_ID := GET_ITEM_PROPERTY('IMAGE',WINDOW_HANDLE);
--Open Preview window in picturebox
CAM.HHWND := CAM.CAPCREATECAPTUREWINDOWA(TO_CHAR(IDEVICE),CAM.WS_VISIBLE ,0,0,1280,1024,IMAGE_ID,0);
--Connect to device
IF CAM.SENDMESSAGE(CAM.HHWND,CAM.WM_CAP_DRIVER_CONNECT,IDEVICE,0) THEN
--Set the preview scale
BRETURN := CAM.SENDMESSAGE(CAM.HHWND,CAM.WM_CAP_SET_SCALE,TRUE,0);
--Set the preview rate in milliseconds
BRETURN := CAM.SENDMESSAGE(CAM.HHWND,CAM.WM_CAP_SET_PREVIEWRATE,66,0);
--Start previewing the image from the camera
BRETURN := CAM.SENDMESSAGE(CAM.HHWND,CAM.WM_CAP_SET_PREVIEW,TRUE,0);
--Resize window to fit in picturebox
RS := CAM.SETWINDOWPOS(CAM.HHWND,CAM.HWND_BOTTOM,0,0,IWIDTH,IHEIGHT,CAM.SWP_NOMOVE);
ELSE
MESSAGE('ERROR CONNECTING TO DEVICE');
BRETURN := CAM.SENDMESSAGE(CAM.HHWND,CAM.WM_CAP_DRIVER_DISCONNECT,IDEVICE,0);
BRETURN := CAM.DESTROYWINDOW(CAM.HHWND);
END IF;
EXCEPTION
WHEN OTHERS THEN
FOR I IN 1..Tool_Err.Nerrors LOOP
message (Tool_Err.Message);PAUSE;
Tool_Err.Pop;
END LOOP;
END;

when i run form, i will get "FRM-40734:internal error:PL/SQL error occurred.".
i checked form through debugger,it gives me "PDE-PPU007" error on this function BEGIN CLAUSE execution.
FUNCTION CAPCREATECAPTUREWINDOWA(LPSZWINDOWNAME VARCHAR2,DWSTYLE INTEGER,X INTEGER,Y INTEGER,NWIDTH INTEGER,NHEIGHT INTEGER,HWNDPARENT INTEGER,NID INTEGER) RETURN PLS_INTEGER IS
BEGIN
RETURN (FF_CAPCREATECAPTUREWINDOWA(FH_CPW,LPSZWINDOWNAME,DWSTYLE,X,Y,NWIDTH,NHEIGHT,HWNDPARENT,NID));
END CAPCREATECAPTUREWINDOWA;


please help me it's very urgent and i m running out of time.i've googled myself around 15 days to work it out but can't succeed.so i posted here for taking help.