Температура и влажность (Вывод информации с arduino на ПК)

{
                            Версия среды разработки
     Embarcadero® Delphi 10 Seattle Version 23.0.21418.4207
     Copyright © 2015 Embarcadero Technologies, Inc. All Rights Reserved.
}
 
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Vcl.ComCtrls,
  Vcl.Menus;
 
const
   READ_COM_STR = WM_USER + 4242;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    procedure N6Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure InquiryPort(Sender: TObject); {опрос существующих портов}
  private
    FHandlCOM : THandle;
    FCOMPortList : TStringList;
    { Private declarations }
  public
    { Public declarations }
    function GetParam(str, param1, param2 : string): string;
 
   // ключевой метод чтения сообщений с com порта
    procedure ReadCOMStr(var msg : TMessage); message READ_COM_STR;
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2;
        // Устанавливаем наш com port
        Procedure SetComPort(comPort : string); stdcall; external 'comReadSend.dll';
        // Открываем порт
        Function COMOpen : boolean; stdcall; External 'comReadSend.dll';
        function COMClose : boolean; stdcall; External 'comReadSend.dll';
        // Инициализация com порта (InicializeCOMPort обязательно выполнить до вызова всех остальных методов)
        // В качестве параметра передаем Handle окна, это сделано для
        // того что бы событие возникающее в dll передавала сообщение
        // по средствам PostMessage нашей программе
        Procedure InicializeCOMPort(var hwnd: THandle); stdcall; External 'comReadSend.dll';
        procedure DestroyCOMport; stdcall;  External 'comReadSend.dll';
        function GetOpened : boolean; stdcall; External 'comReadSend.dll';
        /// Запись строки в com port
        function WriteComStr( str : string) : integer; stdcall; External 'comReadSend.dll';
        function DSRState : boolean; stdcall; External 'comReadSend.dll';
        Function RLSDState : boolean; stdcall; External 'comReadSend.dll';
 
{$R *.dfm}
 
procedure TForm1.InquiryPort(Sender: TObject);
var
  i: integer;
begin {опрос существующих портов}
 
  for i := 0 to 31 do {цикл опроса}
  begin {пробуем получить дескриптор порта}
    FHandlCOM := CreateFile(PChar('\\.\COM' + IntToStr(i + 1)),
      GENERIC_READ or GENERIC_WRITE,
      0,
      nil,
      OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);
    if FHandlCOM <> INVALID_HANDLE_VALUE then {если порт есть то добавить в список}
      Unit2.Form2.ComboBox1.Items.Add('COM' + IntToStr(i + 1));
    CloseHandle(FHandlCOM); {закрыть дескриптор}
  end;
end;
 
procedure TForm1.N2Click(Sender: TObject);
var
  h:Thandle;
begin
  h := Handle;
  InicializeCOMPort(h);
  SetComPort(Unit2.Form2.ComboBox1.Items.Strings[Unit2.Form2.ComboBox1.ItemIndex]);
  COMOpen;
end;
 
procedure TForm1.N6Click(Sender: TObject);
begin
  Form2.Show;
end;
 
procedure TForm1.ReadCOMStr(var msg: TMessage);
var
  str : string;
begin
   str := stringreplace(PCHar(msg.LParam),#10#13,'',[rfReplaceAll]);
 
   if length(str) > 0 then
   begin
       Form1.Label1.Caption := 'Температура: '+GetParam(str, '<TEMPERATURE= ', '>')+' Cº';
       Form1.Label2.Caption := 'Влажность: '+GetParam(str, '<HUMEDYTY=', '>')+' %';
   end;
end;
 
function TForm1.GetParam(str, param1, param2: string): string;
var
  c           // количество символов
   : integer;
begin
  c := Length(str);
  result := Copy(str,Pos(param1,str)+Length(param1),c);
  Result := Copy(result,0,Pos(param2,result)-1);
end;
end.