串口助手——基于spcomm

空瓶氧气

http://yunpan.cn/csAQN3sN3htqU  
还有很多的bug；哪个大神修改分享下

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
7.   Dialogs, SPComm, StdCtrls, ExtCtrls, ToolWin, ComCtrls, Menus,ShellAPI;
   
8. 
   
9. type
   
10.   TForm1 = class(TForm)
    
11.     Comm1: TComm;
    
12.     Panel1: TPanel;
    
13.     Button1: TButton;
    
14.     Edit1: TEdit;
    
15.     Button2: TButton;
    
16.     Memo1: TMemo;
    
17.     MainMenu1: TMainMenu;
    
18.     File1: TMenuItem;
    
19.     ComboBox1: TComboBox;
    
20.     ComboBox2: TComboBox;
    
21.     ComboBox3: TComboBox;
    
22.     ComboBox4: TComboBox;
    
23.     CheckBox1: TCheckBox;
    
24.     Set1: TMenuItem;
    
25.     N3: TMenuItem;
    
26.     OPEN1: TMenuItem;
    
27.     Save1: TMenuItem;
    
28.     CheckBox2: TCheckBox;
    
29.     Image1: TImage;
    
30.     N1: TMenuItem;
    
31.     N2: TMenuItem;
    
32.     Label1: TLabel;
    
33.     Label2: TLabel;
    
34.     Label3: TLabel;
    
35.     Label4: TLabel;
    
36.     procedure Button2Click(Sender: TObject);
    
37.     procedure Button1Click(Sender: TObject);
    
38.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
    
39.     procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
    
40.       BufferLength: Word);
    
41.     procedure FormCreate(Sender: TObject);
    
42.     procedure N2Click(Sender: TObject);
    
43.     procedure ComboBox4Change(Sender: TObject);
    
44.     procedure ComboBox1Change(Sender: TObject);
    
45.   private
    
46.     { Private declarations }
    
47.   public
    
48. 
    
49.     { Public declarations }
    
50.   end;
    
51. 
    
52. var
    
53.   Form1: TForm1;
    
54.   function StrToHex(Const str: Ansistring): Ansistring;
    
55.   function HexToStr(const Str: AnsiString): AnsiString;
    
56. implementation
    
57. 
    
58. {$R *.dfm}
    
59. var
    
60.   flag_ComOpen:Boolean = False;
    
61.   receivedata:string;
    
62. 
    
63. procedure TForm1.Button2Click(Sender: TObject);
    
64. begin
    
65.     if flag_ComOpen=False then
    
66.     Begin
    
67.       ComboBox1.Enabled :=False;
    
68.       Label1.Enabled :=False;
    
69.       ComboBox4.Enabled :=False;
    
70.       Label4.Enabled :=False;
    
71.       //Comm1.ByteSize := TByteSize(ComboBox2.Items.Strings[ComboBox2.ItemIndex]);
    
72.       //Comm1.StopBits := TStopBits(ComboBox3.Items.Strings[ComboBox3.ItemIndex ]);
    
73. 
    
74.       SLEEP(10);
    
75.       Comm1.StartComm;
    
76.       //Button2.Font.Color := clRed;
    
77.       Button2.Caption := '关闭串口';
    
78.       //Button2.Font.Color := clLime;
    
79.       flag_ComOpen:=True
    
80.     end
    
81.   else
    
82.   begin
    
83.     ComboBox1.Enabled :=True;
    
84.     ComboBox4.Enabled :=True;
    
85.     Label1.Enabled :=True;
    
86.     Label4.Enabled :=True;
    
87. 
    
88.     Comm1.StopComm ;
    
89.     Button2.Caption := '打开串口';
    
90.     flag_ComOpen:=False;
    
91.   end;
    
92. end;
    
93. 
    
94. procedure TForm1.Button1Click(Sender: TObject);
    
95. var
    
96. //flag_SendOK:Boolean;
    
97. //str:string;
    
98. n:integer;
    
99. p:pchar;
    
100. begin
     
101.     if CheckBox2.Checked =true then
     
102.       p:=pchar(HexToStr(Edit1.text))
     
103.     else
     
104.       p:=Pchar(Edit1.text);
     
105.     n:=length(p);
     
106.     if not (n=0) then
     
107.     begin
     
108.       //while not  flag_SendOK do
     
109.       //flag_SendOK:=Comm1.WriteCommData(p,n);
     
110.       Comm1.WriteCommData(p,n);
     
111.     end;
     
112. end;
     
113. 
     
114. 
     
115. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
     
116. begin
     
117.   if flag_ComOpen=True then
     
118.     Comm1.StopComm ;
     
119. end;
     
120. 
     
121. procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
     
122.   BufferLength: Word);
     
123. var
     
124.   pStr:pchar;
     
125. begin
     
126.   pStr := Buffer;
     
127.   receivedata:=receivedata+ pStr;
     
128. 
     
129.   if CheckBox1.Checked =true  then
     
130.    begin
     
131.     memo1.Text :=StrToHex(receivedata);
     
132.    end
     
133.    else
     
134.    begin
     
135.      memo1.Text :=receivedata;
     
136.    end;
     
137. 
     
138.    if length(receivedata)>1000 then
     
139.      receivedata := '';
     
140. 
     
141. end;
     
142. 
     
143. procedure TForm1.FormCreate(Sender: TObject);
     
144. begin
     
145.   ComboBox1.Items.Add('4800');
     
146.   ComboBox1.Items.Add('9600');
     
147.   ComboBox1.Items.Add('115200');
     
148. 
     
149.   //ComboBox2.Items.Add('_7');
     
150.   //ComboBox2.Items.Add('_8');
     
151. 
     
152.   //ComboBox3.Items.Add('1');
     
153.   //ComboBox3.Items.Add('2');
     
154. 
     
155.   ComboBox4.Items.Add('com1');
     
156.   ComboBox4.Items.Add('com2');
     
157.   ComboBox4.Items.Add('com3');
     
158.   ComboBox4.Items.Add('com4');
     
159.   ComboBox4.Items.Add('com5');
     
160. 
     
161. end;
     
162. 
     
163. function StrToHex(Const str: Ansistring): Ansistring;
     
164. asm
     
165.   push ebx
     
166.   push esi
     
167.   push edi
     
168.   test eax,eax
     
169.   jz   @@Exit
     
170.   mov  esi,edx       //保存edx值，用来产生新字符串的地址
     
171.   mov  edi,eax       //保存原字符串
     
172.   mov  edx,[eax-4]  //获得字符串长度
     
173.   test edx,edx      //检查长度    je   @@Exit      {Length(S) = 0}
     
174.   mov  ecx,edx       //保存长度
     
175.   Push ecx
     
176.   shl  edx,1
     
177.   mov  eax,esi
     
178.   {$IFDEF VER210}
     
179.   movzx ecx, word ptr [edi-12] {需要设置CodePage}
     
180.   {$ENDIF}
     
181.   call System.@LStrSetLength //设置新串长度
     
182.   mov  eax,esi       //新字符串地址
     
183.   Call UniqueString  //产生一个唯一的新字符串，串位置在eax中
     
184.   Pop   ecx
     
185. @@SetHex:
     
186.   xor  edx,edx       //清空edx
     
187.   mov  dl, [edi]     //Str字符串字符
     
188.   mov  ebx,edx       //保存当前的字符
     
189.   shr  edx,4         //右移4字节，得到高8位
     
190.   mov  dl,byte ptr[edx+@@HexChar] //转换成字符
     
191.   mov  [eax],dl      //将字符串输入到新建串中存放
     
192.   and  ebx,$0F       //获得低8位
     
193.   mov  dl,byte ptr[ebx+@@HexChar] //转换成字符
     
