Option Explicit
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'API
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'视频卡操作API
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'抓取图像格式
Public Enum ComPressMethodDef
MPEG1
JPEG
BMP
End Enum'抓取图像大小
Public Enum ResolutionDef
FULL '704*576
SIF '325*288
QSIF '176*144
End Enum'抓取格式
Public Type SNAPPARAM
Compress As ComPressMethodDef
Resolution As ResolutionDef
End Type'初始化视频卡
Public Declare Function InitCard Lib "MpgCard" () As Boolean
'连接视频卡并且显示
Public Declare Function Display Lib "MpgCard" (ByVal Master As Long, ByVal Left As Integer, ByVal Top As Integer, _
ByVal Right As Integer, ByVal Buttom As Integer) As Boolean
'断开
Public Declare Sub DisConnect Lib "MpgCard" ()
'释放视频卡所占用的资源
Public Declare Function ExitCard Lib "MpgCard" () As Boolean
'冻结视频
Public Declare Sub Freeze Lib "MpgCard" ()
'解除冻结视频
Public Declare Function UnFreeze Lib "MpgCard" () As Boolean
'设置亮度
Public Declare Function SetBrightness Lib "MpgCard" (ByVal value As Integer) As Boolean
'返回亮度
Public Declare Function GetBrightness Lib "MpgCard" () As Integer
'设置对比度
Public Declare Function SetContrast Lib "MpgCard" (ByVal value As Integer) As Boolean
'返回对比度
Public Declare Function GetContrast Lib "MpgCard" () As Integer
'设置灰度
Public Declare Function SetHue Lib "MpgCard" (ByVal value As Integer) As Boolean
'返回灰度
Public Declare Function GetHue Lib "MpgCard" () As Integer
'设置饱和度
Public Declare Function SetSaturation Lib "MpgCard" (ByVal value As Integer) As Boolean
'返回饱和度
Public Declare Function GetSaturation Lib "MpgCard" () As Integer
'抓取图像
Public Declare Function SnapPicture Lib "MpgCard" (ByVal SnapName As String, m_SnapParam As SNAPPARAM) As Boolean
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'API
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'视频卡操作API
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'抓取图像格式
Public Enum ComPressMethodDef
MPEG1
JPEG
BMP
End Enum'抓取图像大小
Public Enum ResolutionDef
FULL '704*576
SIF '325*288
QSIF '176*144
End Enum'抓取格式
Public Type SNAPPARAM
Compress As ComPressMethodDef
Resolution As ResolutionDef
End Type'初始化视频卡
Public Declare Function InitCard Lib "MpgCard" () As Boolean
'连接视频卡并且显示
Public Declare Function Display Lib "MpgCard" (ByVal Master As Long, ByVal Left As Integer, ByVal Top As Integer, _
ByVal Right As Integer, ByVal Buttom As Integer) As Boolean
'断开
Public Declare Sub DisConnect Lib "MpgCard" ()
'释放视频卡所占用的资源
Public Declare Function ExitCard Lib "MpgCard" () As Boolean
'冻结视频
Public Declare Sub Freeze Lib "MpgCard" ()
'解除冻结视频
Public Declare Function UnFreeze Lib "MpgCard" () As Boolean
'设置亮度
Public Declare Function SetBrightness Lib "MpgCard" (ByVal value As Integer) As Boolean
'返回亮度
Public Declare Function GetBrightness Lib "MpgCard" () As Integer
'设置对比度
Public Declare Function SetContrast Lib "MpgCard" (ByVal value As Integer) As Boolean
'返回对比度
Public Declare Function GetContrast Lib "MpgCard" () As Integer
'设置灰度
Public Declare Function SetHue Lib "MpgCard" (ByVal value As Integer) As Boolean
'返回灰度
Public Declare Function GetHue Lib "MpgCard" () As Integer
'设置饱和度
Public Declare Function SetSaturation Lib "MpgCard" (ByVal value As Integer) As Boolean
'返回饱和度
Public Declare Function GetSaturation Lib "MpgCard" () As Integer
'抓取图像
Public Declare Function SnapPicture Lib "MpgCard" (ByVal SnapName As String, m_SnapParam As SNAPPARAM) As Boolean
' (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)
' and select Microsoft Common Dialog control)
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Const GENERIC_WRITE = &H40000000
Private Const OPEN_EXISTING = 3
Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function SetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long
Private Declare Function SystemTimeToFileTime Lib "kernel32" (lpSystemTime As SYSTEMTIME, lpFileTime As FILETIME) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function LocalFileTimeToFileTime Lib "kernel32" (lpLocalFileTime As FILETIME, lpFileTime As FILETIME) As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'[email protected]
Dim m_Date As Date, lngHandle As Long
Dim udtFileTime As FILETIME
Dim udtLocalTime As FILETIME
Dim udtSystemTime As SYSTEMTIME
m_Date = Format(Now, "DD-MM-YY") 'Set the dialog's title
CDBox.DialogTitle = "Choose a file ..."
'Set the dialog's filter
CDBox.Filter = "All Files (*.*)|*.*"
'Show the 'Open File'-dialog
CDBox.ShowOpen udtSystemTime.wYear = Year(m_Date)
udtSystemTime.wMonth = Month(m_Date)
udtSystemTime.wDay = Day(m_Date)
udtSystemTime.wDayOfWeek = WeekDay(m_Date) - 1
udtSystemTime.wHour = Hour(m_Date)
udtSystemTime.wSecond = Second(m_Date)
udtSystemTime.wMilliseconds = 0 ' convert system time to local time
SystemTimeToFileTime udtSystemTime, udtLocalTime
' convert local time to GMT
LocalFileTimeToFileTime udtLocalTime, udtFileTime
' open the file to get the filehandle
lngHandle = CreateFile(CDBox.Filename, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)
' change date/time property of the file
SetFileTime lngHandle, udtFileTime, udtFileTime, udtFileTime
' close the handle
CloseHandle lngHandle
MsgBox "The date of the file '" + CDBox.Filename + "' has been changed to" + Str$(m_Date), vbInformation + vbOKOnly, App.Title
End Sub