本人使用一个摄像头，不是普通免驱的那种，开发包里有两个dll “TS300SDKD.dll” “TS300SDK.dll”，基本语法大概了解，该如何写具体的语句，请教各位

Private Declare Function my_CameraInit Lib "E:\others\vb\TS300SDK.dll" ()     ‘ 这一句不知道如何填写

Private Sub Command1_Click()

Camerainit      '不知如何写初始化

If (pCallbackFunction) Then

Else

End If


End Sub

以下是厂家摄像头开发的说明文档：
3. 图森SDK参考
3.1 SDK详细介绍
3.1.1 CameraInit
【目的】初始化视频设备

【语法】TS300API   TS_CAMERA_STATUS CameraInit(
DS_SNAP_PROC pCallbackFunction,

TSCCD205_RESOLUTION uiResolution,
 HWND hWndDisplay,
 HWND hReceive,);

【参数】

参数名称          描述
pCallbackFunction    回调函数
uiResolution    解析度索引
hWndDisplay    视频显示控件句柄
hReceive   

【返回值】

 调用成功返回STATUS_OK 否则返回错误代码。

【说明】

3.1.2 CameraUnInit

【目的】反初始化设备。

【语法】TS300API   TS_CAMERA_STATUS CameraUnInit(void);

【参数】 无

【返回值】调用成功返回STATUS_OK 否则返回错误代码。

【说明】必须在程序退出时调用,用于释放内存分配空间。

3.1.3 CameraPlay

【目的】 打开视频流。

【语法】TS300API   TS_CAMERA_STATUS CameraPlay(void);

【参数】 无

【返回值】 调用成功返回STATUS_OK 否则返回错误代码  

【说明】

3.1.4 CameraPause

【目的】暂停视频流。

【语法】TS300API   TS_CAMERA_STATUS CameraPause(void);

【参数】 无

【返回值】 调用成功返回STATUS_OK 否则返回错误代码。

【说明】
3.1.5 CameraStop

【目的】停止视频流。

【语法】TS300API   TS_CAMERA_STATUS CameraStop(void);

【参数】 无

【返回值】调用成功返回STATUS_OK 否则返回错误代码

【说明】

Private Declare Function my_CameraInit Lib "TS300SDK.dll" Alias "CameraInit" (ByVal pCallbackFunction As Long, ByVal uiResolution As Long, ByVal hWndDisplay As Long, ByVal hReceive As Long) As Long
Private Declare Function my_CameraUnInit Lib "TS300SDK.dll" Alias "CameraUnInit" () As Long
Private Declare Function my_CameraPlay Lib "TS300SDK.dll" Alias "CameraPlay" () As Long
Private Declare Function my_CameraPause Lib "TS300SDK.dll" Alias "CameraPause" () As Long
Private Declare Function my_CameraStop Lib "TS300SDK.dll" Alias "CameraStop" () As Long
TSCCD205_RESOLUTION 类型不清楚，用ui 定义。
TS300API 也不清楚，默认 long 吧。

多谢bczgvip ，请问初始化应该怎么写  ，本人对此一点概念都没有，是不是  if（  my_CameraInit(pCallbackFunction, uiResolution, hWndDisplay, hReceive)  ）  then  ’初始化成功

也是刚注册的啊 我也正想问呢

【返回值】

调用成功返回STATUS_OK 否则返回错误代码。

我把my_CameraInit定义为string  ，在form_load里调用 my_CameraInit，似乎参数不对，不知参数该如何填写，运行报错
------------------------------------------------------------------------------------------------------
Private Declare Function my_CameraInit Lib "E:\others\vb\TS300SDKD.dll" Alias "CameraInit" _
                                               (ByVal pCallbackFunction As String, _
                                               ByVal uiResolution As Long, _
                                               ByVal hWndDisplay As Long, _
                                               ByVal hReceive As Long) As String
------------------------------------------------------------------------------------------------------
Private Sub Form_Load()

Dim string1 As String

string1 = my_CameraInit(0, 1, 1, 1)   ‘ 报错

End Sub