介紹了在C++builder環(huán)境中編寫(xiě)DLL,封裝稱重儀表通訊協(xié)議。

在汽車衡稱重管理軟件中，經(jīng)常要讀寫(xiě)串口。 由于不同廠家的儀表，通訊協(xié)議往往不同，因此在具 體應(yīng)用時(shí)有諸多不便。本文介紹了使用C++builder 編寫(xiě)DLL，封裝稱重儀表的通訊協(xié)議并給出主要代 碼。這種方法符合OIMLD- SW中，將軟件部件之間 隔離的標(biāo)準(zhǔn)。

在 Win16 中，可以利用 OpenCcmm、CloseComm 和WriteComm等函數(shù)打開(kāi)、關(guān)閉和讀寫(xiě)串口。但在 Win32中，串口和其他通信設(shè)備均被作為文件處理， 串口的打開(kāi)、關(guān)閉和讀寫(xiě)等操作所用的API函數(shù)與 操作文件的函數(shù)相同。可通過(guò)CreateFile函數(shù)打開(kāi) 串口，通過(guò)CloseFile函數(shù)關(guān)閉串口，通過(guò)Comm- Prop、DCB 結(jié)構(gòu)、GetCommProperties、SetCommProp- erties、GetCommState 及 SetCommState 等函數(shù)設(shè)置串 口狀態(tài)，通過(guò)函數(shù)ReadFile和WritFile讀寫(xiě)串口。

采用C++builder進(jìn)行串口編程，可以很方便的 編譯DLL。而且可以利用它提供的線程類，使DLL 使用多線程，減少資源的占用。本文將以D2002C/E和XK3190A9表為例，介 紹編寫(xiě)多線程串口 DLL的過(guò)程。

//用C++builder工程向?qū)?，?chuàng)建一個(gè)DLL工程

//定義相關(guān)變量如下

char InBuff[100]; //數(shù)據(jù)接收緩沖區(qū)

HANDLEhComm = NULL; // 串 口句柄

AnsiStringtemp="0M; //儀表重量臨時(shí)值

COMMTIMEOUTS ctmoNew = {0}，ctmoOld; //超時(shí)

設(shè)置

AnsiString ybtype=""; //儀表類型

// 聲明外部調(diào)用接口函數(shù)

//打開(kāi)串口

//參數(shù)1:串口號(hào)，如Coml，Com2 //參數(shù)2:串口設(shè)置字符串:如"9600，n，8，1" extern "C" —declspec ( dllexport) long —stdcall OpenPort char *ComNo，char *comset);

//ReadPort函數(shù)取重量，參數(shù)是儀表類型字符串 如"D2002E"，"XK3190A9"

extern "C" —declspec ( dllexport) char* —stdcall ReadPort char * yibiao);

//關(guān)閉串口

extern "C" __declspec ( dllexport) long __stdcall ClosePor(t ) ;

//

為了減少讀串口函數(shù)占用系統(tǒng)資源問(wèn)題，采用 多線程來(lái)解決，TformThread為自定義線程類，它繼 承父類TThread

class TFormThread: public TThread{ public: / User declarations __fastcall TFormThread( bool CreateSuspended) ; void __fastcall Execute( void);

};

__fastcall TFormThread: TFormThread ( bool Cre- ateSuspended) :TThread( CreateSuspended) { CreateSuspended=true;

};

在讀串口線程中，分別處理儀表的通訊協(xié)議，儀 表類型由ReadPort函數(shù)的參數(shù)送入。 void __fastcall TFormThread::Execute( void) {/讀線程 DWORD dwBytesRead; while( !Terminated)

{

ReadFile ( hComm, InBuff, 50, &dw- BytesRead, NULL);

if ybtype=="D2002E") // ——儀表 1 {

//此處處理D2002E儀表協(xié)議 PurgeCommi hComm, PURGE_RXCLr

EAR);

}

else

InBuff[dwBytesRead]=0; if ybtype=="XK3190A9") //…儀表 2 {

//此處處理XK3190儀表協(xié)議 PurgeComm( hComm, PURGE_RX-

CLEAR) ;

}

else//…沒(méi)有找到相應(yīng)的儀表類型 InBuff[dwBytesRead]=0;

