unit1.~~pas

视频应用400XHDelphi环境client端 产品级应用

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
    TConncet_Mode ={UDPMODE=0,TCPMODE=1,MULTIMODE=2,DIALING=3,AUDIODETACH=4};
   typedef struct{
	BYTE    m_bRemoteChannel;
	BYTE    m_bSendMode;
	BYTE    m_nImgFormat;  // =0 cif ; = 1 qcif
	char    *m_sIPAddress;
	char    *m_sUserName;
	char    *m_sUserPassword;
	BOOL    m_bUserCheck;
	HWND    m_hShowVideo;
}CLIENT_VIDEOINFO, *PCLIENT_VIDEOINFO;

type
   CLIENT_VIDEOINFO = packed record
     m_bRemoteChannel:byte;
     m_bSendMode:byte;
     m_nImgFormat:byte;
     m_sIPAddress:^char;
     m_sUserName:^char;
     m_sUserPassword:^char;
     m_bUserCheck:boolean;
     m_hShowVideo:HWND;
     end;
 type

 ReadDataCallBack=procedure (nport:integer;pPacketBuffer:^char;nPacketSize:integer);


type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public


    { Public declarations }
  end;

var
  Form1: TForm1;
function MP4_ClientStart( pCLIENT_VIDEOINFO:^CLIENT_VIDEOINFO; pReadDataCallBack:ReadDataCallBack);integer;stdcall;
function MP4_ClientStop(StockHandle:integer); boolean;stdcall;
function MP4_ClientStartup (nMessage:integer;hWnd:HWND); boolean;stdcall;
function MP4_ClientSetNetPort (dServerPort:integer;dClientPort:integer); boolean;stdcall;
function MP4_ClientSetShowMode(dShowType:integer;colorKey:COLORREF); boolean;stdcall;
function MP4_ClientSetBufferNum(StockHandle:integer;wBufNum:integer); boolean;stdcall;
function MP4_ClientSetPlayDelay(StockHandle:integer;DelayLen:integer); boolean;stdcall;
implementation

{$R *.dfm}

function MP4_ClientStart;external;'hikclient.dll' name 'MP4_ClientStart';
function MP4_ClientStop;external;'hikclient.dll' name 'MP4_ClientStop';
function MP4_ClientStartup;external;'hikclient.dll' name 'MP4_ClientStartup';
function MP4_ClientSetNetPort;external;'hikclient.dll' name 'MP4_ClientSetNetPort';
function MP4_ClientSetShowMode;external;'hikclient.dll' name 'MP4_ClientSetShowMode';
function MP4_ClientSetBufferNum;external;'hikclient.dll' name 'MP4_ClientSetBufferNum';
function MP4_ClientSetPlayDelay;external;'hikclient.dll' name 'MP4_ClientSetPlayDelay';
end.