基本信息
源码名称:博士报警主机SDK调用
源码大小:1.11M
文件格式:.rar
开发语言:C/C++
更新时间:2020-10-14
友情提示:(无需注册或充值,赞助后即可获取资源下载链接)
嘿,亲!知识可是无价之宝呢,但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下,绝对物超所值哦!如有下载和支付问题,请联系我们QQ(微信同号):813200300
本次赞助数额为: 2 元×
微信扫码支付:2 元
×
请留下您的邮箱,我们将在2小时内将文件发到您的邮箱
源码介绍
调用博士报警主机SDK 开发
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "bs/BS7400Ctl.h"
#pragma comment(lib,"bs/BS7400Ctl_bcb.lib")
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
void * pObj = NULL;
void CALLBACK TRANDATAPROC_(LPVOID, LPSTR sRcvData, int iDataLen)
{
OutputDebugString(String(sRcvData).c_str());
Form1->Memo1->Lines->Add(String(sRcvData));
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//
this->Memo1->Clear();
pObj = New_Object();
ArrangeRcvAddress(pObj,"0.0.0.0|7700","0.0.0.0|xxx");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//
DWORD op = OpenReceiver(pObj,TRANDATAPROC_, NULL);
}
//---------------------------------------------------------------------------
调用博士报警主机SDK 开发
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "bs/BS7400Ctl.h"
#pragma comment(lib,"bs/BS7400Ctl_bcb.lib")
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
void * pObj = NULL;
void CALLBACK TRANDATAPROC_(LPVOID, LPSTR sRcvData, int iDataLen)
{
OutputDebugString(String(sRcvData).c_str());
Form1->Memo1->Lines->Add(String(sRcvData));
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//
this->Memo1->Clear();
pObj = New_Object();
ArrangeRcvAddress(pObj,"0.0.0.0|7700","0.0.0.0|xxx");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//
DWORD op = OpenReceiver(pObj,TRANDATAPROC_, NULL);
}
//---------------------------------------------------------------------------