精品精品-精品精品国-精品精品国产-精品精品国产高-精品精品国产高清-精品精品国产国产-精品精品国产精品等-精品精品国产理论

modbus rtu通信協議串口通訊動態鏈接庫DLL(以下簡稱DLL)，是為滿足工業通信需要，
針對工業領域要求上位機對PLC、工業儀表通訊實時采集與控制的組態編程而設計。
本DLL是采用Delphi語言開發的標準串口通訊庫，具有以下特點：
1)、遵循modbus rtu串口通訊協議(施耐德、西門子、臺達、永宏等品牌PLC及各類工業儀表等支持本協議)；
2)、實時性、可靠性好,通用性強;
3)、適用于多PLC聯網和上位機通信，滿足多方面的需要(聯網時可采用485總線式);
4)、函數接口功能全，操作簡單，支持modbus的大部分讀寫功能函數；
5)、附加實用轉換與讀取函數，易于快速開發(VC等非RAD開發環境的開發)；
6)、支持USB、PC擴展卡等擴展串口號;
7)、支持多種操作系統win9x/win2000/winXP(標注Win32 DLL);
8)、可在多種編程環境下使用，例如VB、VC、Delphi等開發環境。

9)、支持modbus rtu標準的功能代碼01、02、03、04、05、06、15、16且對相關功能代碼的讀取和寫如做了一些擴充更加符合工業自動化領域的工控軟件的開發，是廣大工控工程師的必備工具軟件。

二、modbus rtu通訊協議簡介

    Modbus 協議是應用于電子控制器上的一種通用語言。通過此協議，控制器相互之間、控制器經由網絡(例如以太網)
和其它設備之間可以通信。它已經成為一通用工業標準。有了它，不同廠商生產的控制設備可以連成工業網絡，進行集
中監控。此協議定義了一個控制器能認識使用的消息結構,而不管它們是經過何種網絡進行通信的。它描述了一控制器請
求訪問其它設備的過程，如果回應來自其它設備的請求，以及怎樣偵測錯誤并記錄。它制定了消息域格局和內容的公共
格式。當在一Modbus網絡上通信時，此協議決定了每個控制器須要知道它們的設備地址，識別按地址發來的消息，決定
要產生何種行動。如果需要回應，控制器將生成反饋信息并用Modbus協議發出。在其它網絡上，包含了Modbus協議的消
息轉換為在此網絡上使用的幀或包結構。這種轉換也擴展了根據具體的網絡解決節地址、路由路徑及錯誤檢測的方法。
1、在Modbus網絡上轉輸
標準的Modbus口是使用一RS-232C兼容串行接口，它定義了連接口的針腳、電纜、信號位、傳輸波特率、奇偶校驗。控制
器能直接或經由Modem組網。控制器通信使用主—從技術，即僅一設備(主設備)能初始化傳輸(查詢)。其它設備(從設備)
根據主設備查詢提供的數據作出相應反應。典型的主設備：主機和可編程儀表。典型的從設備：可編程控制器。主設備
可單獨和從設備通信，也能以廣播方式和所有從設備通信。如果單獨通信，從設備返回一消息作為回應，如果是以廣播
方式查詢的，則不作任何回應。Modbus協議建立了主設備查詢的格式：設備(或廣播)地址、功能代碼、所有要發送的數
據、一錯誤檢測域。從設備回應消息也由Modbus協議構成，包括確認要行動的域、任何要返回的數據、和一錯誤檢測域。
如果在消息接收過程中發生一錯誤，或從設備不能執行其命令，從設備將建立一錯誤消息并把它作為回應發送出去。
2、在其它類型網絡上轉輸
在其它網絡上，控制器使用對等技術通信，故任何控制都能初始和其它控制器的通信。這樣在單獨的通信過程中，控制
器既可作為主設備也可作為從設備。提供的多個內部通道可允許同時發生的傳輸進程。在消息位，Modbus協議仍提供了
主—從原則，盡管網絡通信方法是“對等”。如果一控制器發送一消息，它只是作為主設備，并期望從從設備得到回應。
同樣，當控制器接收到一消息，它將建立一從設備回應格式并返回給發送的控制器。
3、查詢—回應周期
(1)、查詢    
    查詢消息中的功能代碼告之被選中的從設備要執行何種功能。數據段包含了從設備要執行功能的任何附加信息。例
如功能代碼03是要求從設備讀保持寄存器并返回它們的內容。數據段必須包含要告之從設備的信息：從何寄存器開始讀
及要讀的寄存器數量。錯誤檢測域為從設備提供了一種驗證消息內容是否正確的方法。
(2)、回應    
    如果從設備產生一正常的回應，在回應消息中的功能代碼是在查詢消息中的功能代碼的回應。數據段包括了從設備
收集的數據：象寄存器值或狀態。如果有錯誤發生，功能代碼將被修改以用于指出回應消息是錯誤的，同時數據段包含
了描述此錯誤信息的代碼。錯誤檢測域允許主設備確認消息內容是否可用。

3、兩種傳輸方式
    控制器能設置為兩種傳輸模式(ASCII或RTU)中的任何一種在標準的Modbus網絡通信。用戶選擇想要的模式，包括串
口通信參數(波特率、校驗方式等)，在配置每個控制器的時候，在一個Modbus網絡上的所有設備都必須選擇相同的傳輸
模式和串口參數。
ASCII模式
   －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
   | 地址 | 功能代碼 | 數據數量 | 數據1 ... 數據n | LRC高字節 | LRC低字節 | 回車 | 換行 |
   －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