Purg eComm ( hComm, PURGE_RX-

CLEAR) ;

}

}

TFormThread*readport; //聲明線程對(duì)象指針

// 外部接口函數(shù)的定義

打開(kāi)串口，并設(shè)置串口相關(guān)參數(shù)。

long —stdcall OpenPor( char *ComNo, char *comset)

//打開(kāi)串口 {

DCB dcbCommPort;

本文采用同步方式打開(kāi)串口，通過(guò)修改參數(shù)，也可以 用異步方式打開(kāi)串口。

hComm=CreateFile ComNo, GENERIC_READ|GENER-

IC_WRITE, 0, 0, OPEN_EXISTING, 0, 0);

i(f hComm==INVALID_HANDLE_VALUE) return 0;

設(shè)置超時(shí)

GetCommTimeout( hComm, &ctmoOld); ctmoNew. ReadTotalTimeoutConstant = 100; ctmoNew. ReadTotalTimeoutMultiplier = 0; ctmoNew.WriteTotalTimeoutMultiplier = 0; ctmoNew.WriteTotalTimeoutConstant = 0; SetCommTimeout( hComm, &ctmoNew); dcbCommPort. DCBlength = sizeof DCB);

GetCommState hComm, &dcbCommPort); BuildCommDCB( comset, &dcbCommPort) ; SetCommState hComm, &dcbCommPort); readport=newTFormThread true) ; // 創(chuàng)建線程實(shí)例 readport- >Priority=tpNormal; //線程優(yōu)先級(jí) readport- >Resume( ) ; //喚醒線程 return 1;

}

讀取重量函數(shù)

char * —stdcall ReadPort char * yibiao)

{

ybtype=yibiao; //儀表類型

returntemp.c_str ) ; //將重量作為字符串返回

}

當(dāng)應(yīng)用程序中不再使用時(shí)，應(yīng)將串口設(shè)備關(guān)閉，同 時(shí)關(guān)閉線程，停止取數(shù)。

long __stdcall ClosePor(t )

i(f hComm)

{

PurgeComn( hComm，PURGE_RXABORT); //清空節(jié)收緩沖區(qū)

SetCommTimeout( hComm，&ctmoOld); CloseHandle hComm) ; // 關(guān)閉串口 readport- >Terminate( ) ; //結(jié)束線程 hComm=0;

}

return 0;

}

將工程名稱命名為D2002E，編譯后將在當(dāng)前 目錄下生成存D2002E.dll文件。我們?cè)诰帉?xiě)稱重軟 件時(shí)，可以調(diào)用這個(gè)函數(shù)庫(kù)。

在VB中調(diào)用如下：

Private Declare Function OpenPort Lib "D2002E.dll" (ByVal a As String，ByVal setstr As String) As Long Private Declare Function ReadPort Lib "D2002E.dll" ( ByVal b As String) As String Private Declare Function ClosePort Lib "D2002E.dll" ( ) As Long

在打開(kāi)串口后，用時(shí)鐘循環(huán)讀取儀表的當(dāng)前重量。 Private Sub Timer1_Timer )

DoEvents

zhong = ReadPort Combol .Text) // 取重量，參數(shù) 為儀表類型：如"D2002E"，"XK3190A9" Labell.Caption = zhong

End Sub

運(yùn)行后情況如下：

在易語(yǔ)言中調(diào)用如下:

 上述程序修改后，也可工作在指令模式下，如XK3190A9系列儀表，有兩種數(shù)據(jù)傳送方式:

種是連續(xù)傳送tF=0)，一種是指令傳送tF=1)。此 時(shí)需要在DLL程序中處理串口寫(xiě)函數(shù)WriteFile (hCom，&order，lenght，&k，NULL)，第 二個(gè)參數(shù)為儀

表指令，第三個(gè)參數(shù)為指令長(zhǎng)度。發(fā)送完指令后，立 即讀取結(jié)果。

而且，當(dāng)使用RS485-232轉(zhuǎn)換器，將電腦和數(shù) 字傳感器連接起來(lái)時(shí)，可以通過(guò)擴(kuò)充上述程序，將標(biāo) 定、調(diào)角差等過(guò)程封裝成DLL給客戶調(diào)用。其目的 是方便用戶進(jìn)行軟件功能的二次開(kāi)發(fā)。