介紹了在C++builder環境中編寫DLL,封裝稱重儀表通訊協議。

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

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

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

//用C++builder工程向導，創建一個DLL工程

//定義相關變量如下

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

HANDLEhComm = NULL; // 串 口句柄

AnsiStringtemp="0M; //儀表重量臨時值

COMMTIMEOUTS ctmoNew = {0}，ctmoOld; //超時

設置

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

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

//打開串口

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

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

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

//關閉串口

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

//

為了減少讀串口函數占用系統資源問題，采用 多線程來解決，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;

};

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

{

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

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

//此處處理D2002E儀表協議 PurgeCommi hComm, PURGE_RXCLr

EAR);

}

else

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

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

CLEAR) ;

}

else//…沒有找到相應的儀表類型 InBuff[dwBytesRead]=0;

Purg eComm ( hComm, PURGE_RX-

CLEAR) ;

}

}

TFormThread*readport; //聲明線程對象指針

// 外部接口函數的定義

打開串口，并設置串口相關參數。

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

//打開串口 {

DCB dcbCommPort;

本文采用同步方式打開串口，通過修改參數，也可以 用異步方式打開串口。

hComm=CreateFile ComNo, GENERIC_READ|GENER-

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

i(f hComm==INVALID_HANDLE_VALUE) return 0;

設置超時

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) ; // 創建線程實例 readport- >Priority=tpNormal; //線程優先級 readport- >Resume( ) ; //喚醒線程 return 1;

}

讀取重量函數

char * —stdcall ReadPort char * yibiao)

{

ybtype=yibiao; //儀表類型

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

}

當應用程序中不再使用時，應將串口設備關閉，同 時關閉線程，停止取數。

long __stdcall ClosePor(t )

i(f hComm)

{

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

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

}

return 0;

}

將工程名稱命名為D2002E，編譯后將在當前 目錄下生成存D2002E.dll文件。我們在編寫稱重軟 件時，可以調用這個函數庫。

在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

在打開串口后，用時鐘循環讀取儀表的當前重量。 Private Sub Timer1_Timer )

DoEvents

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

End Sub

運行后情況如下：

在易語言中調用如下:

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

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

表指令，第三個參數為指令長度。發送完指令后，立 即讀取結果。

而且，當使用RS485-232轉換器，將電腦和數 字傳感器連接起來時，可以通過擴充上述程序，將標 定、調角差等過程封裝成DLL給客戶調用。其目的 是方便用戶進行軟件功能的二次開發。