delphi 基本海康硬盘录像机的二次开发,怎么读取实时视频

delphi 基本海康硬盘录像机的二次开发,如何读取实时视频?
最近做了一个地图项目,类似于GIS地理信息系统(但要简单些)
快结项目的时候,对方突然提出要把他们原有的监控项目也接入进来。

监控是用海康的硬盘录像机做的,现在的要求是:在地图上双击弹出一个FORM,播放相对应的监控头的实时视频即可。

现在卡在连接海康硬盘录像机,取视频上面。

想请教一个这个功能应该怎么做。去海康威视的网站上看了一下,有个播放库的SDK,但它是C的,有没有高人改成DELPHI的?
(只会用DELPHI)

有没有相关的资料,请大伙指教一下。我的邮箱 zjg_aynes@188.com

------解决方案--------------------
C转换成Delphi 应该不难啊,转换时候用的比较多是类型转换。
Delphi 与 C/C++ 数据类型对照表
Delphi 数据类型 C/C++ 
ShorInt 8位有符号整数 char 
Byte 8位无符号整数 BYTE,unsigned short 
SmallInt 16位有符号整数 short 
Word 16位无符号整数 unsigned short 
Integer,LongInt 32位有符号整数 int,long 
Cardinal,LongWord/DWORD 32位无符号整数 unsigned long 
Int64 64位有符号整数  _int64 
Single 4字节浮点数 float 
*Real48 6字节浮点数   
Double 8字节浮点数 double 
*Extended 10字节浮点数 long double 
Currency 64位货币类型   
TDate/TDateTime 8字节日期/时间   
Variant,OleVariant 16字节可变类型 VARIANT,^Variant,^OleVariant 
Char,AnsiChar 1字节字符 char 
WideChar 2字节字符 WCHAR 
*ShortString 短字符串   
AnsiString/String 长字符串 ^AnsiString 
WideString 宽字符串 ^WideString 
PChar,PAnsiChar NULL结束的字符串 char* 
PWideChar NULL结束的宽字符串 LPCWSTR 
Boolean,ByteBool 1字节布尔类型 任何1字节 
WordBool 2字节布尔类型 任何2字节 
BOOL,LongBool 4字节布尔类型 BOOL 
注:有*前缀的是向前兼容类型;有^前缀的是C++Builder特有类型。 

--------------------------------------------------------------------------------

C/C++ Delphi 
ABC TABC 
ACCEL TAccel 
ATOM TAtom 
BITMAP TBitMap 
BITMAPCOREHEADER TBitmapCoreHeader 
BITMAPCOREINFO TBitmapCoreInfo 
BITMAPFILEHEADER TBitmapFileHeader 
BITMAPINFO TBitmapInfo 
BITMAPINFOHEADER TBitmapInfoHeader 
BOOL Bool 
CBT_CREATEWND TCBT_CreateWnd 
CBTACTIVATESTRUCT TCBTActivateStruct 
CHAR Char 
CHAR* PChar 
CLIENTCREATESTRUCT TClientCreateStruct 
COLORREF TColorRef 
COMPAREITEMSTRUCT TCompareItemStruct 
COMSTAT TComStat 
CREATESTRUCT TCreateStruct 
CTLINFO TCtlInfo 
CTLSTYLE TCtlStyle 
CTLtype TCtltype 
DCB TDCB 
DDEAACK TDDEAck 
DDEADVISE TDDEAdvise 
DDEDATA TDDEData 
DDEPOKE TDDEPoke 
DEBUGHOOKINFO TDebugHookInfo 
DELETEITEMSTRUCT TDeleteItemStruct 
DEVMODE TDevMode 
DOUBLE Double 
DRAWITEMSTRUCT TDrawItemStruct 
DWORD LongInt 
ENUMLOGFONT TEnumLogFont 
EVENTMSG TEventMsg 
FARPROC TFarProc 
FIXED TFixed 
FLOAT Single 
GLYPHMETRICS TGlyphMetrics 
HANDLE THandle 
HANDLETABLE THandleTable 
HARDWAREHOOKSTRUCT THardwareHookStruct 
HELPWININFO THelpWinInfo 
INT Integer 
KERNINGPAIR TKerningPair 
LOGBRUSH TLogBrush 
LOGFONT TLogFont 
LOGPALETTE TLogPalette 
LOGPEN TLogPen 
LONG LongInt 
LONG DOUBLE Extended 
LONG INT LongInt 
LPSTR PChar 
LPWSTR PWideChar 
MAT2 TMat2 
MDICREATESTRUCT TMDICreateStruct 
MEASUREITEMSTRUCT TMeasureItemStruct 
MENUITEMTEMPLATE TMenuItemTemplate 
MENUITEMTEMPLATEHEADER TMenuItemTemplateHeader 
METAFILEPICT TMetaFilePict 
METAHEADER TMetaHeader 
METARECORD TMetaRecord 
MINMAXINFO TMinMaxInfo 
MOUSEHOOKSTRUCT TMouseHookStruct 
MSG TMsg 
MULTIKEYHELP TMultiKeyHelp 
NCCALCSIZE_PARAMS TNCCalcSize_Params 
NEWTEXTMETRIC TNewTextMetric 
OFSTRUCT TOFStruct 
OUTLINETEXTMETRIC TOutlineTextMetric 
PAINTSTRUCT TPaintStruct 
PALETTEENTRY TPaletteEntry 
PANOSE TPanose 
PATTERN TPattern 
POINTFX TPointFX 
PSTR PChar 
PWSTR PWideChar 
RASTERIZER_STATUS TRasterizer_Status 
RGBQUAD TRGBQuad 
RGBTRIPLE TRGBTriple 
SEGINFO TSegInfo 
SHORT SmallInt 
SHORT INT SmallInt 
SIZE TSize 
TEXTMETRIC TTextMetric 
TPOINT TPoint