海灣DH-GST-COM電氣火災(zāi)監(jiān)控設(shè)備集成應(yīng)用編程接口

目    錄

一、 簡介

1.1概述

1.2 所適用的操作系統(tǒng)

1.3運行環(huán)境要求

二、 安裝過程

2.1系統(tǒng)的安裝步驟

2.2安裝正確性

2.2.1安裝后文件清單

2.2.2  安裝后程序菜單

三、 使用說明

3.1  注冊控件

3.2  接口方法

3.2.1打開GstCom

3.2.2電氣火災(zāi)監(jiān)控設(shè)備復(fù)位

3.2.3電氣火災(zāi)監(jiān)控設(shè)備消音

3.2.4啟動電氣火災(zāi)監(jiān)控設(shè)備巡檢命令

3.2.5關(guān)閉GstCom

3.2.6返回狀態(tài)參數(shù)說明

3.2.7 查詢實時電流值

3.2.7 查詢實時溫度值

3.3接口事件

四、 在編程環(huán)境中應(yīng)用

4.1  VB編程環(huán)境中GstCom 的創(chuàng)建

4.2  VC編程環(huán)境中GstCom 的創(chuàng)建

4.3  C#編程環(huán)境中GstCom 的創(chuàng)建

4.4  Delphi編程環(huán)境中GstCom 的創(chuàng)建

一、 簡介

1.1概述

海灣GSTCOM天津火災(zāi)報警控制器集成應(yīng)用軟件接口（以下簡稱接口）是用于第三方進行系統(tǒng)集成的專用編程接口，它可與GST-DH9000電氣火災(zāi)監(jiān)控設(shè)備（以下簡稱電氣火災(zāi)監(jiān)控設(shè)備）進行通訊。本接口為方便用戶進行二次開發(fā)，附帶了VB、VC、C#、Delphi編程樣例程序，供用戶參考。

1.2 所適用的操作系統(tǒng)

Windows XP、Windows 7、Windows 10

1.3運行環(huán)境要求

軟件：本控件使用前需要對GstCom.Dll進行注冊，安裝程序已經(jīng)自動將此控件注冊。

硬件：需要一塊與電氣火災(zāi)監(jiān)控設(shè)備相適應(yīng)的標準RS232通訊接口板，標準RS232通訊接口板與計算機用串口線連接。

二、 安裝過程

2.1系統(tǒng)的安裝步驟

將安裝文件拷貝到任意目錄下，運行GstLDCom_Setup.exe 即可。

2.2安裝正確性

2.2.1安裝后文件清單

安裝完成后查看用戶選擇的安裝目錄下是否有如圖1文件。

圖1

目錄下的GstCom.Dll是GstCom消防通訊接口控件， GstComVbSample.exe是VB應(yīng)用程序，GstLDCom.doc文件為用戶手冊，Include目錄下為GstCom消防通訊接口控件在VC編程應(yīng)用環(huán)境下所需的頭文件，Samples目錄下為示例程序的源碼。

2.2.2  安裝后程序菜單

安裝完成后，開始菜單欄“程序”子菜單出現(xiàn)GstCom-> GstCom Test Sample。啟動系統(tǒng)能正常運行。

三、 使用說明

3.1  注冊控件

用戶 次使用接口時，若該控件未注冊，將彈出未注冊對話框。若用戶希望注冊該控件，請將注冊對話框中的用戶信息通過電話、Email、傳真等方式傳遞給我公司，我們將生成注冊碼傳給用戶，填入正確的注冊碼后，控件注冊成功。

3.2  接口方法

3.2.1打開GstCom 

OpenGstCom m_nCom, m_nControllerID, m_nProtocol, Resevered,lResult;

m_nCom       串口標識變量的index；

m_nControllerID 電氣火災(zāi)監(jiān)控設(shè)備地址；

m_nProtocol     協(xié)議變量(即：電氣火災(zāi)監(jiān)控設(shè)備類型，數(shù)值如下)；

   200 表示GstDH9000中文通訊板

Resevered       保留參數(shù)(0)；

LResult         返回狀態(tài)（參見返回狀態(tài)參數(shù)說明）；

3.2.2電氣火災(zāi)監(jiān)控設(shè)備復(fù)位

ResetController m_nControllerID, lResult;

m_nControllerID   電氣火災(zāi)監(jiān)控設(shè)備地址；

lResult           返回狀態(tài)（參見返回狀態(tài)參數(shù)說明）；

3.2.3電氣火災(zāi)監(jiān)控設(shè)備消音

MuteController m_nControllerID, lResult;

m_nControllerID   電氣火災(zāi)監(jiān)控設(shè)備地址；

lResult           返回狀態(tài)（參見返回狀態(tài)參數(shù)說明）；

3.2.4啟動電氣火災(zāi)監(jiān)控設(shè)備巡檢命令

StartQuery m_nControllerID, nType,Reserved,lResult;

m_nControllerID  電氣火災(zāi)監(jiān)控設(shè)備地址；

nType           啟動類型；（0 停止查詢，2 啟動查詢）

Reserved         保留參數(shù)（0）；

LResult          返回狀態(tài)（參見返回狀態(tài)參數(shù)說明）；

3.2.5關(guān)閉GstCom

CloseGstCom m_nControllerID,lResult;

m_nControllerID  電氣火災(zāi)監(jiān)控設(shè)備地址；

LResult          返回狀態(tài)（參見返回狀態(tài)參數(shù)說明）；

3.2.6返回狀態(tài)參數(shù)說明

返回狀態(tài)參數(shù)說明如表1.

表1

3.2.7 查詢實時電流值

UpLDDeviceCurrent nControllerID, nLoop, nAddress, lCurrent, pResult

