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

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

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

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

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

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

char InBuff[100]; //數據接收緩沖區

HANDLEhComm = NULL; // 串 口句柄

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

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

設置

AnsiString ybtype=""; //儀表類(lèi)型

// 聲明外部調用接口函數

//打開(kāi)串口

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

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

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

//關(guān)閉串口

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

//

為了減少讀串口函數占用系統資源問(wèn)題，采用 多線(xiàn)程來(lái)解決，TformThread為自定義線(xiàn)程類(lèi)，它繼 承父類(lèi)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àn)程中，分別處理儀表的通訊協(xié)議，儀 表類(lèi)型由ReadPort函數的參數送入。 void __fastcall TFormThread::Execute( void) {/讀線(xiàn)程 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)有找到相應的儀表類(lèi)型 InBuff[dwBytesRead]=0;

Purg eComm ( hComm, PURGE_RX-

CLEAR) ;

}

}

TFormThread*readport; //聲明線(xiàn)程對象指針

// 外部接口函數的定義

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

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

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

DCB dcbCommPort;

本文采用同步方式打開(kāi)串口，通過(guò)修改參數，也可以 用異步方式打開(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í)

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 )建線(xiàn)程實(shí)例 readport- >Priority=tpNormal; //線(xiàn)程優(yōu)先級 readport- >Resume( ) ; //喚醒線(xiàn)程 return 1;

}

讀取重量函數

char * —stdcall ReadPort char * yibiao)

{

ybtype=yibiao; //儀表類(lèi)型

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

}

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

long __stdcall ClosePor(t )

i(f hComm)

{

PurgeComn( hComm，PURGE_RXABORT); //清空節收緩沖區

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

}

return 0;

}

將工程名稱(chēng)命名為D2002E，編譯后將在當前 目錄下生成存D2002E.dll文件。我們在編寫(xiě)稱(chēng)重軟 件時(shí)，可以調用這個(gè)函數庫。

在VB中調用如下：

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)讀取儀表的當前重量。 Private Sub Timer1_Timer )

DoEvents

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

End Sub

運行后情況如下：

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

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

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

表指令，第三個(gè)參數為指令長(cháng)度。發(fā)送完指令后，立 即讀取結果。

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