// Serial port initialization
Procedure TFORM1.BITBTN3CLICK (Sender: TOBJECT);
Begin
Comm1.startComm;
END;
// Turn off the serial port
Procedure TFORM1.BITBTN4CLICK (Sender: TOBJECT);
Begin
Comm1.stopComm;
END;
//send data
Procedure TFORM1.BITBTN1CLICK (Sender: TOBJECT);
Var str: String;
CH1: char;
Begin
Comm1.writeCommdata (CH, 1);
End.
//Receive data
Procedure TFORM1.COMM1RECEIVEDATA (Sender: TOBJECT; Buffer: Pointer; BufferLength: Word);
Type ss = array [1..500] of char;
Var str1: ^ ss;
i: integer;
S: array [0..15] of char;
N: integer;
Begin
Str1: = buffer;
//s[]= (',' ,'1' ,'2' ,'3'r ")
For i: = 0 to 9 do
s [i]: = CHR (48 i);
For i: = 10 to 15 do
S [I]: = CHR (55 i);
For i: = 1 to bufferlength do
Begin
N: = ORD (STR1 ^ [i]);
Listbox1.Items.add (
INTTOSTR (ListBox1.Items.count 1)
'-' S [N DIV 16] S [N MOD 16]);
END;
Listbox1.refresh;
If ListBox1.Items.count> StrtOINT (Form2.edit1.Text)
Then ListBox1.Items.clear;
END;
