串口调试助手DELPHI_SPCOMM_v.doc

肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇肈芄薁螃膇莆莄虿膆肆蕿薅螃膈莂蒁螂莀蚈袀螁肀蒀螆螀膂蚆蚂蝿芅葿薈蝿莇节袇袈肇蒇螃袇腿芀虿袆芁蒅薅袅肁芈薁袄膃薄衿袃芆莆螅袃莈薂蚁袂肈莅薇羁膀薀蒃羀节莃螂罿羂蕿螈羈膄莁蚄羇芆蚇薀羇荿蒀袈羆肈节螄羅膁蒈蚀肄芃芁薆肃羃蒆蒂肂肅艿袁肂芇蒄螇肁莀莇蚃肀聿薃蕿聿膂莆袇袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂螆肅肃莈螅螅芈芄袄袇肁薃袄罿芇葿袃膂聿蒅袂袁莅莁袁羄膈虿袀肆莃薅衿膈膆蒁羈袈莁莇薅羀膄芃薄肂莀薂薃螂膃薈薂羄蒈蒄薁肇芁莀薁腿肄虿薀衿艿薅蕿羁肂蒁蚈肃芇莇蚇螃肀芃蚆袅芆蚁蚅肈膈薇蚅膀莄蒃蚄袀膇荿蚃羂莂芅蚂肄膅薄螁螄莁蒀螀袆膃莆螀肈荿莂蝿膁节蚀螈袀肄薆螇羃芀蒂 procedure TFrmMain.btnSwitchClick(Sender: TObject);var BaudRate :integer;begin if btnSwitch.Caption = 打开串口 then begin if not TryStrToInt(ComboBox2.Text,BaudRate) then /把字符串变成整数，返回值是布尔类型 begin Application.MessageBox(波特率设定有误+#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.Enabled := 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 := true; 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.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 Comm1.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;/初始化停止位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;/设置过程ShowStatusprocedure 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 Closed;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.SpinEdit1Change(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 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 SelectDirectory(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; Memo1.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);begin 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(const 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 (tLength(S)or(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 SendString(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 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 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; Memo1.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 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, Odd, 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_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 (Shift=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编写而成。+#13+ 仅供学习测试之用+#13#13+ 原作者：Sky Email:m