介紹了在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給客戶調用。其目的 是方便用戶進行軟件功能的二次開發。
