unit1.~pas

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
//type
 //   TConncet_Mode ={UDPMODE=0,TCPMODE=1,MULTIMODE=2,DIALING=3,AUDIODETACH=4};

type
     TCLIENT_VIDEOINFO = record
     m_bRemoteChannel:byte;
     m_bSendMode:byte;
     m_nImgFormat:byte;
     m_sIPAddress:pchar;
     m_sUserName:pchar;
     m_sUserPassword:pchar;
     m_bUserCheck:boolean;
     m_hShowVideo:HWND;
     end;
 type
  pCLIENT_VIDEOINFO = ^TCLIENT_VIDEOINFO   ;

 type
 ReadDataCallBack=procedure (nport:integer;pPacketBuffer:pchar;nPacketSize:integer);

 type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public


    { Public declarations }
  end;

var
  Form1: TForm1;

function MP4_ClientStart( pCLIENT_VIDEOINFO:pCLIENT_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';

CONST WM_MYCOMMAND=WM_USER+32;
var
   hwd:HWND;
   aa5:TCLIENT_VIDEOINFO;
   rdcb:ReadDataCallBack;
   lHandle1:integer;
procedure TForm1.Button1Click(Sender: TObject);

begin
    hwd:=Form1.Handle;
    MP4_ClientSetNetPort(5050,6050);
    MP4_ClientStartup(WM_MYCOMMAND,hwd);
    MP4_ClientSetShowMode(0,0);
    aa5.m_bRemoteChannel := 0;
    aa5.m_bSendMode:=0;
    aa5.m_nImgFormat :=0;
    aa5.m_sIPAddress :='192.0.0.40';
    aa5.m_sUserName :='123';
    aa5.m_sUserPassword :='w';
    aa5.m_bUserCheck :=TRUE;
    aa5.m_hShowVideo :=Edit1.Handle;
    lHandle1:=MP4_ClientStart(@aa5,rdcb);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
     MP4_ClientStop(lHandle1);
end;

end.