串口调试助手DELPHI_SPCOMM_v

1、.肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁

2、袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂

3、肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆

4、螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇

5、羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁

6、肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂

7、蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃

8、羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇

9、肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈

10、蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂

11、罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃

12、肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇

13、袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈

14、羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁

15、袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅

16、蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆

17、螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿

18、袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁

19、蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂

20、蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅

21、衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇

22、蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀

23、螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁

24、羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃

25、蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆

26、螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇

27、薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁

28、蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂

29、螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃

30、薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂 procedure TFrmMain.btnSwitchClick(Sender: TObject);var BaudRate :integer;begin if btnSwitch.Caption = '打开串口' then begin if not TryStrToInt(ComboBox2.Text,BaudRate) then /把字符串变成整数，返回值是布尔类型 begin Application.M

31、essageBox('波特率设定有误'+#13+' 请重新输入','警告',MB_ICONWARNING or MB_OK); ComboBox2.SetFocus; exit; end; Comm1.StartComm; btnSwitch.Caption := '关闭串口' ComboBox1.Enabled := false; ComboBox2.Enabled := false; ComboBox3.Enabled := false; ComboBox4.Enabled := false; ComboBox5.Enable

32、d := false; btnSend.Enabled := true; ImageOff.Visible := false; ImageOn.Visible :=true; end else /if Button1.Caption = '关闭串口' then begin Comm1.StopComm; btnSwitch.Caption := '打开串口' ComboBox1.Enabled := true; ComboBox2.Enabled := true; ComboBox3.Enabled := true; ComboBox4.Enabled := t

33、rue; ComboBox5.Enabled := true; btnSend.Enabled := false; ImageOn.Visible := false; ImageOff.Visible :=true; end; Timer1.Enabled := cbAutoSend.Checked; /设置定时时钟 ShowStatus;end;procedure TFrmMain.BitBtn1Click(Sender: TObject);begin Close;end;procedure TFrmMain.Button6Click(Sender: TObject);begin Memo1

34、.Clear;end;/初始化TFrmMainprocedure TFrmMain.FormCreate(Sender: TObject);var myMenu : HMENU;begin FrmMain.Constraints.MinHeight := minHeight; FrmMain.Constraints.MinWidth := minWidth; FShowText:=True; FRXNum:=0; FTXNum:=0; EnumComPorts(ComboBox1.Items); /得到串口列表 ComboBox1.ItemIndex := 0; /初始化端口为COM1 Com

35、m1.CommName := ComboBox1.Text; /初始端口号装入COM1 ComboBox2.ItemIndex := 6; /选择波特率为9600 Comm1.BaudRate := StrToInt(ComboBox2.Text);/初始波特率装入程序 ComboBox3.ItemIndex := 0;/初始化校检位None Comm1.Parity := None;/装入初始化校检位None ComboBox4.ItemIndex := 3;/数据位初始化8 Comm1.ByteSize := _8;/装入初始化数据位8 ComboBox5.ItemIndex := 0;/

36、初始化停止位0 Comm1.StopBits := _1;/装入初始化停止位0 myMenu := GetSystemMenu(Handle, False); /？ AppendMenu(myMenu, MF_SEPARATOR, 0, ''); /？ AppendMenu(myMenu, MF_STRING, idAbout, '关于'); /？end;/设置过程ShowRXprocedure TFrmMain.ShowRX;begin edRX.Text:='Rx:'+IntTostr(FRXNum);end;/设置过程ShowStatusp

37、rocedure TFrmMain.ShowStatus;begin if btnSwitch.Caption = '关闭串口' then begin /? edStatus.Text:=Format(' STATUS: %s Opened %s %s %s %s',ComboBox1.Text,ComboBox2.Text,IntToStr(Comm1.BaudRate),ComboBox3.Text,ComboBox4.Text,ComboBox5.Text); end else edStatus.Text:=' STATUS: COM Port C

38、losed'end;/设置过程ShowTXprocedure TFrmMain.ShowTX;begin edTx.Text:='Tx:'+IntTostr(FTXNum);end;/-procedure TFrmMain.Button5Click(Sender: TObject);begin FRXNum:=0; FTXNum:=0; ShowRX; ShowTX;end;/-procedure TFrmMain.Button1Click(Sender: TObject);begin Memo2.Clear;end;/-procedure TFrmMain.SpinE

39、dit1Change(Sender: TObject);begin Timer1.Interval:=SpinEdit1.Value;end;/-procedure TFrmMain.cbAutoSendClick(Sender: TObject);begin Timer1.Enabled:=cbAutoSend.Checked; SpinEdit1.Enabled := not cbAutoSend.Checked;end;/-procedure TFrmMain.Timer1Timer(Sender: TObject);begin if Memo2.Text<>'

40、9; then btnSend.Click;end;/-procedure TFrmMain.btnStopShowClick(Sender: TObject);begin FShowText:=not FShowText; if FShowText then btnStopShow.Caption:='停止显示' else btnStopShow.Caption:='继续显示'end;/-procedure TFrmMain.Button9Click(Sender: TObject);var Dir: string;begin if SelectDirecto

41、ry(FrmMain.Handle,'请选择要保存接收数据的目录',' ',Dir) then edPath.Text := Dir;end;/-procedure TFrmMain.Button8Click(Sender: TObject);var S:string;begin S := edPath.Text; if not DirectoryExists(S) then CreateDir(S); S:=S+'Rec'+FormatDateTime('yymmddhhssnn',Now)+'.txt' Mem

42、o1.Lines.SaveToFile(S); Application.MessageBox(pchar(s+#13#13#9+'已保存'),'信息',MB_ICONWARNING or MB_OK);end;/-procedure TFrmMain.Button3Click(Sender: TObject);begin if OpenDialog1.Execute then edSendFile.Text:=OpenDialog1.FileName;end;/-procedure TFrmMain.Button4Click(Sender: TObject);b

43、egin if FileExists(edSendFile.Text) then SendFile(edSendFile.Text);end;/-procedure TFrmMain.SendFile(const filename: string);var S:TStringList;begin S:=TStringList.Create; try S.LoadFromFile(filename); /? SendString(S.Text); finally S.Free; end;end;/定义函数 HexStrToStr 把十六进制变成字符串function HexStrToStr(co

44、nst S:string):string;/16进制字符串转换成字符串var t:Integer; ts:string; M,Code:Integer;begin t:=1; Result:='' while t<=Length(S) do begin /xlh 2006.10.21 while (t<=Length(S) and (not (St in '0'.'9','A'.'F','a'.'f') do inc(t); if (t+1>Length(S)or(

45、not (St+1 in '0'.'9','A'.'F','a'.'f') then ts:='$'+St else ts:='$'+St+St+1; Val(ts,M,Code); if Code=0 then Result:=Result+Chr(M); inc(t,2); end;end;/-procedure TFrmMain.btnSendClick(Sender: TObject);begin if cbsendHex.Checked then SendS

46、tring(HexStrToStr(Memo2.Text) else SendString(Memo2.Text);end;/-procedure TFrmMain.SendString(const str: string);begin if Comm1.WriteCommData(Pchar(str),Length(str) then begin FTXNum:=FTXNum+Length(str); ShowTX; end;end;/-function StrToHexStr(const S:string):string;/字符串转换成16进制字符串var I:Integer;begin

47、for I:=1 to Length(S) do begin if I=1 then Result:=IntToHex(Ord(S1),2) else Result:=Result+' '+IntToHex(Ord(SI),2); end;end;/-procedure TFrmMain.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word);var str :string;begin /Memo自动清空 if cbAutoClean.Checked and (Memo1.Lines.Count

48、 > 50) then Memo1.Clear; SetLength(Str,BufferLength); move(buffer,pchar(Str1),bufferlength); /? if FShowText then begin if cbRecHex.Checked then Memo1.Text:=Memo1.Text+StrToHexStr(Str)+' ' else Memo1.Text := Memo1.Text + Str; Memo1.SelStart := Length(Memo1.Text); Memo1.SelLength:= 0; Memo

49、1.Perform(EM_SCROLLCARET,0,0); end; FRXNum:=FRXNum+bufferlength; ShowRX;end;/-procedure TFrmMain.ComboBox1Change(Sender: TObject);begin Comm1.CommName:=ComboBox1.Text;end;procedure TFrmMain.ComboBox2Change(Sender: TObject);var BaudRate : Integer;begin if ComboBox2.Text = 'Custom' then begin

50、ComboBox2.Style := csDropDown; ComboBox2.SetFocus; end else begin if ComboBox2.ItemIndex >0 then ComboBox2.Style := csDropDownList; /? if TryStrToInt(ComboBox2.Text,BaudRate) then Comm1.BaudRate := BaudRate; end;end;/-procedure TFrmMain.ComboBox3Change(Sender: TObject);begin /TParity = ( None, Od

51、d, Even, Mark, Space ); Comm1.Parity := TParity(ComboBox3.ItemIndex);end;/-procedure TFrmMain.ComboBox4Change(Sender: TObject);begin /TByteSize = ( _5, _6, _7, _8 ); Comm1.ByteSize := TByteSize(ComboBox4.ItemIndex);end;/-procedure TFrmMain.ComboBox5Change(Sender: TObject);begin /TStopBits = ( _1, _1

52、_5, _2 ); Comm1.StopBits := TStopBits(ComboBox5.ItemIndex);end; /-procedure TFrmMain.ComboBox2KeyPress(Sender: TObject; var Key: Char);begin if not (Key in '0'.'9',#8) then Key := #0;end;/-procedure TFrmMain.Memo2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);beginif (Sh

53、ift=ssAlt) and (key=Ord('S') and (btnSend.Enabled) then /快捷键 ALT + S btnSend.Click;end;/-procedure TFrmMain.WMSysCommand(var Message: TWMSysCommand);begin Inherited; if Message.CmdType = idAbout then Application.MessageBox('= 串口调试助手Delphi SPCOMM版 1.1 = '+#13#13+ ' 相对于Sky的1.0版：'+#13+ '改用SPCOMM控件，程序更小巧、更好用'+#13+ '同时改进了部分算法，添加原未完成的功能'+#13#13+ ' 本程序完全参照龚建伟VC版'+#13+ ' 串口调试助手V2.2编写而成。'