2. 程式人生 > >Delphi 串列埠通訊(1)

Delphi 串列埠通訊(1)

阿新 • • 發佈：2019-01-10
利用 Delphi實現串列埠通訊的常用的方法有 3種： 一是利用控制元件，如 MSCOMM控制元件和 SPCOMM控制元件； 二是使用 API函式； 三是呼叫其他串列埠通訊程式。其中利用 API編寫串列埠通訊程式較為複雜，需要掌握大量的通訊知識。相比較而言， 利用 SPCOMM控制元件則相對較簡單，並且該控制元件具有豐富的與串列埠通訊密切相關的屬性及事件，提供了對串列埠的各種操作，而且還支援多執行緒。下面本文結合例項詳細介紹 SPCOMM控制元件的使用。 SPCOMM的安裝 1．選擇下拉選單 Component中的 Install Component選項，彈出如圖 1所示的視窗。 圖 1 在 Unit file name處填寫 SPCOMM控制元件所在的路徑，其他各項可用預設值，點選 OK按鈕。 2．安裝後，在 System控制元件面板中將出現一個紅色控制元件 COM。現在就可以像 Delphi自帶控制元件一樣使用 COM控制元件了。 SPCOMM的屬性、方法和事件 1.屬性
●CommName：表示 COM1、 COM2等串列埠的名字； ●BaudRate:根據實際需要設定的波特率，在串列埠開啟後也可更改此值，實際波特率隨之更改； ●ParityCheck：表示是否需要奇偶校驗； ●ByteSize：根據實際情況設定的位元組長度； ●Parity：奇偶校驗位； ●StopBits：停止位； ●SendDataEmpty：這是一個布林型屬性，為 true時表示傳送快取為空，或者傳送佇列裡沒有資訊；為 false時表示傳送快取不為空，或者傳送佇列裡有資訊。 2．方法 ●Startcomm方法用於開啟串列埠，當開啟失敗時通常會報錯。錯誤主要有 7種：⑴串列埠已經開啟；⑵開啟串列埠錯誤；⑶檔案控制代碼不是通訊控制代碼；⑷不能夠安裝通訊快取；⑸不能產生事件；⑹不能產生讀程序；⑺不能產生寫程序； ●StopComm方法用於關閉串列埠，沒有返回值； ●WriteCommData(pDataToWrite: PChar;dwSizeofDataToWrite:Word )方法是個帶有布林型返回值的函式，用於將一個字串傳送到寫程序，傳送成功返回 true，傳送失敗返回 false。執行此函式將立即得到返回值，傳送操作隨後執行。該函式有兩個引數，其中 pDataToWrite是要傳送的字串， dwSizeofDataToWrite是傳送字串的長度。 3．事件 ●OnReceiveData :procedure (Sender: TObject;Buffer: Pointer;BufferLength: Word) of object 當有資料輸入快取時將觸發該事件，在這裡可以對從串列埠收到的資料進行處理。 Buffer中是收到的資料， BufferLength是收到的資料長度。 ●OnReceiveError : procedure(Sender: TObject; EventMask : DWORD) 當接收資料出現錯誤時將觸發該事件。 SPCOMM的使用
下面是一個利用 SPCOMM控制元件的串列埠通訊的例子。 以實現 PC機與微控制器 8051之間的通訊為例，首先要調通它們之間的握手訊號。假定它們之間的通訊協議是： PC到 8051一幀資料 6個位元組， 8051到 PC一幀資料也為 6個位元組。當 PC發出（ F0,01,FF,FF,01,F0）後 8051能收到一幀（ F0,01,FF,FF,01,F0），表示資料通訊握手成功，兩者之間就可以按照協議相互傳輸資料。 建立一個新的工程 COMM.DPR，把窗體的 NAME屬性定為 FCOMM，把窗體的標題定義為測試通訊，按照圖 2新增控制元件 (圖 2中黑色矩形圍住的控制元件即為 COMM1)。 圖 2 1.設定 COMM1屬性： ●波特率： 4800； ●奇偶校驗位：無； ●位元組長度： 8； ●停止位： 1； ●串列埠： COM1。 Memo1中將顯示傳送和接收的資料。將新的窗體儲存為 Comm.pas。 2.編寫原始碼 //變數說明 var fcomm: TFCOMM; viewstring:string; i:integer; rbuf,sbuf:array[16] of byte; //開啟串列埠 procedure TFCOMM.FormShow(Sender: TObject); begin comm1.StartComm; end; //關閉串列埠 procedure TFCOMM.FormClose(Sender: TObject; var Action: TCloseAction); begin comm1.StopComm; end; //自定義傳送資料過程 procedure senddata; var i:integer; commflg:boolean; begin viewstring:=‘’ ; commflg:=true; for i:=1 to 6 do begin if not fcomm.comm1.writecommdata(@sbuf[i],1) then begin commflg:=false; break; end; //傳送時位元組間的延時 sleep(2); viewstring:=viewstring＋ inttohex(sbuf[i],2)＋‘’ ; end; viewstring:=‘傳送’＋ viewstring; fcomm.memo1.lines.add(viewstring); fcomm.memo1.lines.add(‘’ ); if not commflg then messagedlg(‘傳送失敗 !’ ,mterror,[mbyes],0); end; //傳送按鈕的點選事件 procedure TFCOMM.Btn_sendClick(Sender: TObject); begin sbuf[1]:=byte(＄ f0); //幀頭 sbuf[2]:=byte(＄ 01); //命令號 sbuf[3]:=byte(＄ ff); sbuf[4]:=byte(＄ ff); sbuf[5]:=byte(＄ 01); sbuf[6]:=byte(＄ f0); //幀尾 senddata;//呼叫傳送函式 end; //接收過程 procedure TFCOMM.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word); var i:integer; begin viewstring:=‘’ ; move(buffer^,pchar(@rbuf^),bufferlength); for i:=1 to bufferlength do viewstring:=viewstring＋ inttohex(rbuf[i],2)＋‘’ ; viewstring:=‘接收’＋ viewstring; memo1.lines.add(viewstring); memo1.lines.add(‘’ ); end; 如果 memo1上顯示傳送 F0 01 FF FF 01 F0和接收到 F0 01 FF FF 01 F0，這表示串列埠已正確地傳送出資料並正確地接收到資料，則串列埠通訊成功。