RTU模式
   －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
   | 地址 | 功能代碼 | 數據數量 | 數據1 ... 數據n | CRC高字節 | CRC低字節 |
   －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
    所選的ASCII或RTU方式僅適用于標準的Modbus網絡，它定義了在這些網絡上連續傳輸的消息段的每一位，以及決定
怎樣將信息打包成消息域和如何解碼。在其它網絡上(象MAP和Modbus Plus)Modbus消息被轉成與串行傳輸無關的幀。
    因ASCII模式通訊效率較低一多采用RTU模式，這里只對RTU模式進行詳細介紹。

4、Modbus RTU模式

    當控制器設為在Modbus網絡上以RTU(遠程終端單元)模式通信，在消息中的每個8Bit字節包含兩個4Bit的十六進制
字符。這種方式的主要優點是：在同樣的波特率下，可比ASCII方式傳送更多的數據。

代碼系統

    8位二進制，十六進制數0...9，A...F
    消息中的每個8位域都是一個兩個十六進制字符組成

每個字節的位

    1個起始位
    8個數據位，最小的有效位先發送
    1個奇偶校驗位，無校驗則無
    1個停止位(有校驗時)，2個Bit(無校驗時)

錯誤檢測域
    
     CRC(循環冗長檢測)

地址域

    消息幀的地址域包含8Bit(RTU)。可能的從設備地址是0...247(十進制)。單個設備的地址范圍是1...247。主設備通過
將要聯絡的從設備的地址放入消息中的地址域來選通從設備。當從設備發送回應消息時,它把自己的地址放入回應的地址域
中，以便主設備知道是哪一個設備作出回應。地址0是用作廣播地址，以使所有的從設備都能認識。當Modbus協議用于更高
水準的網絡，廣播可能不允許或以其它方式代替。

如何處理功能域

    數據域是由兩個十六進制數集合構成的，范圍00...FF。根據網絡傳輸模式，這可以是由一RTU字符組成。從主設備發給
從設備消息的數據域包含附加的信息：從設備必須用于進行執行由功能代碼所定義的所為。這包括了象不連續的寄存器地址，
要處理項的數目，域中實際數據字節數。例如，如果主設備需要從設備讀取一組保持寄存器(功能代碼03)，數據域指定了起
始寄存器以及要讀的寄存器數量。如果主設備寫一組從設備的寄存器(功能代碼10十六進制)，數據域則指明了要寫的起始寄
存器以及要寫的寄存器數量，數據域的數據字節數，要寫入寄存器的數據。如果沒有錯誤發生，從從設備返回的數據域包含
請求的數據。如果有錯誤發生，此域包含一異議代碼，主設備應用程序可以用來判斷采取下一步行動。在某種消息中數據域
可以是不存在的(0長度)。例如，主設備要求從設備回應通信事件記錄(功能代碼0B十六進制)，從設備不需任何附加的信息。

作者：  wjun7610
QQ：    157610979
淘寶店：http://shop34821629.taobao.com

三、DLL函數說明


modbus.DLL是王俊于2007年最新開發的基于施耐得modbus rtu 通訊協議的串口通訊鏈接庫。modbus.DLL專業版實現了對保持寄存器40001～4XXXX區數據讀寫（FCN03:讀、FCN16:寫，FCN06寫單個數據）;對邏輯線圈00001～0XXXX的 讀寫（FCN01:讀取一組線圈，FCN05:強置單線圈，FCN15強置多線圈）；對輸入狀態10001～1XXXX的讀（FCN02）;對輸入寄存器30001～3XXXX的讀（FCN04）。

DLL中的主要函數：

ComOpen：打開串口

ComClose：關閉串口

FCN01：讀取一組線圈（00001～0XXXX）

FCN02：取得一組開關輸入狀態數據（10001～1XXXX）

FCN03：讀多個保持寄存器數據（40001～4XXXX）

FCN04：讀多個輸入寄存器數據（30001～3XXXX）

FCN05S：置位單線圈（00001～0XXXX）

FCN05R：復位單線圈（00001～0XXXX）

FCN06： 預置單保持寄存器數據（40001～4XXXX）

FCN15： 強置多線圈的通斷數據（00001～0XXXX）

FCN16： 寫多個保持寄存器數據（40001～4XXXX）

FCN16_xSet：單保持寄存器的0～15相應位的置位（40001.0－40001.15～4XXXX.0－4XXXX.15）

FCN16_xReset：單保持寄存器的0～15相應位的復位（40001.0－40001.15～4XXXX.0－4XXXX.15）

FCN16_xSetReset：單保持寄存器的0～15相應位的置復位（40001.0－40001.15～4XXXX.0－4XXXX.15），
                 指使相應的位短時間通斷一次（約通60ms）

ComTrue：讀取DLL中的串口是否備有效打開

CinBin： 字中相應的位的狀態抽取

1、打開串口

Function ComOpen(nport,BaudRate,DataBits,Parity,StopBits:longint;User:Pchar):longint;stdcall;

參數：nport: 打開串口號，取值為1～8，代表COM1～COM8;
      
      BaudRate：波特率，取值為：1200、2400、4800、9600、19200、38400；
    
      DataBits：數據位，取值為5、6、7、8；

      Parity：  校驗位，取值1(代表Even)、取值2(代表Odd)、取值3(代表Mark)、取值4(代表Space)、取值5(代表None)；
  
      StopBits：停止位，取值1(代表1位停止位)、取值2(代表2位停止位)、取值3(代表1.5位停止位)；

      User:DLL授權用戶名;

返回值：長整型，操作成功返回“1”或“2”；1表示注冊授權用戶，2表示用戶未注冊；

操作不成功返回為“0”時的原因：1)、串口不存在或被占用; 2)、DLL注冊授權不正確。

