Delphi 7 COM-port

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CPort;
 
type
  TForm1 = class(TForm)
    editCommand: TEdit;
    editAnswer: TEdit;
    buttonOpen: TButton;
    buttonWrite: TButton;
    buttonClose: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    memoHistory: TMemo;
    ButtonClearHis: TButton;
    buttonsetting: TButton;
    ComPort: TComPort;
    buttonsend: TButton;
    procedure ButtonClearHisClick(Sender: TObject);
    procedure buttonsettingClick(Sender: TObject);
    procedure buttonOpenClick(Sender: TObject);
    procedure buttonWriteClick(Sender: TObject);
    procedure buttonCloseClick(Sender: TObject);
    procedure buttonsendClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.ButtonClearHisClick(Sender: TObject);
begin
memoHistory.Lines.Clear; // очистка истории выполненных команд
end;
 
procedure TForm1.buttonsettingClick(Sender: TObject);
begin
Comport.ShowSetupDialog;
buttonOpen.Enabled := True;
end;
 
procedure TForm1.buttonOpenClick(Sender: TObject);
begin
 
   ComPort.Open; // открыть сом порт
  if ComPort.Connected then
  memoHistory.Lines.Add('Порт открыть ('+comport.Port+')')
  else
  memoHistory.Lines.Add('Порт не открывается');
end;
 
 
 
procedure TForm1.buttonWriteClick(Sender: TObject);
var
  strWrite: string; // временная переменная ASCII последовательности
  arrBytes: array of Byte; // массив байт команды
  i: Integer;
begin
//чтение команды из поля "Команда"
  strWrite := editCommand.Text;
  //преобразование последовательности ASCII в массив байт
  SetLength(arrBytes, Length(strWrite)+1);
  for i := Low(arrBytes) to High(arrBytes) do
    arrBytes[i] := Ord(strWrite[i + 1]);
  // формирование признака конца команды
  arrBytes[High(arrBytes)]:=$0D;
  // запсиь сформированной команды в СОМ-порт
  ComPort.Write(arrBytes);
  arrBytes := nil;
 
end;
 
procedure TForm1.buttonCloseClick(Sender: TObject);
begin
ComPort.Free;
memoHistory.Lines.Add('Порт закрыт.')
end;
 
