![]() ![]() If ComPortAvailable(pchar(cbbPort.Text)) thenĬmPort.BaudRate := StrToInt(cbbBaudRate.Text) Procedure TCommixForm.btnPortClick(Sender: TObject) ![]() Part of the code display: //Open and close the serial port Below is a partial screenshot and partial code display: The control used in this example is Spcomm, which is also included in this folder. If there is something wrong, please advise. Therefore, in order to solve the depression that most beginners don't know much about serial communication, I now share the examples I made for your reference. It may be that Delphi7 is not used much in the market now, or Say I am a frog at the bottom of the well. Copy and paste the code on the Internet and it will not pass. Recently I am using Delphi7 for serial communication, but I have found a lot of codes on the Internet, but there is no complete example.
0 Comments
Leave a Reply. |