注：本DLL用戶不注冊除了下面說明的功能限制外沒有其他限制，未注冊用戶請使用特定用戶名：wangjun。

    注冊用戶功能上無任何限制，且將得到永久的軟件使用和更新升級服務；

使用舉例：

Delphi：ComOpen(1,9600,8,1,1,Pchar('wangjun')) , 打開COM1口。

VB：ComOpen(1,9600,8,1,1,"wangjun") , 打開COM1口。(注：下面的示例都以VB調用形式給出)

2、關閉串口

Function ComClose(nport:longint):longint;stdcall;

參數：nport: 串口號，取值為1～8，代表COM1～COM8;

返回值：長整型，操作成功返回“1”，否則返回“0”;

使用舉例：

ComClose(1) ，關閉打開的COM1口。

3、modbus相應功能碼所對應的讀取功能函數。

1)、01功能碼位元件的讀取(讀取一組線圈)

Function FCN01(nport,node,address,Count:longint):Pchar;stdcall;

參數：

nport:   串口號，取值為1～8，代表COM1～COM8;

node：   modbus從站號，取值1～255；

address: 元件地址，取值范圍從00001~0XXXX地址區(邏輯線圈)值(你要讀標準modbus的00001地址這個值為0000，依次類推)

Count:   讀取的位元件個數，一次最多讀取1000個但不能超出尋址范圍；

返回值： 16進制字符串數據,字符串數據的終止符為"@";

使用舉例：

FCN01(1,1,19,37),由COM1讀取modbus 1號從站00020～00056(標準modbus地址)的位狀態值，返回值為“CD6BB20E1B@”

則表示27~20:CD, 35~28:6B, 43~36:B2, 51~44:0E, 56~52:1B；

字節值與實際的位狀態值對應參考(其他位功能函數的說明不再重復本內容)：
            
位地址：    | 27 | 26 | 25 | 24 | 23 | 22 | 21 | 20 | 35 | 34 | 33 | 32 | 31 | 30 | 29 | 28 |
            －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
各位賦值:   | 1  | 1  | 0  | 0  | 1  | 1  | 0  | 1  | 0  | 1  | 1  | 0  | 1  | 0  | 1  | 1  |
            －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
16進制串：  |         C         |         D         |         6         |         B         |
            －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

不足8位的位組的狀態值參考：

位地址：    | 56 | 55 | 54 | 53 | 52 |
            －－－－－－－－－－－－－
各位賦值:   | 0  | 1  | 0  | 1  | 1  |
            －－－－－－－－－－－－－
16進制串：  | 1  |         B         |
            －－－－－－－－－－－－－

在讀取錯誤或不能讀取的情況下返回“Error@”

注：沒有注冊的用戶只能讀取00001～00006范圍的狀態值；

2)、02功能碼位元件的讀取(取得一組開關輸入狀態數據)

Function FCN02(nport,node,address,Count:longint):Pchar;stdcall;

參數：

nport:   串口號，取值為1～8，代表COM1～COM8;

node：   modbus從站號，取值1～255；

address: 元件地址，取值范圍從10001~1XXXX地址區(開關輸入狀態)值(你要讀標準modbus的10001地址這個值為0000，依次類推)

Count:   讀取的位元件個數，一次最多讀取1000個但不能超出尋址范圍；

返回值： 16進制字符串數據,字符串數據的終止符為"@";

使用舉例：

FCN02(1,1,196,22),由COM1讀取modbus 1號從站10197～10218(標準modbus地址)的位狀態值，返回值為“ACDB35@”

則表示10204~10197:AC, 10212~10205:DB, 10218~10213:35；

在讀取錯誤或不能讀取的情況下返回“Error@”

注：沒有注冊的用戶只能讀取10001～10006范圍的狀態值；

3)、03功能碼字元件的讀取(讀多個保持寄存器數據)

Function FCN03(nport,node,address,Count:longint):Pchar;stdcall;

參數：

nport:   串口號，取值為1～8，代表COM1～COM8;

node：   modbus從站號，取值1～255；

address: 元件地址，取值范圍從40001~4XXXX地址區(保持寄存器數據)值(你要讀標準modbus的40001地址這個值為0000，依次類推)

Count:   讀取的位元件個數，一次最多讀取60個但不能超出尋址范圍；

返回值： 16進制字符串數據,字符串數據的終止符為"@";

使用舉例：

FCN03(1,1,107,3),由COM1讀取modbus 1號從站40108～40110(標準modbus地址)的字狀態值，返回值為“022B00000064@”

則表示40108:022B, 40109:0000, 40110:0064；

在讀取錯誤或不能讀取的情況下返回“Error@”

注：沒有注冊的用戶只能讀取40001～40003范圍的狀態值；

4)、04功能碼字元件的讀取(讀多個輸入寄存器數據)

Function FCN04(nport,node,address,Count:longint):Pchar;stdcall;

參數：

nport:   串口號，取值為1～8，代表COM1～COM8;

node：   modbus從站號，取值1～255；

address: 元件地址，取值范圍從30001~3XXXX地址區(輸入寄存器數據)值(你要讀標準modbus的30001地址這個值為0000，依次類推)

Count:   讀取的位元件個數，一次最多讀取60個但不能超出尋址范圍；

返回值： 16進制字符串數據,字符串數據的終止符為"@";

使用舉例：

FCN04(1,17,8,1),由COM1讀取modbus 17號從站30009(標準modbus地址)的字狀態值，返回值為“000A@”

則表示30009:000A；

在讀取錯誤或不能讀取的情況下返回“Error@”

注：沒有注冊的用戶只能讀取30001～30003范圍的狀態值；

4、modbus相應功能碼所對應的寫入功能函數

