?? unit1.~pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -