videoexits.pas

电子监控的网络编程实例

unit VideoExits;
interface
uses windows;
TYPE
PFCALLBACK = function(iChanel:integer):integer;stdcall;//回调函数，用于通知调用系统发现车辆，由主系统做出相应处理
//初始化，分配内存，指定进行检测的模拟线圈数<MAX_VIDEO
function ve_Init(Func:PFCALLBACK;iNumVE:integer;dwSize:DWORD;dwMinTwoCapTime:DWORD; dwMaxCapTime:DWORD):integer;
stdcall;external 'matroxdll.dll';
//设置视频检测参数
function ve_SetExitsParams(iRectNum:integer=0;iChanel:integer=0; iLeft:integer=0; iTop:integer=0; iRight:integer=0;iBottom:integer=0;iGray:integer=50;iDif:integer=25):integer;
stdcall;external 'matroxdll.dll';
//是否现实模拟检测线圈,颜色
function ve_SetShowRect(bShowRect:bool=false;dwColor:DWORD=255):integer;
stdcall;external 'matroxdll.dll';
//释放资源
function ve_Free():integer;
stdcall;external 'matroxdll.dll';
//绘制图像
function ve_Draw(hImg:PBYTE;hDC:HDC;iLeft:integer;iTop:integer;iWidth:integer;iHeight:integer):integer;
stdcall;external 'matroxdll.dll';
//绘制虚拟线圈
function ve_ShowRect(hDC:HDC;iLeft:integer; iTop:integer; iWidth:integer; iHeight:integer):integer;
stdcall;external 'matroxdll.dll';
//检测车辆存在
function ve_CheckCar(pImage:PBYTE;dwCapTime:DWORD=100;iGray:integer=-1;iDif:integer=-1):integer;
stdcall;external 'matroxdll.dll';
//设置图像视频方式
function SetType(iBits:integer=3;iWidth:integer=768; iHeight:integer=576):integer;
stdcall;external 'matroxdll.dll';
implementation

end.
{
    汇掉函数定义和实现
function CBFunc(iChanel:integer):integer;stdcall;

function CBFunc(iChanel:integer):integer;
begin
  result:= iCbahnel;
  TForm1.Edit1.Text:=inttostr(result);
end;
}