1)、05功能碼線圈的置復位功能函數

    1、線圈置位
            
       Function FCN05S(nport,node,address:longint):longint;stdcall;

參數：

nport:   串口號，取值為1～8，代表COM1～COM8;

node：   modbus從站號，取值1～255；

address: 元件地址，取值范圍從00001~0XXXX地址區(邏輯線圈)值(你要寫標準modbus的00001地址這個值為0000，依次類推)

返回值： 長整數，操作成功返回1，不能寫入或操作錯誤返回0；

使用舉例：

FCN05S(1,12,15),由COM1將modbus 12號從站00013(標準modbus地址)的位狀態值置1，返回值為1表示成功

注：沒有注冊的用戶只能寫入00001～00006范圍的狀態值；

       2、線圈復位
            
       Function FCN05R(nport,node,address:longint):longint;stdcall;

參數：

nport:   串口號，取值為1～8，代表COM1～COM8;

node：   modbus從站號，取值1～255；

address: 元件地址，取值范圍從00001~0XXXX地址區(邏輯線圈)值(你要寫標準modbus的00001地址這個值為0000，依次類推)

返回值： 長整數，操作成功返回1，不能寫入或操作錯誤返回0；

使用舉例：

FCN05R(1,12,15),由COM1將modbus 12號從站00013(標準modbus地址)的位狀態值置0，返回值為1表示成功

注：沒有注冊的用戶只能寫入00001～00006范圍的狀態值；

2)、06功能碼預置單保持寄存器數據功能函數

Function FCN06(nport,node,address:longint;Sendstr:pchar):longint;stdcall;

參數：

nport:   串口號，取值為1～8，代表COM1～COM8;

node：   modbus從站號，取值1～255；

address: 元件地址，取值范圍從40001~4XXXX地址區(保持寄存器)值(你要寫標準modbus的40001地址這個值為0000，依次類推)

Sendstr: 寫入字值，該值為4個一組的16進制字符串組成其取值為0000～FFFF(整數值為0～65535)；

返回值： 長整數，操作成功返回1，不能寫入或操作錯誤返回0；

當要寫入字值時依次排列即可。如給40001寫值1000，先將1000轉成16進制字符串03E8，則sendstr=03E8；

使用舉例：

FCN06(1,2,2,"03E8"),由COM1給modbus 2號從站40003(標準modbus地址)的字單元寫入1000(16進制03E8)，返回值為1表示成功

注：沒有注冊的用戶只能寫入40001～40003范圍的狀態值；

（00001～0XXXX）

3)、15功能碼強置多線圈的通斷數據功能函數

Function FCN15(nport,node,address,Count:longint;Sendstr:pchar):longint;stdcall;

參數：

nport:   串口號，取值為1～8，代表COM1～COM8;

node：   modbus從站號，取值1～255；

address: 元件地址，取值范圍從00001~0XXXX地址區(邏輯線圈)值(你要寫標準modbus的00001地址這個值為0000，依次類推)

Count：  寫入位元件個數，一次最多1000個但不能超出尋址范圍；

Sendstr: 給位元件寫入的值按8個為一組和成字節值在寫入，該值為2個一組的16進制字符串組其取值為00～FF(整數值為0～255)；

返回值： 長整數，操作成功返回1，不能寫入或操作錯誤返回0；

                  －－－－－－－－－－ － ~ － －－－－－－
寫字符串序列如：  | 00 | FF | 10 | 64 |   ~    | 08 | 04 |
                  －－－－－－－－－－ － ~ － －－－－－－

實際字符串與位地址的數值應如下表：  
          
位地址：    | 40 | 39 | 38 | 36 | 35 | 34 | 33 | 32 | 48 | 47 | 46 | 45 | 44 | 43 | 42 | 41 |
            －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
各位賦值:   | 0  | 1  | 1  | 0  | 0  | 1  | 0  | 0  | 0  | 1  | 0  | 1  | 0  | 0  | 0  | 0  |
            －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
16進制串：  |         6         |         4         |         5         |         0         |
            －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

使用舉例：

FCN06(1,2,19,10,"CD01"),由COM1給modbus 2號從站00020~00029(標準modbus地址)10個位單元寫如相應值，返回值為1表示成功

寫入值的參考 27～20:CD; 29~28:01;

位地址：    | 27 | 26 | 25 | 24 | 23 | 22 | 21 | 20 | -- | -- | -- | -- | -- | -- | 29 | 28 |
            －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
各位賦值:   | 1  | 1  | 0  | 0  | 1  | 1  | 0  | 1  | 0  | 0  | 0  | 0  | 0  | 0  | 0  | 1  |
            －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
16進制串：  |         C         |         D         |         0         |         1         |
            －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

注：沒有注冊的用戶只能寫入00001～00006范圍的狀態值；

4)、16功能碼寫多個保持寄存器數據功能函數

Function FCN16(nport,node,address,Count:longint;Sendstr:pchar):longint;stdcall;

參數：

nport:   串口號，取值為1～8，代表COM1～COM8;

node：   modbus從站號，取值1～255；

address: 元件地址，取值范圍從40001~4XXXX地址區(保持寄存器)值(你要寫標準modbus的40001地址這個值為0000，依次類推)

Count：  寫入字元件個數，一次最多60個但不能超出尋址范圍；

Sendstr: 給字寫入的值，該值為4個一組的16進制字符串組其取值為0000～FFFF(整數值為0～65535)；

返回值： 長整數，操作成功返回1，不能寫入或操作錯誤返回0；

當要寫入多個字值時依次排列即可。如給40001與40002寫值100和1000，先將100轉成16進制字符串0064、1000轉成16進制字符串03E8，

則sendstr=006403E8；一次最多寫64個字即字符串長應小于等于256;

                            －－－－－－－－－－ －－－－   ~  －－－－－－－－－