相關推薦

Delphi 串列埠通訊(1)

利用 Delphi實現串列埠通訊的常用的方法有 3種： 一是利用控制元件，如 MSCOMM控制元件和 SPCOMM控制元件； 二是使用 API函式； 三是呼叫其他串列埠通訊程式。其中利用 API編寫串列埠通訊程式較為複雜，需要掌握大量的通訊知識。相比較而言， 利用 SPCOMM控制元件則

QT串列埠通訊(1)

       最近幫老師做的專案中使用到了QT串列埠，然後首先百度了一下，發現網上的QT串列埠程式碼都是同一個版本。而且沒有公開原始碼，遂自己寫了個簡單的串列埠通訊程式碼，並將它公佈出來，一方面供有需要的人蔘考，另一方面記錄下來，也可以防止自己忘記

Delphi使用SPCOMM串列埠通訊 串列埠號大於10出錯的解決辦法

用Delphi 7.0編寫串列埠讀寫程式，發現有些串列埠無法開啟，打開出錯。“Error opening serial port”。 經過百度查詢有參考文章解決，複製內容過來如下： 如果你已經會使用SPCOMM且出現10個以上的串列埠問題 請改一下串列埠名

ROS串列埠通訊（1）環境搭建

ROS串列埠通訊（1）環境搭建 引言 1、ubuntu串列埠驅動安裝和使用 1.1 安裝 1.2 使用 1.3 Ubuntu 檢視串列埠，設定串列埠許可權 2、Ubuntu下的串列埠助手cute

Delphi中串列埠通訊的實現

目前，利用 Delphi實現串列埠通訊的常用的方法有 3種：一是利用控制元件，如 MSCOMM控制元件和 SPCOMM控制元件；二是使用 API函式；三是呼叫其他串列埠通訊程式。其中利用 API編寫串列埠通訊程式較為複雜，需要掌握大量的通訊知識。相比較而言，利用 SPCOMM控制元件則相對較簡單，並且該控制元

九.ARM裸機學習之串列埠通訊詳解1（串列埠通訊介面及原理框圖詳解）

一.串列埠通訊的基本概念及原理理解 2017/11/12 22:52 1.同步通訊和非同步通訊： 非同步通訊：指通訊的傳送與接收裝置使用各自的時鐘控制資料的傳送和接收過程。為使雙方的收發協調，要求傳送和接收裝置的時鐘儘可能一致，即傳送方和接收方沒有統一的時鐘節拍、而各自按照

如何用Delphi開發串列埠通訊程式

       Delphi 是新一代視覺化開發工具，它具有功能強大、簡便易用和程式碼執行速度快等特點，Delphi系列開發工具在國際各媒體上曾獲得過三十多項大獎，是全球公認的快速應用開發工具技術的先驅者，他越來越在構架企業資訊系統方面發揮著重要作用。 它的功能很強大，但在對串列埠通訊的控制上Delphi的幫助

PHP在RS232串列埠通訊協議的應用演示[測試環境WinXP/PHP5.1.4]