194.   inc  eax             //移动一个字节,存放低位
     
195.   mov  [eax],dl
     
196.   inc  edi
     
197.   inc  eax
     
198.   loop @@SetHex
     
199. @@Exit:
     
200.    pop  edi
     
201.    pop  esi
     
202.    pop  ebx
     
203.    ret
     
204.    @@HexChar:db '0123456789ABCDEF'
     
205. end;
     
206. 
     
207. function HexToStr(const Str: AnsiString): AnsiString;
     
208. asm
     
209.   push ebx
     
210.   push edi
     
211.   push esi
     
212.   test eax,eax //为空串
     
213.   jz   @@Exit
     
214.   mov  edi,eax
     
215.   mov  esi,edx
     
216.   mov  edx,[eax-4]
     
217.   test edx,edx
     
218.   je   @@Exit
     
219.   mov  ecx,edx
     
220.   push ecx
     
221.   shr  edx,1
     
222.   mov  eax,esi //开始构造字符串
     
223.   {$IFDEF VER210}
     
224.   movzx ecx, word ptr [edi-12] {需要设置CodePage}
     
225.   {$ENDIF}
     
226.   call System.@LStrSetLength //设置新串长度
     
227.   mov  eax,esi       //新字符串地址
     
228.   Call UniqueString  //产生一个唯一的新字符串，串位置在eax中
     
229.   Pop   ecx
     
230.   xor  ebx,ebx
     
231.   xor  esi,esi
     
232. @@CharFromHex:
     
233.   xor  edx,edx
     
234.   mov  dl, [edi]     //Str字符串字符
     
235.   cmp  dl, '0'  //查看是否在0到f之间的字符
     
236.   JB   @@Exit   //小于0，退出
     
237.   cmp  dl,'9'   //小于=9
     
238.   ja  @@DoChar//CompOkNum
     
239.   sub  dl,'0'
     
240.   jmp  @@DoConvert
     
241. @@DoChar:
     
242.   //先转成大写字符
     
243.   and  dl,$DF
     
244.   cmp  dl,'F'
     
245.   ja   @@Exit  //大于F退出
     
246.   add  dl,10
     
247.   sub  dl,'A'
     
248. @@DoConvert: //转化
     
249.   inc  ebx
     
250.   cmp  ebx,2
     
251.   je   @@Num1
     
252.   xor  esi,esi
     
253.   shl  edx,4
     
254.   mov  esi,edx
     
255.   jmp  @@Num2
     
256. @@Num1:
     
257.   add  esi,edx
     
258.   mov  edx,esi
     
259.   mov  [eax],dl
     
260.   xor  ebx,ebx
     
261.   inc  eax
     
262. @@Num2:
     
263.   dec  ecx
     
264.   inc  edi
     
265.   test ecx,ecx
     
266.   jnz  @@CharFromHex
     
267. @@Exit:
     
268.   pop  esi
     
269.   pop  edi
     
270.   pop  ebx
     
271. end;
     
272. 
     
273. 
     
274. procedure TForm1.N2Click(Sender: TObject);
     
275. begin
     
276.   ShellAbout(self.Handle ,
     
277.     PChar('v1.0'),
     
278.     pchar('By: apo'),
     
279.     HICON(0));
     
280. end;
     
281. 
     
282. procedure TForm1.ComboBox4Change(Sender: TObject);
     
283. begin
     
284.   Comm1.CommName := ComboBox4.Items.Strings[ComboBox4.ItemIndex ];
     
285. end;
     
286. 
     
287. procedure TForm1.ComboBox1Change(Sender: TObject);
     
288. begin
     
289.   Comm1.BaudRate := Cardinal(ComboBox1.Items.Strings[ComboBox1.ItemIndex ]);
     
290. end;
     
291. 
     
292. end.

复制代码

提取码 98f9

qq351317878

二楼膜拜大神   。这些台高深 目前还不懂