寫字符串序列如:             | 0064 | 03E8 | 0010 | 6004 |   ~     | 0008 | 0400 |
                            －－－－－－－－－－ －－－－   ~  －－－－－－－－－

使用舉例：

FCN16(1,2,1,"000A0102"),由COM1給modbus 2號從站40002(標準modbus地址)的字單元寫入給10(16進制000A)、40003(標準modbus地址)

的字單元寫入給258(16進制0102)返回值為1表示成功；

注：沒有注冊的用戶只能寫入40001～40003范圍的狀態值；

5)、modbus功能碼16的擴展功能函數

       1、單保持寄存器的0～15相應位的置位 (40001.0－40001.15～4XXXX.0－4XXXX.15)
            
       Function FCN16_xSet(nport,node,address,Bit:longint):longint;stdcall;

參數：

nport:   串口號，取值為1～8，代表COM1～COM8;

node：   modbus從站號，取值1～255;

address: 元件地址，取值范圍從40001~4XXXX地址區(保持寄存器)值(你要寫標準modbus的40001地址這個值為4000，依次類推)

Bit:     保持寄存器的位，取值0～15;

返回值： 長整數，操作成功返回1，不能寫入或操作錯誤返回0；

使用舉例：

FCN16_xSet(1,12,2,0),由COM1將modbus 12號從站40003(標準modbus地址)的第0個位狀態值置1，返回值為1表示成功

注：沒有注冊的用戶不能使用本功能；

        2、單保持寄存器的0～15相應位的復位 (40001.0－40001.15～4XXXX.0－4XXXX.15)
            
        Function FCN16_xReset(nport,node,address,Bit:longint):longint;stdcall;

參數：

nport:   串口號，取值為1～8，代表COM1～COM8;

node：   modbus從站號，取值1～255;

address: 元件地址，取值范圍從40001~4XXXX地址區(保持寄存器)值(你要寫標準modbus的40001地址這個值為4000，依次類推)

Bit:     保持寄存器的位，取值0～15;

返回值： 長整數，操作成功返回1，不能寫入或操作錯誤返回0；

使用舉例：

FCN16_xReset(1,10,3,12),由COM1將modbus 10號從站40004(標準modbus地址)的第12個位狀態值置0，返回值為1表示成功

注：沒有注冊的用戶不能使用本功能；

        3、單保持寄存器的0～15相應位的置復位 (40001.0－40001.15～4XXXX.0－4XXXX.15)指使相應的位短時間通斷一次(接通約60ms)
            
        Function FCN16_xSetReset(nport,node,address,Bit:longint):longint;stdcall;

參數：

nport:   串口號，取值為1～8，代表COM1～COM8;

node：   modbus從站號，取值1～255;

address: 元件地址，取值范圍從40001~4XXXX地址區(保持寄存器)值(你要寫標準modbus的40001地址這個值為4000，依次類推)

Bit:     保持寄存器的位，取值0～15;

返回值： 長整數，操作成功返回1，不能寫入或操作錯誤返回0；

使用舉例：

FCN16_xSetReset(1,10,9,10),由COM1將modbus 10號從站40010(標準modbus地址)的第10個位狀態值置1后約60ms再置0，返回值為1表示成功

注：沒有注冊的用戶不能使用本功能；

四、DLL附加函數說明 (本段函數對未注冊用戶沒有限制，完全可以使用。)

1、串口打開狀態的讀取

Function ComTrue(nport:longint):longint;stdcall;

參數：

noprt: 串口號，取值為1～8，代表COM1～COM8;

返回值：長整型，串口成功打開返回“1”，否則返回“0”;

這里讀取是DLL有效取得了串口的控制權，如果其他程序占用(串口不存在)等原因仍返回“0”。

2、整數轉換成16進制字符串 (為VC等非RAD開發環境所增設)

Function CIntToHex(Dcint,Digits:Longint):Pchar;stdcall;

參數：

Cint: 待轉換整數，取值為（0～65535）;

Digits: 轉換的字符串位數，指定位數小于實際位數時按實際輸出;

在參數錯誤等非法的情況下返回“Error@”

使用舉例：

CIntToHex(200,2),則返回字符串“C8@”;
CIntToHex(200,4),則返回字符串“00C8@”;
CIntToHex(200,8),則返回字符串“000000C8@”;
CIntToHex(4500,4),則返回字符串“1194@”;
CIntToHex(4500,3),則返回字符串“1194@”，因為“194”不足以表示4500這個數所以按實際輸出字符串“1194@”;

"@"為字符串數據的終止符。

3、16進制字符串轉換成整數 (為VC等非RAD開發環境所增設)

Function CHexToInt(CHex:Pchar):Longint;stdcall;

參數：

CHex: 待轉換字符串，取值為（0000～FFFF）;

使用舉例：

CHexToInt("03E8"),則返回整數1000;

注：在參數不正確等出錯情況下返回值為“-1”。

4、抽取(0～65535)所示整數中(0～15)某個位的值

Function CinBin(CHex,Start:longint):longint;stdcall;

參數：

CHex: 待轉換整數，取值為0～65535(0000～FFFF);

Start: 抽取的位，取值為（0～15）;

使用舉例：

CinBin(15,3),則返回值1;
CinBin(15,4),則返回值0;
CinBin(1000,6),則返回值1;

讀取MB0組合成的字節值為“FC”(252)時，要讀取M0.1的值時，則調用CinBin(252,1)返回值0表示M0.1的值為0。

注：在參數不正確等出錯情況下返回值為“-1”。

5、返回字符串Text左邊的Count個字符  (為VC等非RAD開發環境所增設)

