delphi串口控件CPorts使用方法

 

1.选择端口

1 begin
2   EnumComPorts(ComboBox1.Items);
3   // do some stuff
4   if ComboBox1.ItemIndex > -1 then
5     ComPort1.Port := ComboBox1.Items[ComboBox1.ItemIndex];
6 end;

2. 打开和关闭端口

1 begin
2   ComPort1.Open; // open serial port
3   // do some stuff here
4   ComPort1.Close; // end session
5 end;

3.写串口

1 var
2   Str: String;
3 
4 begin
5   Str := 'Hello';
6   ComPort1.WriteStr(Str); // string type variable
7   ComPort1.Write(Str[1], Length(Str)); // no defined type
8 
9 end;

4.读串口

 1 procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
 2 var
 3   Str: String;
 4 begin
 5   ComPort1.ReadStr(Str, Count);
 6   // do something with Str variable
 7 end;
 8 
 9 
10 Example (outside OnRxChar)
11 
12 var
13 
14   Str: String;
15 
16 begin
17   // set timeouts here or at design time
18   ComPort1.ReadStr(Str, NumberOfBytes);
19   // do something with Str variable
20 end;
21 
22 
23 Example (inside OnRxBuf)
24 
25 procedure TForm1.ComPort1RxBuf(Sender: TObject; const Buffer; Count: Integer);
26 begin
27   // application does not have to read data from input buffer
28   // data is already in buffer parameter
29   HandleData(Buffer, Count); // handle data
30 
31 end;

5.存储串口配置

 1 begin
 2   // store settings to registry
 3   ComPort1.StoreSettings(stRegistry, '\HKEY_LOCAL_MACHINE\Software\ComPortTest');
 4   // load settings
 5  ComPort1.LoadSettings(stRegistry, '\HKEY_LOCAL_MACHINE\Software\ComPortTest');
 6 
 7 end;
 8 
 9 Example (Configuration file)
10 
11 begin
12   // store settings to configuration file
13   ComPort1.StoreSettings(stIniFile, 'c:\ComPortTest.ini');
14   // load settings
15   ComPort1.LoadSettings(stIniFile, 'c:\ComPortTest.ini');
16 end;
posted @ 2014-08-01 16:19  ljbqust  阅读(914)  评论(0)    收藏  举报