海灣DH-GST-COM電氣火災監控設備集成應用編程接口

目    錄

一、 簡介

1.1概述

1.2 所適用的操作系統

1.3運行環境要求

二、 安裝過程

2.1系統的安裝步驟

2.2安裝正確性

2.2.1安裝后文件清單

2.2.2  安裝后程序菜單

三、 使用說明

3.1  注冊控件

3.2  接口方法

3.2.1打開GstCom

3.2.2電氣火災監控設備復位

3.2.3電氣火災監控設備消音

3.2.4啟動電氣火災監控設備巡檢命令

3.2.5關閉GstCom

3.2.6返回狀態參數說明

3.2.7 查詢實時電流值

3.2.7 查詢實時溫度值

3.3接口事件

四、 在編程環境中應用

4.1  VB編程環境中GstCom 的創建

4.2  VC編程環境中GstCom 的創建

4.3  C#編程環境中GstCom 的創建

4.4  Delphi編程環境中GstCom 的創建

一、 簡介

1.1概述

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

1.2 所適用的操作系統

Windows XP、Windows 7、Windows 10

1.3運行環境要求

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

硬件：需要一塊與電氣火災監控設備相適應的標準RS232通訊接口板，標準RS232通訊接口板與計算機用串口線連接。

二、 安裝過程

2.1系統的安裝步驟

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

2.2安裝正確性

2.2.1安裝后文件清單

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

圖1

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

2.2.2  安裝后程序菜單

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

三、 使用說明

3.1  注冊控件

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

3.2  接口方法

3.2.1打開GstCom 

OpenGstCom m_nCom, m_nControllerID, m_nProtocol, Resevered,lResult;

m_nCom       串口標識變量的index；

m_nControllerID 電氣火災監控設備地址；

m_nProtocol     協議變量(即：電氣火災監控設備類型，數值如下)；

   200 表示GstDH9000中文通訊板

Resevered       保留參數(0)；

LResult         返回狀態（參見返回狀態參數說明）；

3.2.2電氣火災監控設備復位

ResetController m_nControllerID, lResult;

m_nControllerID   電氣火災監控設備地址；

lResult           返回狀態（參見返回狀態參數說明）；

3.2.3電氣火災監控設備消音

MuteController m_nControllerID, lResult;

m_nControllerID   電氣火災監控設備地址；

lResult           返回狀態（參見返回狀態參數說明）；

3.2.4啟動電氣火災監控設備巡檢命令

StartQuery m_nControllerID, nType,Reserved,lResult;

m_nControllerID  電氣火災監控設備地址；

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

Reserved         保留參數（0）；

LResult          返回狀態（參見返回狀態參數說明）；

3.2.5關閉GstCom

CloseGstCom m_nControllerID,lResult;

m_nControllerID  電氣火災監控設備地址；

LResult          返回狀態（參見返回狀態參數說明）；

3.2.6返回狀態參數說明

返回狀態參數說明如表1.

表1

3.2.7 查詢實時電流值

UpLDDeviceCurrent nControllerID, nLoop, nAddress, lCurrent, pResult

m_nControllerID   電氣火災監控設備地址；

nLoop            回路號；

nAddress         一次碼；

lCurrent          返回電流值；

lResult           返回狀態（參見返回狀態參數說明）；

3.2.7 查詢實時溫度值

UpLDDeviceTemperature ControllerID, nLoop, nAddress, lCurrent, pResult

m_nControllerID   電氣火災監控設備地址；

nLoop            回路號；

nAddress         一次碼；

lCurrent          返回溫度值；

lResult           返回狀態（參見返回狀態參數說明）；

3.3接口事件

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

                   bstrDeviceID As String, ByVal Value As Long)

nControllerID     電氣火災監控設備地址；

nEventType       事件的類型；

bstrDeviceID      相關設備編碼（設備二次碼）；

Value            對應事件類型的相關數據；

  參數詳細描述如表2。

表2

四、 在編程環境中應用

4.1  VB編程環境中GstCom 的創建

l 在VB編程環境中引用GstCom控件；

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

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

4.2  VC編程環境中GstCom 的創建

l 在應用程序的頭文件中加入如下文件

    #include "GstCom.h"

#include "GstComDefines.h"

#include "GstComEventSink.h"

l 在應用程序的代碼文件中加入如下文件

#include "GstCom_i.c"

l 在應用程序中定義GstCom的引用及相關變量，

    IGstComCtl  *m_IGstComCtl;

    CGstComEventSink* m_pGstComEventSink;

    IUnknown* m_pControlUnk;

l 在應用程序中創建接口實例

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.");

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

l 應用程序退出，斷開連接釋放資源：

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

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

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#編程環境中GstCom 的創建

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

l 在應用程序頭部定義GstCom，即：using GSTCOMLIB；

l 在程序初始化階段，創建GstComCtl對象，即：

GstComCtl myGstComCtl=new GstComCtl（）;

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

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

l 在應用程序中創建事件響應

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

gstComCtl.AlarmEvent +=new

_IGstComCtlEvents_AlarmEventEventHandler(gstComCtl_AlarmEvent);

創建時間處理方法gstComCtl_AlarmEvent，如：

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

        {

             //用戶代碼

      }

4.4  Delphi編程環境中GstCom 的創建

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

l 在應用程序頭部使用GStCOMLib_TLB、，即：uses GStCOMLib_TLB，ComObj；

l 在程序初始化階段，創建GstComCtl對象，即：

var

GstComCtl : IGstComCtl;

GstComCtl:=CreateComObject(CLASS_GstComCtl) as IGstComCtl;