Function CLeftStr(Text:Pchar;Count:longint):Pchar;stdcall;

參數：

Text: 字符串原型;

Count: 指定返回左側字符串個數;

在參數錯誤等非法的情況下返回“Error@”

使用舉例：

CleftStr("123456", 3) = "123@";

"@"為字符串數據的終止符。

6、返回字符串Text右邊的Count個字符  (為VC等非RAD開發環境所增設)

Function CRightStr(Text:Pchar;Count:longint):Pchar;stdcall;

參數：

Text: 字符串原型;

Count: 指定返回右側字符串個數

在參數錯誤等非法的情況下返回“Error@”

使用舉例：

CRightStr("123456", 3) = "456@";

"@"為字符串數據的終止符。

7、返回字符串Text從Start開始的Count個字符 (為VC等非RAD開發環境所增設)

Function CMidStr(Text:Pchar;Start,Count:longint):Pchar;stdcall;

參數：

Text: 字符串原型;

Start: 指定返回字符串的起始位置;

Count: 指定返回字符串個數;

在參數錯誤等非法的情況下返回“Error@”

使用舉例：

CMidStr("123456",2，3) = "234@";

"@"為字符串數據的終止符。

8、字符串Cstr開始于字符串Ostr的位置 (為VC等非RAD開發環境所增設)

Function Cinstr(Ostr,Ckstr:Pchar;Dcint:Longint):Longint;stdcall;

參數：

Ostr:  字符串原型;

Cstr:  查詢的字符串;

Dcint: 設定查詢字符串的起始位置,取值>=1,即最少從源字符串的第一個字符開始查詢；

返回值：長整型;

使用舉例：

CinStr("1Tfdg23456","2",2) = 6

注：在參數不正確等出錯情況下返回值為“0”。

9、PC喇叭的報警過程函數；

Function MyBeep(SoundHz:longint):longint;stdcall;

參數:SoundHz:長整型;

返回值:長整型,操作成功返回“1”，否則返回“0”。

使用舉例：

MyBeep(2000); 按2000的頻率發出報警聲。

DLL中關于傳出字符串值的函數都以"@"為字符串函數值終止符，這是對多開發環境應用時方便用戶正確讀取返回字符串數據而設。

五、Delphi、VB、VC語言環境的開發使用說明

1、Delphi語言環境開發說明

在Delphi環境下將modbus.dll、serialmodbus.slip(許可文件)復制到應用程序目錄下(即將上述文件與編譯后的可執行文件方入同一文件內);

在工程文件的主程序窗體(pas)文件中聲明：

  Function ComOpen(nport,BaudRate,DataBits,Parity,StopBits:longint;User:Pchar):longint;stdcall;External'modbus.dll';
  Function ComClose(nport:longint):longint;stdcall;External'modbus.dll';
  Function FCN01(nport,node,address,Count:longint):Pchar;stdcall;External'modbus.dll';
  Function FCN02(nport,node,address,Count:longint):Pchar;stdcall;External'modbus.dll';
  Function FCN03(nport,node,address,Count:longint):Pchar;stdcall;External'modbus.dll';
  Function FCN04(nport,node,address,Count:longint):Pchar;stdcall;External'modbus.dll';
  Function FCN05S(nport,node,address:longint):longint;stdcall;External'modbus.dll';
  Function FCN05R(nport,node,address:longint):longint;stdcall;External'modbus.dll';
  Function FCN06(nport,node,address:longint;Sendstr:pchar):longint;stdcall;External'modbus.dll';
  Function FCN15(nport,node,address,Count:longint;Sendstr:pchar):longint;stdcall;External'modbus.dll';
  Function FCN16(nport,node,address,Count:longint;Sendstr:pchar):longint;stdcall;External'modbus.dll';
  Function FCN16_xSet(nport,node,address,Bit:longint):longint;stdcall;External'modbus.dll';
  Function FCN16_xReset(nport,node,address,Bit:longint):longint;stdcall;External'modbus.dll';
  Function FCN16_xSetReset(nport,node,address,Bit:longint):longint;stdcall;External'modbus.dll';
  Function ComTrue(nport:longint):longint;stdcall;External'modbus.dll';
  Function MyBeep(SoundHz:longint):longint;stdcall;External'modbus.dll';

其它附加函數Delphi有實用函數，建議用Delphi自帶函數，如需使用聲明參照上例;

注：所有DLL的函數必須聲明方能使用，建議本DLL的聲明采用示例所示的靜態聲明方式。 聲明后可以在程序中使用這些函數，附加函數

中除ComTrue、CinBin、MyBeep等Delphi系統自帶有類似功能函數。通信時必須先使用ComOpen函數打開串口，在串口打開后可以有效操作

相關函數，為確保通信可在程序運行開始時打開串口，程序退出前關閉串口。應用程序退出之前請務必將關閉所有串口，如串口沒有關閉

而退出程序將拋出異常錯誤。

確保應用程序在關閉釋放前關閉打開的串口。解決方法，在form的OnDestroy事件中加入如下語句：

for i:=1 to 8 do
begin
  if ComTrue(i)=1 then ComClose(i);
end;

在Delphi中給中給DLL中的函數傳pchar值問題,建議string型轉換到Pchar型采用strPCopy()函數,Pchar型轉換到string型采用straps()函數，

不推薦使用直接轉換法即string到Pchar類型采用Mpchar=Pchar(str)，Pchar到string采用str:=Mpchar (str為string類型、Mpchar為Pchar

類型)。上述可以詳細參照DEMO程序。

2、VB語言環境開發說明

在VB環境下將modbus.dll、serialmodbus.slip(許可文件)復制到應用程序目錄下(即將上述文件與編譯后的可執行文件方入同一文件夾內);

