delphi翻译成bcb
g_bMove := False;
procedure MyPrcCbMotionDetect(lnCardID : Integer; bMove : Integer; Reserved : Integer);stdcall;
begin
If Not g_bMove Then
begin
g_bMove := True;
ShowMessage('动态检测成功,抓拍到: ' + g_strPicturePath + 'motion.bmp');
formMain.SDK30001.SaveImageToBmp(g_strPicturePath + 'motion.bmp', 1, False)
end
end;
procedure TformMain.btnStartMDClick(Sender: TObject);
var
nDetectWidth : Integer;
nDetectHeight : Integer;
nDetectBlocks : Integer;
pAreaMap : WideString;
begin
nDetectWidth := g_nCapWidth div 16;
nDetectHeight := g_nCapHeight div 16;
nDetectBlocks := nDetectWidth * nDetectHeight;
pAreaMap := StringOfChar(WideChar(48), nDetectBlocks);
SDK30001.EnableMotionDetect(pAreaMap, nDetectBlocks, 10, Integer(Addr(MyPrcCbMotionDetect)));
end;
主要是最后三行不知道怎么实现。
C/C++ code:
void __fastcall TformMain::btnStartMDClick( TObject *Sender)
{
int nDe
相关问答：
我的程序中有一段更新某一条记录的语句：
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.text的值已经取得;
...
...
...
adoQuery1.sql.add('update 计划清单表 set 计划日 ......
请问Delphi有树形控件吗？
怎样使用？
Ttreeview
treeview.items.addchild(nil(上级节点),'案发时发'(text));
raize 控件包里面有，csdn有下载的
查帮助TTreeView和TNode两个类
TTreeView ......
delphi 手动装载驱动文件提示：
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
是不是这个驱动必需要用INF来安装。。用自带的INF来装是正常的。用手动装载就提示如上� ......
在一个网页上有两个submit 按钮。。。。一个是搜索的。一个是发帖的。。。如果直接
o :=WebBrowser1.oleobject.document.all.item('submit',0);
......
