error on load Escapi.dll on BitzmaxNG (64 build)

Function SetupESCAPI ()

	esc = LoadLibraryA ("escapi.dll")

				If OpenCaptureDevice (1, scp1) = 0
					'Print "Failed to initialise capture device! 1"

Function SetupESCAPI ()

	esc = LoadLibraryA ("escapi.dll")
	
	If esc
		InitCOM					= GetProcAddress (esc, "setupESCAPI")

struct SimpleCapParams
{
  /* Target buffer. 
   * Must be at least mWidth * mHeight * sizeof(int) of size! 
   */
  int * mTargetBuf;
  /* Buffer width */
  int mWidth;
  /* Buffer height */
  int mHeight;
};


/* Sets up the ESCAPI DLL and the function pointers below. Call this first! */
/* Returns number of capture devices found (same as countCaptureDevices, below) */
int setupESCAPI();

/* return the number of capture devices found */
int countCaptureDevices();

/* initCapture tries to open the video capture device. 
 * Returns 0 on failure, 1 on success. 
 * Note: Capture parameter values must not change while capture device
 *       is in use (i.e. between initCapture and deinitCapture).
 *       Do *not* free the target buffer, or change its pointer!
 */
int initCapture(unsigned int deviceno, struct SimpleCapParams *aParams);

/* deinitCapture closes the video capture device. */
void deinitCapture(unsigned int deviceno);

/* doCapture requests video frame to be captured. */
void doCapture(unsigned int deviceno);

/* isCaptureDone returns 1 when the requested frame has been captured.*/
int isCaptureDone(unsigned int deviceno);

/* Get the user-friendly name of a capture device. */
void getCaptureDeviceName(unsigned int deviceno, char *namebuffer, int bufferlength);

/* Returns the ESCAPI DLL version. 0x200 for 2.0 and later (for legacy support)*/
int ESCAPIDLLVersion();

/* Returns the ESCAPI version. 0x300 for 3.0.
   When checking the version, accept higher versions too. */
int ESCAPIVersionProc();

/* 
  On properties -
  - Not all cameras support properties at all.
  - Not all properties can be set to auto.
  - Not all cameras support all properties.
  - Messing around with camera properties may lead to weird results, so YMMV.
*/

/* Gets value (0..1) of a camera property (see CAPTURE_PROPERTIES, above) */
float getCapturePropertyValueProc(unsigned int deviceno, int prop);
/* Gets whether the property is set to automatic (see CAPTURE_PROPERTIES, above) */
int getCapturePropertyAutoProc(unsigned int deviceno, int prop);
/* Set camera property to a value (0..1) and whether it should be set to auto. */
int setCapturePropertyProc(unsigned int deviceno, int prop, float value, int autoval);

/*
  All error situations in ESCAPI are considered catastrophic. If such should
  occur, the following functions can be used to check which line reported the
  error, and what the HRESULT of the error was. These may help figure out
  what the problem is.
*/

/* Return line number of error, or 0 if no catastrophic error has occurred. */
int getCaptureErrorLineProc(unsigned int deviceno);
/* Return HRESULT of the catastrophic error, or 0 if none. */
int getCaptureErrorCodeProc(unsigned int deviceno);

SuperStrict

Framework bah.escapi
Import brl.standardio
Import brl.pixmap
Import brl.glmax2d

Local escapi:TEscapi = New TEscapi.Create()

If Not escapi Print "Could not load escapi" ;End

Local deviceCount:Int = escapi.Count()
Print "Devices = " + deviceCount

If deviceCount = 0 Print "No devices found :-(" ;End

Local width:Int = 512
Local height:Int = 512

Local pix:TPixmap = CreatePixmap(width, height, PF_BGRA8888)

escapi.SetBuffer(pix.pixels)
escapi.SetWidth(width)
escapi.SetHeight(height)

Print "Opened device0 : " + escapi.DeviceName(0)

Graphics 1024, 512, 0

While Not KeyDown(KEY_ESCAPE)

Cls

escapi.Open(0) 
escapi.Capture(0)
Delay(500)
DrawPixmap pix, 0,0
escapi.Open(1) 
escapi.Capture(1)
Delay(500)
DrawPixmap pix,512,0

Flip

Wend

escapi.Close(0)