一. 預先的知識： 什麼是RS232/RS484及其應用?QUOTE: RS232介面就是串列埠，電腦機箱後方的9芯(或25芯)插座，旁邊一般有 "|O|O|" 樣標識。  一般機箱有兩個，新機箱有可能只有一個。膝上型電腦有可能沒有。  有很多工業儀器將它作為標準通訊埠

USB硬體 鍵盤滑鼠控制器 Lao-UKM V3.1 易語言串列埠通訊簡單例子

易語言5.11下， 9600波特率  com2 先開啟埠，再發送資料， 滑鼠移動命令：              02 00 f6 00 00     5位  16進位制碼  易語言我轉換成10進位制傳送的：02 00 246 00 00 我發現我的win7 32位系統下，

用SPCOMM 在 Delphi中實現串列埠通訊

SPCOMM 控制元件的屬性設定很關鍵的，特別是使用事件驅動時接收大塊資料時尤為明顯，如果設定不當，接收到的資料可能嚴重出錯。根據本人經驗，要注意事項如下：ReadIntervalTimeout:=100SPCOMM 屬性時，所有 可設定 True 和 False 的屬性應當設定成 False；在接收資料時，

51 微控制器UART 串列埠通訊[ 方式1 ]實現

1  51序列口結構 51微控制器的UART序列通訊是基於其序列口的可程式設計硬體結構，只要用正確的程式程式碼通過初始化序列口對應暫存器的形式將其序列硬體結構初始化，再編寫符合此序列口通訊的程式程式碼

C/C++串列埠通訊（1）-同步操作

轉自： 串列埠通訊方式：呼叫Windows的API函式 兩種操作方式： 1. 同步操作方式 API函式會阻塞直到操作完成以後才能返回（在多執行緒方式中，雖然不會阻塞主執行緒，但是仍然會阻塞監聽執行緒）； 2. 重疊操作方式（又稱為非同

Delphi使用spcomm串列埠通訊 串列埠號大於10出錯的解決辦法 spcomm error opening serial port

//./com18是windows裡邊的SymbolLinkName，這個在WINAPI裡邊就需要這 樣寫，SPCOMM的這部分的原始碼如下： procedure TComm.StartComm; var    hNewCommFile:   THandle; begin      // Are w

【串列埠通訊】--執行緒應用（1）

一、前言： 關於串列埠通訊中的執行緒問題，本來是早就想總結一下的。但是在這兩個星期的學習過程中，發現自己原來的理解還是有很多的不全面的地方。通過兩個月的學習，自己對這塊的認識還是有了很大的提升，今

MFC串列埠通訊例項

參考MSComm控制元件的用法和函式說明。裡面講得也算詳細了。所以這裡直接獻上原始碼示例。 github下載地址 CSDN下載地址 效果如圖： 需要注意的是： 1.如果想同時recv/send，則必須加個執行緒。 2.奇偶校驗中，引數設定為，無（n），偶校驗（o），

C++實現串列埠通訊上位機軟體

串列埠使用的是RS232匯流排進行通訊，通訊方式是半雙工。有兩種方式可以實現串列埠通訊，一種是通過ActiveX控制元件這種方法程式簡單，但欠靈活。第二個是可以通過呼叫Windows的API函式，本例程通過第二種方式。 一般通過四步來完成通訊(1)開啟串列埠(2)配置串列埠(3)讀寫串列埠(4)

Boost串列埠通訊第一課 boost::asio::serial_port基本使用

boost庫有一個asio，支援串列埠通訊。步驟：　　1、產生一個boost::asio::io_service（前攝模式，類似於完成埠，不過，可以針對不同IO物件）　　2、構造一個boost::asio::serial_port，有兩種方法：　　　　　　（一）boost::asio::serial_po

CnComm多執行緒串列埠通訊類的封裝實現v0.02

 在CnComm多執行緒串列埠通訊類的封裝實現一文中實現了對於cncomm多執行緒串列埠類的簡單封裝，新版本將串列埠管理類改成了工廠類和單例類，實現了對於動態擴充套件新的串列埠，新的版本符合開閉原則。 1.串列埠管理類 #ifndef _COMM_MANAGE_H_ #def

Boost串列埠通訊第二課 阻塞問題

場景         按照第一課提供的程式碼，在阻塞等待時間多長，會導致Win10系統崩潰,崩潰的資訊如下： 1）第一種情形 終止程式碼：DRIVER_IRQL_NOT_LESS_EQUAL2）第二種情形  wd

在AT151上面測試串列埠通訊

如下圖所示，分別用putty開啟兩個視窗，一個是串列埠開啟的，另外一個是網口連線的，分別是接收和傳送，硬體上面RXD和TXD進行短接進行資料迴流。 使用microcom工具，ctrl+x可以退出 參考文件 https://www.cnblogs.com/chenfulin5/p/6089