L
lfg1999
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
ClientInfo: TCLIENT_VIDEOINFO;
nn1: Integer;
begin
MP4_ClientSetNetPort(5050,6050);
MP4_ClientStartup(MYCOMMAND,self.Handle);
MP4_ClientSetShowMode(0,RGB(10,10,10));
ClientInfo.m_bRemoteChannel := 0;
ClientInfo.m_bSendMode := 0;
ClientInfo.m_nImgFormat := 0;
ClientInfo.m_sIPAddress := '192.168.0.84';
ClientInfo.m_sUserName := '123';
ClientInfo.m_sUserPassword := 'w';
ClientInfo.m_bUserCheck := 0;
ClientInfo.m_hShowVideo := Panel1.Handle;
MP4_ClientSetTTL(64);
try
nn1:=MP4_ClientStart(@ClientInfo,MyRealDataCallBack);
Edit1.Text := IntToStr(nn1);
except
On E: Exceptiondo
Memo1.Lines.Add(e.Message);
end;
end;
这段程序中 每运行到MP4_ClientStart时就报内存错误,请做过海康卡二次开发的朋友给指点一下,谢啦
var
ClientInfo: TCLIENT_VIDEOINFO;
nn1: Integer;
begin
MP4_ClientSetNetPort(5050,6050);
MP4_ClientStartup(MYCOMMAND,self.Handle);
MP4_ClientSetShowMode(0,RGB(10,10,10));
ClientInfo.m_bRemoteChannel := 0;
ClientInfo.m_bSendMode := 0;
ClientInfo.m_nImgFormat := 0;
ClientInfo.m_sIPAddress := '192.168.0.84';
ClientInfo.m_sUserName := '123';
ClientInfo.m_sUserPassword := 'w';
ClientInfo.m_bUserCheck := 0;
ClientInfo.m_hShowVideo := Panel1.Handle;
MP4_ClientSetTTL(64);
try
nn1:=MP4_ClientStart(@ClientInfo,MyRealDataCallBack);
Edit1.Text := IntToStr(nn1);
except
On E: Exceptiondo
Memo1.Lines.Add(e.Message);
end;
end;
这段程序中 每运行到MP4_ClientStart时就报内存错误,请做过海康卡二次开发的朋友给指点一下,谢啦