函數說明中給出的是Delphi的函數原型，在VB中聲明時只要注意一下類型的對應即可Delphi中的longint類型對應VB中的Long類型、

Delphi中的Pchar對應VB中的String類型，下面給出主要函數的聲明：

Private Declare Function ComOpen Lib "modbus.dll" (ByVal nport As Long, ByVal BaudRate As Long, ByVal DataBits As Long, ByVal Parity As Long, ByVal StopBits As Long, ByVal User As String) As Long
Private Declare Function ComClose Lib "modbus.dll" (ByVal nport As Long) As Long
Private Declare Function FCN01 Lib "modbus.dll" (ByVal nport As Long, ByVal node As Long, ByVal address As Long, ByVal Count As Long) As String
Private Declare Function FCN02 Lib "modbus.dll" (ByVal nport As Long, ByVal node As Long, ByVal address As Long, ByVal Count As Long) As String
Private Declare Function FCN03 Lib "modbus.dll" (ByVal nport As Long, ByVal node As Long, ByVal address As Long, ByVal Count As Long) As String
Private Declare Function FCN04 Lib "modbus.dll" (ByVal nport As Long, ByVal node As Long, ByVal address As Long, ByVal Count As Long) As String
Private Declare Function FCN05S Lib "modbus.dll" (ByVal nport As Long, ByVal node As Long, ByVal address As Long) As Long
Private Declare Function FCN05R Lib "modbus.dll" (ByVal nport As Long, ByVal node As Long, ByVal address As Long) As Long
Private Declare Function FCN06 Lib "modbus.dll" (ByVal nport As Long, ByVal node As Long, ByVal address As Long, ByVal Sendstr As String) As Long
Private Declare Function FCN15 Lib "modbus.dll" (ByVal nport As Long, ByVal node As Long, ByVal address As Long, ByVal Count As Long, ByVal Sendstr As String) As Long
Private Declare Function FCN16 Lib "modbus.dll" (ByVal nport As Long, ByVal node As Long, ByVal address As Long, ByVal Count As Long, ByVal Sendstr As String) As Long
Private Declare Function FCN16_xSet Lib "modbus.dll" (ByVal nport As Long, ByVal node As Long, ByVal address As Long, ByVal Bit As Long) As Long
Private Declare Function FCN16_xReset Lib "modbus.dll" (ByVal nport As Long, ByVal node As Long, ByVal address As Long, ByVal Bit As Long) As Long
Private Declare Function FCN16_xSetReset Lib "modbus.dll" (ByVal nport As Long, ByVal node As Long, ByVal address As Long, ByVal Bit As Long) As Long
Private Declare Function ComTrue Lib "modbus.dll" (ByVal nport As Long) As Long
Private Declare Function MyBeep Lib "modbus.dll" (ByVal SoundHz As Long) As Long
Private Declare Function CinBin Lib "modbus.dll" (ByVal CHex As Long, ByVal start As Long) As Long

其它附加函數VB有實用函數，建議用VB自帶函數，如需使用聲明參上面的例子給相應的函數聲明;做完上述聲明后，便可以在程序中使用

相關函數了。本DLL是串口通信庫，通信時必須先使用ComOpen函數打開串口，在串口打開后可以有效操作相關函數，為保證通信可以在

程序運行開始時打開串口，程序退出前關閉串口。在應用程序關閉之前請務必將關閉所有串口，如您的程序串口沒有關閉退出程序將拋

出異常。當出現這樣的異常請更改您的程序，確保應用程序在關閉釋放前關閉所打開的串口。

解決方法，在form的Unload事件中加入如下例：

If ComTrue(1)=1 then
  ComClose(1)
End if

為確保Unload事件有效執行程序中不應使用“End”語句，而盡量使用“Unload”語句釋放所有窗體，因使用“End”語句系統不會執行

正常的窗體釋放等事件而直接退出程序，如程序中有form1，form2兩個窗體，則使用下面語句：

Unload  form1
Unload  form2

VB會在所有窗體關閉后釋放所有占用資源。上述可以詳細參照DEMO程序。當然也可在使用“End”語句前將串口關閉也是可以釋放串口的。

3、VC語言環境開發說明

在VC環境下將modbus.dll、serialmodbus.slip(許可文件)復制到應用程序目錄下(即將上述文件與編譯后的可執行文件方入同一文件夾內);

在VC中使用DLL一般都是采用動態聲明的方式，函數說明中給出的是Delphi的函數原型，在VC中聲明時只要注意一下類型的對應即可

Delphi中的longint類型對應VC中的Long類型、Delphi中的Pchar對應VC中的char* 類型，下面給出主要函數的聲明：

在工程主文件cpp中聲明一個句柄：

HINSTANCE m_handle;

用來標識導入的動態鏈接庫。

1)、導入動態鏈接庫，如例所示：

   m_handle =:: LoadLibrary("modbus.dll");

2)、按下例說明聲明相關各個函數：

