【正文】 Sample Code39。*******************************************************************************Public Declare Function atisendtest Lib AMQATI Alias ATISEND2 ( _ FuncCode As Integer, _ TaskId As String, _ Dest_num As Long, _ SourceFileDir As String, _ SourceData As String, _ DataLen As Long, _ DestFileName As String, _ ByRef Reason As Long) _ As LongPublic Declare Function atisend1 Lib AMQATI Alias ATISEND1 ( _ 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, _ ByVal INIFileName, _ ByRef Reason As Long) _ As LongPublic Declare Function atisend Lib AMQATI Alias 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 LongPublic Declare Function atircv Lib AMQATI Alias 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) _ As Long Public Declare Function atircv1 Lib AMQATI Alias ATIRCV1 ( _ ByVal FuncCode As Integer, _ ByVal TaskId As String, _ ByVal BufferLen As Long, _ ByVal Buffer As String, _ ByRef DataLen As Long, _ ByVal INIFileName, _ ByRef Reason As Long) _ As LongPublic Type DestationStruct DestationAddr As String * 8 RestoreFlag As ByteEnd Type39。， 。此參數(shù)沒有實際含義。因此在申請Buffer空間時，應該是接收函數(shù)中返回的消息長度加上25。INIFileName中應指明參數(shù)文件的文件存放目錄和參數(shù)文件名。以P24XXXXX為例，每個地址的9個字節(jié)含義如下： 第一個字節(jié)表明路局碼，如P代表北京局第二、三字節(jié)代表分局碼，如24代表北京分局 第四至八字節(jié)代表車站TMIS碼接收地址為鐵道部時，地址為$$$$$$$$，接收地址為鐵路局時，用地址：局碼+$$$$$$$，如北京局：P$$$$$$$，同樣北京分局地址碼應為：P24$$$$$，注意，對于沒有分局的路局，在TMIS基礎(chǔ)數(shù)據(jù)字典中仍然有相應的分局代碼，因此在表示無分局的車站的全地址時，分局位仍需填上相應的代碼。如果用ATISEND1和ATIRCV1函數(shù)，可以在參數(shù)中指明此配置文件的路徑。以windows2000為例，添加過程如下：打開添加計劃任務，啟動任務計劃向?qū)В狐c擊“下一步”，點擊“瀏覽”，“打開”，選擇每天執(zhí)行任務，點擊“下一步”，制定好起始時間和起始日期后，點擊“下一步”，輸入完用戶名和密碼，點擊“下一步”，選擇“在單擊“完成”時，打開此任務的高級屬性（A）”，點擊“完成”。stop —— atmon程序的第一個參數(shù)，停止atmon程序、atsvr程序和atdfh程序。 遠程隊列（發(fā)送隊列）在各級的通信服務器上，還要為每個應用系統(tǒng)定義一套到相鄰節(jié)點的遠程隊列，用于消息的轉(zhuǎn)發(fā)。由于zmzdrcv程序需要用到此參數(shù)文件，因此在通信服務器上的軟件安裝好后，應對此參數(shù)文件的[MQZM]區(qū)段進行修改，填上“QMNAME=”參數(shù)，為本地隊列管理器名。WaitInterval： 設(shè)置接收函數(shù)以等待的方式接收數(shù)據(jù)時，要等待的時間。由于在MQ中，隊列的名稱字母大小寫是區(qū)分的，所以RQNAME的參數(shù)值需要寫出大小正確的隊列名稱。參數(shù)文件中不同的應用可以設(shè)置自己的配置信息，放到不同的區(qū)段中，同時有一個默認的配置，存放公共配置信息。1： 應用消息在本地是否落地入庫，“0”表示本地應用不需要消息，此時atsvr程序不會將消息放入應用隊列；“1”表示本地應用需要消息，atsvr程序自動將消息放入應用隊列；APPLJZXQ：是本地應用接收消息隊列名；RJZX：atsvr程序轉(zhuǎn)發(fā)消息時使用的遠程隊列名的前綴。各參數(shù)文件的用途如下： —— 站名字典文件 —— 虛擬分局（無分局的路局）代碼文件。應加在MQ消息通道接收端的消息出口處，獲取經(jīng)過接收通道的消息的相關(guān)信息，并記錄在日志文件中。 安裝后軟件的目錄結(jié)構(gòu)及用途無論使用哪種通信服務器，軟件安裝完成后，分為兩部分，可執(zhí)行程序?qū)⒎旁诒镜赜脖P上，參數(shù)文件等將放在共享盤上。 注意本系統(tǒng)的安裝和使用者需要對WINDOWS、UNIX操作系統(tǒng)、MQ軟件等有一定的了解。負責對消息進行上傳、下發(fā)、落地等處理； 可按下述轉(zhuǎn)發(fā)規(guī)則進行轉(zhuǎn)發(fā)：同分局車站由分局轉(zhuǎn)發(fā)；跨分局的信息由本路局轉(zhuǎn)發(fā)；跨路局的信息由鐵道部轉(zhuǎn)發(fā)； 同時支持點到點及跨節(jié)點傳輸模式；按應用需求靈活處理信息是否落地問題；支持多地址轉(zhuǎn)發(fā)； MQ消息傳輸日志 將通過MQ接收通道傳輸過來的消息的相關(guān)信息，如：消息的目的地址、消息的發(fā)送者和發(fā)送時間等信息記錄下來，定時打包發(fā)送到部中心，入庫，并通過頁面查詢。因此，為了適應新調(diào)整的TMIS總體方案，鐵道部信息技術(shù)中心及領(lǐng)導提出了必須建立統(tǒng)一的TMIS傳輸平臺，為各應用的數(shù)據(jù)傳輸提供高質(zhì)量、高可靠的服務的戰(zhàn)略方針。 本項目的任務提出、組織、開發(fā)者為鐵道部信息技術(shù)中心。 運行環(huán)境要求(1) 應用傳輸接口程序硬件環(huán)境：能夠運行在小型機、PC機等硬件環(huán)境上。 二 安裝與啟動 準備工作安裝前保證操作系統(tǒng)運行正常、MQ軟件安裝完畢且運行正常。 Unix系統(tǒng)假設(shè)本地硬盤上“mqm”用戶的根目錄為“/home/mqm”，共享盤的根目錄為“/mqfs1”，則安裝及運行后產(chǎn)生的目錄結(jié)構(gòu)如下：/home/mqm/——atserver/————atsvr |——atdfh |——zmzdrcv |——atmon |——putlogtoq |——msglog |——startmon |——stopmon |—— |——rmmail/etc/————（大寫） |——（大寫）/mqfs1/——atserver/——— |—— |—— ruler |—— atproc/——— |—— |—— |—— tail_id|—— head_id|—— deadfile/|—— lostfile/|—— log/———atwork**.log|——errmsg**.log|——dfwork**.log內(nèi)置盤上文件的用途說明：atsvr —— 應用消息傳輸處理程序。 —— 發(fā)送日志文件程序，將msglog