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
相关问答：
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
我的代码如下,怎么总提示连不成功:
type
GUID = record //申明调用RAS（创建VPN连接用）函数所需结构体
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......
如题：
我的程序 Create 的时候 创建了N 个线程；这N个线程不停的在 监听N个COM口的数据；当分析数据时，有些时候要弹出application.messagebox 对话框判断 是否继续 执行线程，还是挂起线程。当多个线程同时 ......
最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......
