串口發送的資料格式是兩個包相見發送的沒有順序，其中包1是f5 0a 03 fa _ _ _ fa _ _ _ fa _ _ _.........fa _ _ _c0 00 和包2是f5 0b 02 fb _ _ fb_ _ fb _ _ .........fb _ _ c0 00（fa 0a 啥的都是16進制兩位資料）
(其中f5 oa o3和f5 ob o2 包頭，03和02是幀后面的資料長度）c0 00是包尾，fa和fb是每個幀頭，如何提取出來每個幀后面的劃線的三或者兩個資料并顯示在iplot框中),以及包尾前面的兩個資料顯示在memo框中
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, Registry, StdCtrls, iComponent, iVCLComponent,
iCustomComponent, iPlotComponent, iPlot, OleCtrls, MSCommLib_TLB;
type
TForm1 = class(TForm)
ComboBox1: TComboBox;
Label1: TLabel;
Label2: TLabel;
ComboBox2: TComboBox;
MSComm1: TMSComm;
Openport: TButton;
Exit: TButton;
clear: TButton;
findport: TButton;
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
Memo4: TMemo;
Memo5: TMemo;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
iPlot2: TiPlot;
iPlot1: TiPlot;
procedure MSComm1Comm(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure findportClick(Sender: TObject);
procedure clearClick(Sender: TObject);
procedure ExitClick(Sender: TObject);
procedure OpenportClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var //定義變數，全域變數
Form1: TForm1;
comindex:array[0..6] of integer;
indata :array [0..99900000] of integer;
a,b,j,k,h,d :integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Mscomm1.InBufferCount:=0; // 清空接識訓沖區，當前接識訓沖區接收到的資料的長度, count:=MSComm1.InBufferCount
Mscomm1.InputLen:=0; // Input讀取整個緩沖區內容 一次讀取所有資料
Mscomm1.OutBufferCount:=0; //清空發送緩沖區
a:=0;
b:=0;
j:=0;
k:=0;
h:=10;
end;
procedure TForm1.findportClick(Sender: TObject);
var //通過讀取注冊表來獲取，串口資訊都是保存在注冊表的這個位置
reg: TRegistry; //利用TRegistry物件來存取注冊表檔案中的資訊
ts: TStrings; //TStrings是一個抽象類，在實際開發中，可以操縱屬于組件(如TListBox)的字串串列
i: integer; //TStrings類定義了它的方法，但它并沒有實作這些方法來操縱字串。TStrings派生類實作了這些方法
begin
ts := TStringList.Create;
reg := TRegistry.Create; //創建TRegistry物件
reg.RootKey := HKEY_LOCAL_MACHINE; //指定根鍵,存盤當前系統的軟硬體配置資訊
reg.OpenKey('hardware\devicemap\serialcomm', true);
reg.GetValueNames(ts); //獲取主鍵下的資料值名稱
memo1.Lines.Add(ts[i]);
memo1.Lines.Add(reg.ReadString(ts[i]));
for i:=1 to ts.Count-1 do
begin //讀取串口號設定串口
ComboBox1.Items.Add(reg.ReadString(ts.Strings[i]));//String是一個基礎資料型別,而TStrings是一個類,該類的物件中每一行都是一個String
comindex[i]:=strtoint(reg.ReadString(ts.Strings[i])[4]);//指將字符型資料轉換為數值型資料
Memo1.Lines.Add(reg.ReadString(ts.Strings[i]));//把每一項下的串值(接收的文字)顯示在Memo1中
end;
ts.Free;
reg.CloseKey;
reg.free;
end;
procedure TForm1.OpenportClick(Sender: TObject);
var
ComSetting:String;
begin
if not MSComm1.PortOpen then
begin
MSComm1.CommPort:=comindex[ComboBox1.ItemIndex+1];
ComSetting:=ComboBox2.Text;
MSComm1.Settings:=ComSetting+',N,8,1';
MSComm1.InputMode:=comInputModeBinary;
MSComm1.PortOpen:=True;
end
else begin
MSComm1.PortOpen:=False;
end;
end;
procedure TForm1.ExitClick(Sender: TObject);
begin
if MSComm1.PortOpen = True then
begin
MSComm1.PortOpen:= False;
end;
Application.Terminate;
end;
procedure TForm1.MSComm1Comm(Sender: TObject);
var
SerialInput :variant;
i,c,d,inputlen :Integer;
y1,y2,y3,y4,y5,y6:Integer;
y11,y22,y33,y44,y55,y66,datastr1:string;
c1,c2:double;
begin
inputlen:=MSComm1.InBufferCount;
SerialInput:= MSComm1.Input;
for i:=0 to inputlen-1 do
begin
datastr1:=datastr1+' '+LowerCase(IntToHex(SerialInput[i],2));
indata[a]:= SerialInput[i];
inc(a);
end;
for i:=b to a-1 do
begin
if(indata[i]=$f5)and(indata[i+1]=$0a)and(indata[i+2]=$03)then
begin
for d:=i to a-4 do
begin
if (indata[d+3]=$fa)then
begin
if(indata[d+4]=$fa)then
begin
end
else
begin
y1:=indata[i+4]*256*256+indata[d+5]*256+indata[d+6];
y11:=FormatFloat('00.000',y1);
if TryStrToFloat(y11,c1) then
begin
iplot1.Channel[0].AddXY(j/h,c1);
end;
inc(j);
end;
end
else
begin
if(indata[d+3]=$c0)and(indata[d+4]=$00)then
begin
y2:=indata[d+1];
y3:=indata[d+2];
y22:=FormatFloat('00.000',y2);
y33:=FormatFloat('00.000',y3);
memo2.Lines.Add(y22);
memo3.Lines.Add(y33);
end;
end;
end;
end;
if(indata[i]=$f5)and(indata[i+1]=$0b)and(indata[i+2]=$02)then
begin
for c:=i to a-4 do
begin
if (indata[c+3]=$fb)then
begin
if(indata[c+4]=$fb)then
begin
end
else
begin
y4:=indata[c+4]*256+indata[c+5];
y44:=FormatFloat('00.000',y4);
if TryStrToFloat(y44,c2) then
begin
iplot2.Channel[0].AddXY(k/h,c2);
end;
inc(k);
end;
end
else
begin
if (indata[c+3]=$c0)and(indata[c+4]=$00)then
begin
y5:=indata[c+1];
y6:=indata[c+2];
y55:=FormatFloat('00.000',y5);
y66:=FormatFloat('00.000',y6);
memo4.Lines.Add(y55);
memo5.Lines.Add(y66);
end;
end;
end;
end;
end;
end;
procedure TForm1.clearClick(Sender: TObject);
begin
iplot1.Channel[0].Clear;
iplot1.Channel[1].Clear;
iplot2.Channel[0].Clear;
iplot2.Channel[1].Clear;
end;
end.
uj5u.com熱心網友回復：
建議你說一下，在哪行？或者哪段也行，出現out of memory的例外uj5u.com熱心網友回復：
@藍色光芒for i:=0 to inputlen-1 do
begin
datastr1:=datastr1+' '+LowerCase(IntToHex(SerialInput[i],2));
indata[a]:= SerialInput[i];
inc(a);
end;
在這一段出現的，這是接收串口發來的資料，每次串口發一包，則記錄一包，估計一直接收導致陣列無限增大，怎么樣才能把每接收的一包資料后清空，然后如何陣列從零開始記錄下一包呢。
uj5u.com熱心網友回復：
memo1.Lines.Add(ts[i]);memo1.Lines.Add(reg.ReadString(ts[i]));
for i:=1 to ts.Count-1 do
前面兩行，這里的i是什么?
uj5u.com熱心網友回復：
@看那山瞧那水 那是讀取系統的串口號uj5u.com熱心網友回復：
你的 indata :array [0..99900000] of integer; 陣列下標最大值99900000。a是全域變數，在Create事件中初始為0，在下面代碼中
for i:=0 to inputlen-1 do
begin
datastr1:=datastr1+' '+LowerCase(IntToHex(SerialInput[i],2));
indata[a]:= SerialInput[i];
inc(a);
end;
inc(a); 始終+1，最終它超過陣列indata陣列下標最大值99900000。此時就越界，out of memory了。
uj5u.com熱心網友回復：
我的意思是：這里的i是區域變數，還沒有賦值，這樣用，肯定是out of.... 比如這樣，才正常吧
memo1.Lines.Add(ts[0]);
memo1.Lines.Add(reg.ReadString(ts[0]));
for i:=1 to ts.Count-1 do
uj5u.com熱心網友回復：
@lyhoo163 那該怎么辦？意思是不是a的值是不是要釋放掉？應該怎么釋放掉？uj5u.com熱心網友回復：
for i:=0 to inputlen-1 do
begin
datastr1:=datastr1+' '+LowerCase(IntToHex(SerialInput[i],2));
indata[a]:= SerialInput[i];
inc(a);
if a>=99900000 then a:=0;
end;
加一名 if a>=99900000 then a:=0;試試。
uj5u.com熱心網友回復：
說得對，此處，你會出現“List index out of bounds"錯誤。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/56564.html
標籤：語言基礎/算法/系統設計