procedure TForm1.buttonsendClick(Sender: TObject);
begin
if ComPort.Connected then
begin
  ComPort.WriteStr(editCommand.Text+#13);
  memoHistory.Lines.Add('('+editcommand.Text+')');
end;
 
end;
end.

ComPort.Write(arrBytes);

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CPort;
 
type
  TForm1 = class(TForm)
    editCommand: TEdit;
    editAnswer: TEdit;
    buttonOpen: TButton;
    buttonWrite: TButton;
    buttonClose: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    memoHistory: TMemo;
    ButtonClearHis: TButton;
    buttonsetting: TButton;
    ComPort: TComPort;
    buttonsend: TButton;
    procedure OnRead(Sender: TObject; ReadBytes: array of Byte);
    procedure ButtonClearHisClick(Sender: TObject);
    procedure buttonsettingClick(Sender: TObject);
    procedure buttonOpenClick(Sender: TObject);
    procedure buttonWriteClick(Sender: TObject);
    procedure buttonCloseClick(Sender: TObject);
    procedure buttonsendClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.ButtonClearHisClick(Sender: TObject);
begin
memoHistory.Lines.Clear; // î÷èñòêà èñòîðèè âûïîëíåííûõ êîìàíä
end;
 
procedure TForm1.buttonsettingClick(Sender: TObject);
begin
Comport.ShowSetupDialog;
buttonOpen.Enabled := True;
end;
 
procedure TForm1.buttonOpenClick(Sender: TObject);
begin
 
   ComPort.Open; // îòêðûòü ñîì ïîðò
  if ComPort.Connected then
  memoHistory.Lines.Add('Ïîðò îòêðûòü ('+comport.Port+')')
  else
  memoHistory.Lines.Add('Ïîðò íå îòêðûâàåòñÿ');
end;
 
procedure TForm1.OnRead(
  Sender: TObject;
  ReadBytes: array of Byte);
var
  i: Integer;
  TmpStr: string;
begin
  TmpStr := '';
  i := Low(ReadBytes);
  while (i < High(ReadBytes)) and (ReadBytes[i] <> $0D) do
  begin
    TmpStr := TmpStr + chr(ReadBytes[i]);
    inc(i);
  end;
  editAnswer.Text := TmpStr;
  memoHistory.Lines.Add(TmpStr);
end;
 
 
 
procedure TForm1.buttonWriteClick(Sender: TObject);
var
  strWrite: string; // âðåìåííàÿ ïåðåìåííàÿ ASCII ïîñëåäîâàòåëüíîñòè
  arrBytes: array of Byte; // ìàññèâ áàéò êîìàíäû
  i: Integer;
begin
//÷òåíèå êîìàíäû èç ïîëÿ "Êîìàíäà"
  strWrite := editCommand.Text;
  //ïðåîáðàçîâàíèå ïîñëåäîâàòåëüíîñòè ASCII â ìàññèâ áàéò
  SetLength(arrBytes, Length(strWrite)+1);
  for i := Low(arrBytes) to High(arrBytes) do
    arrBytes[i] := Ord(strWrite[i + 1]);
  // ôîðìèðîâàíèå ïðèçíàêà êîíöà êîìàíäû
  arrBytes[High(arrBytes)]:=$0D;
  // çàïñèü ñôîðìèðîâàííîé êîìàíäû â ÑÎÌ-ïîðò
  ComPort.Write(arrBytes[0],length(arrBytes));
  arrBytes := nil;
 
end;
 
procedure TForm1.buttonCloseClick(Sender: TObject);
begin
ComPort.Free;
memoHistory.Lines.Add('Ïîðò çàêðûò.')
end;
 
procedure TForm1.buttonsendClick(Sender: TObject);
begin
if ComPort.Connected then
begin
  ComPort.WriteStr(editCommand.Text+#13);
  memoHistory.Lines.Add('('+editcommand.Text+')');
end;
 
end;
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Synaser, ExtCtrls;
 
type
  {Threads}
  TreadThread = class (TThread)
  private
    m_buffer: string;
    m_countReceive: Integer;
    m_receive: array[0..100] of Byte; // буфер для чтения ответа модулей
    procedure Showstatus(); // отоброзить ответ модуля
    procedure Execute; override; // алгоритм параллельного потока
    end;
 
type
  TForm1 = class(TForm)
    editCommand: TEdit;
    editAnswer: TEdit;
    buttonOpen: TButton;
    buttonWrite: TButton;
    buttonClose: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    memoHistory: TMemo;
    ButtonClearHis: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure ButtonClearHisClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure buttonOpenClick(Sender: TObject);
    procedure buttonWriteClick(Sender: TObject);
    procedure buttonCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  SerialPort: TBlockSerial;  //  объект сом-порт
  ReadThread: TreadThread;   //  объект параллельного порта
 
implementation
 
{$R *.dfm}
 
procedure TForm1.ButtonClearHisClick(Sender: TObject);
begin
memoHistory.Lines.Clear; // очистка истории выполненных команд
end;
 
// Thread
procedure TReadThread.Showstatus();
var
i: Integer;
begin
// отобразить полученные данные
for i := 0 to m_countReceive-1 do
begin
if m_receive[i] = $0D then
begin
MainForm.Receive.Text := m_buffer;
MainForm.History.Lines.Add(MainForm.Receive.Text);
m_buffer := '';
end
else
m_buffer := m_buffer+char(m_receive[i]);
end;
end;
procedure TReadThread.Execute;
begin
repeat
// определить число полученных байт
m_countReceive := SerialPort.WaitingDataEx();
if m_countReceive > 0 then
begin
// через COM-порт получена информация
// прочитать полученные данные
SerialPort.RecvBuffer(@m_receive, m_countReceive);
// отобразить данные на интерфейсе пользователя
// ВНИМАНИЕ !!!
// Вывод на элементы интерфейса должен осуществляться в
// процедуре, вызываемой как параметр Synchronize!!!
Synchronize(@Showstatus);
end;
until Terminated;
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  // подготовить программу к работе
  memoHistory.Lines.Clear; // отчистка истории выполненных команд
  editAnswer.Text := ''; // ответ модуля
end;
 
procedure TForm1.buttonOpenClick(Sender: TObject);
var
  Speed: Integer;
begin
  // очистить историю и ответ модуля
  memoHistory.Lines.Clear;
  Receive.Text := '';
  Speed := StrToInt(PortSpeed.Text);
  // создать объект COM-порта
  SerialPort:=TBlockserial.Create;
  SerialPort.RaiseExcept:=true;
  // подключиться к заданному порту
  SerialPort.Connect(PortNumber.Text);
  // проверить ошибки подключения и вывести сообщения о них в историю
  memoHistory.Lines.Add(IntToStr(SerialPort.LastError)+'-
  '+SerialPort.LastErrorDesc);
  if SerialPort.LastError<>0 then
  begin
  // завершить попытку подключения, т.к. произошла ошибка
  Exit;
  end;
  // конфигурирование порта (задается скорость, число бит,
  // паритет, старт/стоп биты ...)
  SerialPort.EnableRTSToggle(true);
  SerialPort.Config(Speed, 8,'N',0,false,false);
  // сообщение в историю выполненных команд
  memoHistory.Lines.Add('Порт '+SerialPort.Device+' - открыт.');
  ReadThread:= TReadThread.Create(true);
  ReadThread.Priority:=tpLowest;
  ReadThread.m_buffer := '';
  // запустить параллельный поток
  ReadThread.Resume;
end;
 
 
end;
 
procedure TForm1.buttonWriteClick(Sender: TObject);
begin
  // записать в сом-порт команду
  SerialPort.SendString(MainForm.Command.Text+char($0D));
end;
 
procedure TForm1.buttonCloseClick(Sender: TObject);
begin
  //остановить параллельный поток
  ReadThread.Suspend;
  // освободить Сом-порт (закрыть)
  SerialPort.Free;
  //
  memoHistory.Lines.Add('Порт закрыт.');
end;
 
end.