typedef long (CALLBACK* pOpen)(long nport, long BaudRate, long DataBits, long Parity, long StopBits, char* User);
typedef long (CALLBACK* pClose)(long nport);
typedef char* (CALLBACK* pFCN01)(long nport, long node, long address, long Count);
typedef char* (CALLBACK* pFCN02)(long nport, long node, long address, long Count);
typedef char* (CALLBACK* pFCN03)(long nport, long node, long address, long Count);
typedef char* (CALLBACK* pFCN04)(long nport, long node, long address, long Count);
typedef long (CALLBACK* pFCN05S)(long nport, long node, long address);
typedef long (CALLBACK* pFCN05R)(long nport, long node, long address);
typedef long (CALLBACK* pFCN06)(long nport, long node, long address, char* Sendstr);
typedef long (CALLBACK* pFCN15)(long nport, long node, long address, long Count, char* Sendstr);
typedef long (CALLBACK* pFCN16)(long nport, long node, long address, long Count, char* Sendstr);
typedef long (CALLBACK* pFCN16_xSet)(long nport, long node, long address, long Bit);
typedef long (CALLBACK* pFCN16_xReset)(long nport, long node, long address, long Bit);
typedef long (CALLBACK* pFCN16_xSetReset)(long nport, long node, long address, long Bit);
typedef long (CALLBACK* pTrue)(long nport);
typedef char* (CALLBACK* pIntHex)(long Dcint,long Digits);
typedef long (CALLBACK* pHexInt)( char* CHex);
typedef long (CALLBACK* pBin)( long Chex, long Start);
typedef char* (CALLBACK* pLeft)( char* Text, long Count);
typedef char* (CALLBACK* pRight)( char* Text, long Count);
typedef char* (CALLBACK* pMid)( char* Text, long  Start, long Count);
typedef long (CALLBACK* pinstr)( char* Ostr, char* Ckstr, Long Dcint);
typedef long (CALLBACK* pBeep)( long SoundHz);

3)、聲明并建立動態鏈接庫中的函數與新函數名的對應關系，如下：

pOpen Copen = (pOpen)GetProcAddress(m_handle,"ComOpen");
pClose Cclose = (pClose)GetProcAddress(m_handle,"ComClose");
pFCN01 CFCN01 = (pFCN01)GetProcAddress(m_handle,"FCN01");
pFCN02 CFCN02 = (pFCN02)GetProcAddress(m_handle,"FCN02");
pFCN03 CFCN03 = (pFCN03)GetProcAddress(m_handle,"FCN03");
pFCN04 CFCN04 = (pFCN04)GetProcAddress(m_handle,"FCN04");
pFCN05S CFCN05S = (pFCN05S)GetProcAddress(m_handle,"FCN05S");
pFCN05R CFCN05R = (pFCN05R)GetProcAddress(m_handle,"FCN05R");
pFCN15 CFCN15 = (pFCN15)GetProcAddress(m_handle,"FCN15");
pFCN16 CFCN16 = (pFCN16)GetProcAddress(m_handle,"FCN16");
pFCN16_xSet CFCN16_xSet = (pFCN16_xSet)GetProcAddress(m_handle,"FCN16_xSet");
pFCN16_xReset CFCN16_xReset = (pFCN16_xReset)GetProcAddress(m_handle,"FCN16_xReset");
pFCN16_xSetReset CFCN16_xSetReset = (pFCN16_xSetReset)GetProcAddress(m_handle,"FCN16_xSetReset");
pTrue Ctrue = (pTrue)GetProcAddress(m_handle," ComTrue");
pIntHex Cinthex = (pIntHex)GetProcAddress(m_handle," CIntToHex");
pHexInt Chexint = (pHexInt)GetProcAddress(m_handle," CHexToInt");
pBin Cbin = (pBin)GetProcAddress(m_handle," CinBin");
pLeft Cleft = (pLeft)GetProcAddress(m_handle," CLeftStr");
pRight Cright = (pRight)GetProcAddress(m_handle," CRightStr");
pMid Cmid= (pMid)GetProcAddress(m_handle," CMidStr");
pinstr Cinstr=(pinstr)GetProcAddress(m_handle," CinStr");
pTrue CBeep = (pBeep)GetProcAddress(m_handle," MyBeep");

注：雙引號中為動態鏈接庫中的函數名。

4)、接下來就可以自由使用動態鏈接庫中的函數了，如：

Copen(參數略);
Cclose(參數略);
CFCN01(參數略);
CFCN02(參數略);
CFCN03(參數略);
CFCN04(參數略);
CFCN05S(參數略);
CFCN05R(參數略);
CFCN15(參數略);
CFCN16(參數略);
CFCN16_xSet(參數略);
CFCN16_xReset(參數略);
CFCN16_xSetReset(參數略);
Ctrue(參數略);
Cinthex(參數略);
Chexint(參數略);
Cbin(參數略);
Cleft(參數略);
Cright(參數略);
Cmid(參數略);
Cinstr(參數略);
CBeep(參數略);

注：函數中用到了char*型參數，這里介紹下char*與Cstring的相互轉換的函數：

(1)char*->CString

char* sz;
CString str;
str.Format("%s",sz);  //可以用此函數將讀取的值轉成字符串

(2) CString -> char*

CString str;
char* sz = str.GetBuffer(0);//可將字符串轉成char*給函數賦值


5)、當不再需要使用DLL時記得關閉串口及釋放動態鏈接庫，如:

關閉串口

if cTrue(1)==1 then
{
  cClose(1);
}

6）、釋放DLL

FreeLibrary(m_handle);

六、詳細的DLL使用請參DEMO程序，相關DEMO程序和說明所使用的開發環境VB指的是VB6.0，Delphi指的是Delphi6.0/Delphi7.0,

VC指的是VC6.0。如果使用了高版本開發環境請根據開發軟件更新后所兼容的聲明方式進行聲明調用。VC的串口調用沒DEMO程序

請參照本手冊的說明進行調用(本說明的方法經過測試是可行有效的)。

DLl已經過使用和測試具有很好的穩定性(測試平臺為Win2000/WinXP)，目前還沒有用戶方面返回的缺陷報告，如果你在使用過程中發現

有什么缺陷也請和我聯系，我將在最短時間內給你更新升級(更新升級只針對注冊用戶)。

作者：  wjun7610
QQ：    157610979
淘寶店：http://shop34821629.taobao.com