Procedure TForm1.BitBtn5Click(Sender: TObject) If(BitBtn1.Caption = ' Open the serial port ') thenĬomm1.BaudRate:=strtoint(ComboBox2.text) //19200 Ĭomm1.ReadIntervalTimeout:= StrToInt(RichEdit13.Lines) īitBtn1.Caption := ' Turn off the serial port ' Ĭomm1.StopComm // Turn off the serial portīitBtn1.Caption := ' Open the serial port ' Procedure TForm1.BitBtn1Click(Sender: TObject) Procedure TForm1.FormCreate(Sender: TObject) įor i := 0 to 20 do // When debugging the development environment, Please close the menu bar Tool/Debugger Options/integrated debugging OptionsĬ('COM' + IntToStr(i)) S70buffdata: array of Byte //S70 Data buffering S70block:byte //S70 Absolute block address Procedure BitBtn10Click(Sender: TObject) įuncCode:integer // Function code of serial port instruction Procedure Comm1ReceiveData(Sender: TObject Buffer: Pointer Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,ĭialogs, SPComm, StdCtrls, Buttons,StrUtils, ComCtrls,Math, ExtCtrls,Clipbrd Introduction to serial port reader : unit Unit1
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |