【正文】 *******************************************************************************Sub SendAMessage() Dim ret As Long Dim ds As DestationStruct Dim FuncCode As Integer Dim TaskId As String Dim Dest_num As Long Dim Sou。 Sub: SendAMessage()39。 Date: 200232639。=================39。*******************************************************************************39。(0x0000) // DefaultPublic Const ATI_RECEIVE_BROWSE = amp。H4Public Const ATI_RECEIVE_GET = amp。H0 39。 // DefaultPublic Const ATI_RECEIVE_FILE = amp。H1Public Const ATI_RECEIVE_MESSAGE = amp。H0 39。 For Send amp。39。 atisend139。 atisend39。====================================================39。 Author: WANG Yunqiu39。 ATI Interface Definitions39。*******************************************************************************39。 參數(shù)文件 初始化文件的格式及內(nèi)容說明。一起提交用戶的程序還會有一個簡單的VB例子程序TestATI。 WINDOWS系統(tǒng)下使用動態(tài)連接庫(VB )，(附在本文后面)，使用VB開發(fā)應(yīng)用程序時，要將此模塊附加在VB工程中，如c:\windows\system或d:\winnt\system32。(5) 在當(dāng)前工程設(shè)置中添加MQ所需要的庫名：(MQServer)； 使用動態(tài)連接庫(C語言) 應(yīng)用程序與通信服務(wù)器通信時可以采用MQServer和MQClient等兩種方式， (1) ；(2) 將 .lib文件加入到工程中；(3) 編譯連接；以Windows下Microsoft VC++為例：(1) 建立一個工程；(2) 添加文件，Server方式：，Client方式：；(3) 編譯連接；(4) 運行此程序時，如c:\windows\system或d:\winnt\system32。(4) 添加MQ標(biāo)準(zhǔn)連接庫的路徑；例如MQ的標(biāo)準(zhǔn)庫路徑為：D:\PROGRAM FILES\MQSERIES\TOOLS\LIB。 使用C語言源代碼采用源代碼的方式使用通信接口程序時，請注意以下步驟：(1) ；(2) 確保編譯器能夠找到MQ標(biāo)準(zhǔn) .；(3) 確保連接器能夠找到MQ的標(biāo)準(zhǔn)庫文件，；(4) 編譯連接程序。ATIRCV1將不再從默認(rèn)的路徑下找指定名稱的參數(shù)文件。INIFileName：輸入?yún)?shù)，字符串類型，根據(jù)不同的系統(tǒng)需要或限制，通信程序的接口參數(shù)文件可以不存放到指定的路徑下，由調(diào)用者指定。Reason：輸出參數(shù)，按照引用地址的方式調(diào)用，返回調(diào)用ATIRCV的錯誤碼，沒有錯誤時，此值返回0 ATIRCV1 VB接口：ATIRCV (ByVal FuncCode As Integer, _ByVal TaskId As String, _ByVal BufferLen As Long, _ByVal Buffer As String, _ByRef DataLen As Long, _ByRef Reason As Long, _ByVal INIFileName) _As LongC 接口：Int ATIRCV (short FuncCode, char * TaskId, long BufferLen, char * Buffer, long * DataLen, char * INIFileName,long * Reason)。DataLen：輸出參數(shù)，整型，即收消息到內(nèi)存時，返回實際接收的數(shù)據(jù)長度，接收文件時。接收文件時，此參數(shù)沒有實際的含義。根據(jù)應(yīng)用的不同要求，以后還會繼續(xù)增加一些TaskId，目前使用的TaskId主要有：確報應(yīng)用： “YT1”貨票應(yīng)用： “HP ”車號識別： “ATIS”調(diào)度系統(tǒng)： “DDXT”集裝箱： “JZX ”分局貨調(diào)： “FJHD”三級轉(zhuǎn)發(fā)： “SJZF”通信系統(tǒng)： “MQZM”BufferLen：輸入?yún)?shù)，整型，接收消息到內(nèi)存時，用來指明可存放消息的內(nèi)存塊的大小。TaskId的具體取值應(yīng)由相關(guān)部門統(tǒng)一規(guī)劃公布?；蛘撸篋im Buffer as stringBuffer = c:\MyAppPath\Temp + String(25, 0)接收消息時，帶ATI_RECEIVE_MESSAGE_ID返回的Buffer：Buffer(DataLen)MsgID(24Bytes)\0Buffer(PathLength)MsgID(24Bytes)\0接收文件時，帶ATI_RECEIVE_MESSAGE_ID返回的Buffer：TaskId：指明應(yīng)用程序的類型，輸入?yún)?shù)，字符數(shù)組，前四個字符有效，如：“JZX”、“YT1”等。VB中，可以利用下面的代碼：Dim Buffer as string。對Buffer的采用以下的語法：接收文件時，在C 中，可以利用strcpy的方式對設(shè)置Buffer中的接收路徑：/* * 申請1024字節(jié)的空存放接收路徑 */ char Buffer [1024+25]。接收返回后，從在Buffer中第DataLen + 1字節(jié)起為消息的MsgID，正文存放在Buffer的開始的DataLen個字節(jié)中，如果是接收文件，從BufferLen+1的位置存放MsgID。返回的MsgID將存放在Buffer中消息數(shù)據(jù)后第二個字節(jié)開始的24個字節(jié)中，此時返回的消息長度(對接收消息而非接收文件)仍然是真正的消息的長度，不包含此25個字節(jié)的長度。ATI_RECEIVE_ASCII_FILE (0x0010)：如果要以ASCII方式接收的文件，加上此參數(shù)，接收程序可以提供VMS、UNIX、DOS、WINDOWS等字符轉(zhuǎn)換，在發(fā)送程序時無需指定數(shù)據(jù)類型，但必須保證發(fā)送的內(nèi)容是可答應(yīng)的字符。此參數(shù)必須和ATI_RECEIVE_FILE同時使用才會有效。在接收文件時請不要采用瀏覽的方式。ATI_RECEIVE_NO_WAIT (0x0004)：與ATI_RECEIVE_WAIT相反，當(dāng)消息隊列中沒有消息或隊列中的消息被讀空后，接收函數(shù)立即放回，返回值為：NO_MORE_MESSAGE_IN_QUEUE。參數(shù)：FuncCode：指明發(fā)送/接收類型，輸入?yún)?shù)，兩個字節(jié)的整數(shù)：ATI_RECEIVE_MESSAGE (0x0000)：接收消息隊列中的第一條消息到指定的內(nèi)存中，接收函數(shù)的默認(rèn)設(shè)置；ATI_RECEIVE_FILE (0x0002)：接收消息隊列中的所有消息到文件中，并存放到由參數(shù)Buffer指定的路徑下；ATI_RECEIVE_WAIT (0x0000)：接收消息到內(nèi)存時，如果當(dāng)前消息隊列中沒有消息時，接收函數(shù)將會等待，等待的時間由參數(shù)文件中的相關(guān)參數(shù)指定，接收文件時，接收函數(shù)將會把所有的消息從隊列中讀取到消息內(nèi)指定的文件中，并在讀完最后一條消息后，繼續(xù)等待，等待的時間同樣由參數(shù)文件中參數(shù)來設(shè)定。此函數(shù)是用來從MQ中接收消息/文件，接收消息到內(nèi)存時，只返回消息隊列中的第一條消息，接收文件時，該函數(shù)將會讀取隊列中的所有消息，并將隊列中的消息存放到指定的文件中。ATISEND1將不再從默認(rèn)的路徑下找指定名稱的參數(shù)文件。此函數(shù)的參數(shù)除了比ATISEND多了一個參數(shù)INIFileName外，其余的參數(shù)與ATISEND完全一致，下面只介紹INIFileName，其它參數(shù)的說明請參考ATISEND的參數(shù)說明：INIFileName：輸入?yún)?shù)，字符串類型，根據(jù)不同的系統(tǒng)需要或限制，通信程序的接口參數(shù)文件可以不存放到指定的路徑下，由調(diào)用者指定。 ATISEND1發(fā)送信息接口，將指定的數(shù)據(jù)/文件發(fā)送到參數(shù)文件所指定的消息隊列中或由函數(shù)參數(shù)指定的消息隊列中，與ATISEND不同的是，此函數(shù)必須指明參數(shù)文件的路徑和文件名。傳輸文件時有效，指明被傳送的文件達(dá)到目的地后存放到指定位置的默認(rèn)文件名，傳輸內(nèi)存數(shù)據(jù)時，此參數(shù)沒有實際意義。DataLen：輸入?yún)?shù)，字符串類型，傳輸內(nèi)存數(shù)據(jù)時有效，包含要傳送的數(shù)據(jù)長度，傳輸文件時，此參數(shù)沒有實際意義。SourceData：輸入?yún)?shù)，字符串類型。SourceFileDir：輸入?yún)?shù)，字符串類型，傳輸文件時，指明文件所在的目錄，值得注意的是此參數(shù)中不含文件名稱。多于一個接收地址時，緊接著寫下一個目的地址。如：呼和局的某一個車站，由于其相應(yīng)虛擬分局的代碼為“33”，其全地址表示方法為：C3314705，目前無分局的路局有：柳州局：Z71XXXXX南昌局：G57XXXXX昆明局：M80XXXXX呼和浩特局：C33XXXXX 第九字節(jié)為forward_flag： ‘1’：三級落地轉(zhuǎn)發(fā)模式 ‘0’：點到點的傳輸模式 三級落地轉(zhuǎn)發(fā)模式：當(dāng)數(shù)據(jù)上報到分局或路局時，會自動上報到上一級單位。當(dāng)Destation 的長度小于Dest_num*9時，函數(shù)返回錯誤DESTATION_ADDREE_NOT_ENOUGH，并發(fā)起此次發(fā)送調(diào)用，當(dāng)Destation 的長度大于Dest_num*9時，前Dest_num*9個字符有效。發(fā)送隊列的個數(shù)通常是1。根據(jù)應(yīng)用的不同要求，以后還會繼續(xù)增加一些TaskId，目前使用的TaskId主要有：確報應(yīng)用： “YT1”貨票應(yīng)用： “HP ”車號識別： “ATIS”調(diào)度系統(tǒng)： “DDXT”集裝箱： “JZX ”分局貨調(diào)： “FJHD”三級轉(zhuǎn)發(fā)： “SJZF”通信系統(tǒng)： “MQZM”Dest_num：指明該消息的接收地址個數(shù)，輸入?yún)?shù)整形數(shù)。TaskId的具體取值應(yīng)由相關(guān)部門統(tǒng)一規(guī)劃公布。TaskId：指明應(yīng)用程序的類型，輸入?yún)?shù)，字符數(shù)組，前四個字符有效，如：“JZX”、“YT1”等。ATI_SEND_FILE (0x0001)：發(fā)送某一個文件到消息隊列中，參數(shù)SourceFileDir中指明文件所在路徑，不包含文件名稱，SourceData指明文件的名稱，DestFileName指明接收程序接收時默認(rèn)的文件名稱，參數(shù)DataLen沒有實際意義。 標(biāo)準(zhǔn)函數(shù)接口接口函數(shù)主要有 ATISEND、ATISENDATIRCV、ATIRCV1，其功能和參數(shù)如下： ATISEND 發(fā)送信息接口，將指定的數(shù)據(jù)/：VB接口：ATISEND (ByVal FuncCode As Integer, _ByVal TaskId As String, _ByVal Dest_num As Long, _ByVal Destation As String, _ByVal SourceFileDir As String, _ByVal SourceData As String, _ByVal DataLen As Long, _ByVal DestFileName As String, _ByRef Reason As Long)As LongC 接口： int ATISEND (short FuncCode, char * TaskId, int Dest_num,char * Destation, char * SourceFileDir, char * SourceData,int DataLen, char * DestFileName, long * Reason)。%WINDOWSDIR%是指當(dāng)前運行的WINDOWS系統(tǒng)路經(jīng)，如：c:\windows, e:\winnt等。在與其它應(yīng)用程序接口時，標(biāo)準(zhǔn)通信程序提供了至少以下的語言接口：1． 標(biāo)準(zhǔn)的C語言發(fā)送接收程序(, , , )2． VB標(biāo)準(zhǔn)模塊(、)3． 動態(tài)連接口的接口(、)使用標(biāo)準(zhǔn)接口程序時所需要的所有的配置信息都存放在標(biāo)準(zhǔn)的INI格式的配置文件中，在默認(rèn)的情況下，該配置文件存放在制定的路徑下：對于WINDOWS系統(tǒng)，存放在%WINDIR%下，如：c:\winnt\；對于unix系統(tǒng)，存放在/etc目錄下，如：/etc/。(5) 在Windows系統(tǒng)中更新軟件時，先要刪除已安裝的程序，；或在控制面板中運行添加/刪除程序，選擇atservermor點擊“更改/刪除”到安裝程序的維護(hù)界面，選擇“Remove”點擊“Next”點擊“確定”點擊“Finish”，完成atservermor程序的刪除，再運行新版本的軟件安裝程序完成更新。若發(fā)現(xiàn)消息“消失”了，可按下述順序檢查：atdfh是否工作正常，查dfwork**.log；死