m_nControllerID   電氣火災(zāi)監(jiān)控設(shè)備地址；

nLoop            回路號；

nAddress         一次碼；

lCurrent          返回電流值；

lResult           返回狀態(tài)（參見返回狀態(tài)參數(shù)說明）；

3.2.7 查詢實時溫度值

UpLDDeviceTemperature ControllerID, nLoop, nAddress, lCurrent, pResult

m_nControllerID   電氣火災(zāi)監(jiān)控設(shè)備地址；

nLoop            回路號；

nAddress         一次碼；

lCurrent          返回溫度值；

lResult           返回狀態(tài)（參見返回狀態(tài)參數(shù)說明）；

3.3接口事件

GstCom_AlarmEvent(ByVal nControllerID As Long, ByVal nEventType As Long, ByVal

                   bstrDeviceID As String, ByVal Value As Long)

nControllerID     電氣火災(zāi)監(jiān)控設(shè)備地址；

nEventType       事件的類型；

bstrDeviceID      相關(guān)設(shè)備編碼（設(shè)備二次碼）；

Value            對應(yīng)事件類型的相關(guān)數(shù)據(jù)；

  參數(shù)詳細描述如表2。

表2

四、 在編程環(huán)境中應(yīng)用

4.1  VB編程環(huán)境中GstCom 的創(chuàng)建

l 在VB編程環(huán)境中引用GstCom控件；

l 在應(yīng)用程序頭部定義GstCom，如：Public WithEvents MyGstCom As GstComCtl；

l 在程序初始化階段，創(chuàng)建GstCom對象，如：Set MyGstCom = New GstComCtl。

4.2  VC編程環(huán)境中GstCom 的創(chuàng)建

l 在應(yīng)用程序的頭文件中加入如下文件

    #include "GstCom.h"

#include "GstComDefines.h"

#include "GstComEventSink.h"

l 在應(yīng)用程序的代碼文件中加入如下文件

#include "GstCom_i.c"

l 在應(yīng)用程序中定義GstCom的引用及相關(guān)變量，

    IGstComCtl  *m_IGstComCtl;

    CGstComEventSink* m_pGstComEventSink;

    IUnknown* m_pControlUnk;

l 在應(yīng)用程序中創(chuàng)建接口實例

HRESULT   hr;

hr = CoInitialize(0);

hr = CoCreateInstance( CLSID_GstComCtl , NULL, CLSCTX_INPROC_SERVER,

IID_IGstComCtl, (void**) &m_IGstComCtl);

if (!SUCCEEDED(hr))

{

AfxMessageBox("CoCreateInstance Failed.");

return FALSE;  

}

m_IGstComCtl->QueryInterface(IID_IGstComCtl, (void**)&m_pControlUnk);

m_pGstComEventSink = new CGstComEventSink();

if (m_pGstComEventSink)

    hr = m_pGstComEventSink->DispEventAdvise(m_pControlUnk);

else

    AfxMessageBox("Event Creater Failed.");

執(zhí)行成功后應(yīng)用程序就會得到GstCom的引用m_IGstComCtl。同時用戶將報警事件處理代碼添加到GstComEventSink.h文件的“用戶代碼”處

l 應(yīng)用程序退出，斷開連接釋放資源：

m_pIRayRtdb->Release(); //一定要釋放，否則退出時，會有內(nèi)存泄露

m_pIUnknown->Release(); //一定要釋放，否則退出時，會有內(nèi)存泄露

if(m_pRtdbEventSink)

delete m_pRtdbEventSink;

CoUninitialize();

    if (m_pGstComEventSink)

{

        m_pGstComEventSink->DispEventUnadvise(m_pControlUnk);//斷開事件

        m_pControlUnk->Release(); //釋放查詢指針

    delete m_pGstComEventSink;//刪除事件接收對象

}

if (m_IGstComCtl)

    m_IGstComCtl->Release();

4.3  C#編程環(huán)境中GstCom 的創(chuàng)建

l 在C#的“解決方案資源管理器中”引用GstCom.dll控件，在“引用”中可得到GSTCOMLIB庫。

l 在應(yīng)用程序頭部定義GstCom，即：using GSTCOMLIB；

l 在程序初始化階段，創(chuàng)建GstComCtl對象，即：

GstComCtl myGstComCtl=new GstComCtl（）;

    myGstComCtl.OpenGstCom(m_nCom, m_nControllerID, m_nProtocol, 100, out  hResult);

用于打開COM接口，在調(diào)用方法的時候傳進參數(shù)的類型必須和要求的一致。

l 在應(yīng)用程序中創(chuàng)建事件響應(yīng)

處理COM 接口的事件時需要引入下列代碼：

gstComCtl.AlarmEvent +=new

_IGstComCtlEvents_AlarmEventEventHandler(gstComCtl_AlarmEvent);

創(chuàng)建時間處理方法gstComCtl_AlarmEvent，如：

private void gstComCtl_AlarmEvent(byte nCom, int nControllerID, int nEventType, string bstrDeviceID, int Value)

        {

             //用戶代碼

      }

4.4  Delphi編程環(huán)境中GstCom 的創(chuàng)建

l 在Delphi的引用GstCom.dll控件，得到GStCOMLib_TLB庫。即：注冊GstCom.dll—>打開Delphi7—>component—>Impot ActiveX Contrl—>選擇GstCom1.0 Type Library—>createUnit。得到GStCOMLib_TLB；

l 在應(yīng)用程序頭部使用GStCOMLib_TLB、，即：uses GStCOMLib_TLB，ComObj；

l 在程序初始化階段，創(chuàng)建GstComCtl對象，即：

var

GstComCtl : IGstComCtl;

GstComCtl:=CreateComObject(CLASS_GstComCtl) as IGstComCtl;