devwdm_api.bas

vb编写机器人遥控程序

Attribute VB_Name = "devwdm_api"
Public Const AnalogVideo_None = &H0
Public Const AnalogVideo_NTSC_M = &H1
Public Const AnalogVideo_PAL_B = &H10
Public Const AnalogVideo_PAL_D = &H20
Public Const AnalogVideo_SECAM_D = &H2000
Public m_CardID As Long
Public m_Width As Integer
Public m_Height As Integer
Public m_disString As String
Public m_disDate As String
Public m_DateX As Integer
Public m_DateY As Integer
Public m_StrX As Integer
Public m_StrY As Integer

Type BITMAPFILEHEADER
  bfType(0 To 1) As Byte
  bfSize As Long
  bfReserved1 As Integer
  bfReserved2 As Integer
  bfOffBits As Long
End Type

Type BITMAPINFOHEADER
  biSize As Long
  biWidth As Long
  biHeight As Long
  biPlanes As Integer
  biBitCount As Integer
  biCompression As Long
  biSizeImage As Long
  biXPelsPerMeter As Long
  biYPelsPerMeter As Long
  biClrUsed As Long
  biClrImportant As Long
End Type

Type RGBQUAD
  rgbBlue As Byte
  rgbGreen As Byte
  rgbRed As Byte
  rgbReserved As Byte
End Type

Type BITMAPINFO
  bmiHeader As BITMAPINFOHEADER
  bmiColors(0 To 255) As RGBQUAD
End Type

'RGB数据格式
Public Type RGBTRIPLE
    rgbtBlue As Byte            '蓝色分量
    rgbtGreen As Byte           '绿色分量
    rgbtRed As Byte             '红色分量
End Type
Public isDataCopy As Boolean
Public m_datapath As String
Public m_isv As Boolean
Public m_ish As Boolean
Public Declare Function devwdm_InitCard Lib "devwdm.dll" (ByVal nID As Long, ByVal hwnd As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Public Declare Function devwdm_CloseCard Lib "devwdm.dll" (ByVal nID As Long) As Long
Public Declare Function devwdm_StartCaptureAVI Lib "devwdm.dll" (ByVal nID As Long, ByVal strFileName As String, ByVal fbAudio As Long) As Long
Public Declare Function devwdm_StartCaptureMp4 Lib "devwdm.dll" (ByVal nID As Long, ByVal strFileName As String) As Long
Public Declare Function devwdm_StopCaptureAVI Lib "devwdm.dll" (ByVal nID As Long) As Long
Public Declare Function devwdm_stopCaptureMp4 Lib "devwdm.dll" (ByVal nID As Long) As Long
Public Declare Function devwdm_SetVideoStandard Lib "devwdm.dll" (ByVal nID As Long, ByVal VideoStandard As Long) As Long
Public Declare Function devwdm_SaveBmpFile Lib "devwdm.dll" (ByVal nID As Long, ByVal strFileName As String) As Long


Public Declare Function devwdm_GetVideoPinCounts Lib "devwdm.dll" (ByVal nID As Long, ByRef OuputPins As Long, ByRef InputPins As Long) As Long
Public Declare Function devwdm_RouteOutPin Lib "devwdm.dll" (ByVal nID As Long, ByVal OuputPins As Long) As Long

Public Declare Function devwdm_SetBrightNess Lib "devwdm.dll" (ByVal nID As Long, ByVal bright As Long) As Long
Public Declare Function devwdm_SetContrast Lib "devwdm.dll" (ByVal nID As Long, ByVal contrast As Long) As Long
Public Declare Function devwdm_SetSaturation Lib "devwdm.dll" (ByVal nID As Long, ByVal satu As Long) As Long
Public Declare Function devwdm_SetHue Lib "devwdm.dll" (ByVal nID As Long, ByVal hue As Long) As Long

Public Declare Function devwdm_GetBrightNess Lib "devwdm.dll" (ByVal nID As Long, ByRef bright As Long) As Long
Public Declare Function devwdm_GetContrast Lib "devwdm.dll" (ByVal nID As Long, ByRef contrast As Long) As Long
Public Declare Function devwdm_GetSaturation Lib "devwdm.dll" (ByVal nID As Long, ByRef satu As Long) As Long
Public Declare Function devwdm_GetHue Lib "devwdm.dll" (ByVal nID As Long, ByRef hue As Long) As Long


Public Declare Function devwdm_StartVideoPreview Lib "devwdm.dll" (ByVal nID As Long) As Long
Public Declare Function devwdm_SetDisplayPos Lib "devwdm.dll" (ByVal nID As Long, ByVal left As Long, ByVal top As Long, ByVal right As Long, ByVal bottom As Long) As Long

Public Declare Function devwdm_SetFlip Lib "devwdm.dll" (ByVal nID As Long, ByRef dwMirror As Long, ByVal fbGet As Long) As Long
Public Declare Function devwdm_SetMirror Lib "devwdm.dll" (ByVal nID As Long, ByRef dwFlip As Long, ByVal fbGet As Long) As Long

Public Declare Function devwdm_PreviewResume Lib "devwdm.dll" (ByVal nID As Long) As Long
Public Declare Function devwdm_PreviewPause Lib "devwdm.dll" (ByVal nID As Long) As Long
Public Declare Function devwdm_SaveJPGFile Lib "devwdm.dll" (ByVal nID As Long, ByVal strFileName As String) As Long
Public Declare Function devwdm_GetImageBuffer Lib "devwdm.dll" (ByRef pBuffer As Byte) As Long
Public Declare Function devwdm_GetBmpInfo Lib "devwdm.dll" (ByRef pBitHead As Any) As Long