Работа с COM-портом

@WinKarbik · Регистрация: 21.09.2021

Студворк — интернет-сервис помощи студентам

Добрый день. Имеется такая задача: получать данные с com порта и строить графики от полученных данных. Это удалось реализовать, но происходит запаздывание, т.к. таймер не даёт делать опрос чаще, чем нужно. Как увеличить быстродействие опроса?
Как сейчас у меня это реализовано:

Delphi
1
2
3
4
5
6
7
8
procedure TForm2.Timer1Timer(Sender: TObject);
var
  D1 := Form1.a[5] + Form1.a[6] + Form1.a[7] + Form1.a[8];
  val : double;
  hi := hi+1;
  val := StrToFloat(StringReplace(D1, '.', ',', [rfReplaceAll, rfIgnoreCase]));
  Series1.AddXY(hi,val,'',clred);
end;

Интервал у таймера выставлен 1, меньше не даёт.

@Xp_1337 · 24.09.2021, 11:33

Сообщение от Verevkin

Чо это значит - "играться"?

Ну настраивать её под себя

Verevkin · 24.09.2021, 11:37

Сообщение от Xp_1337

Ну настраивать её под себя

Это было возможно ВСЕГДА.

@D1973 · 24.09.2021, 15:38

Собственно, даже Turbo Pascal это позволял... Совсем это удивление мне не понятно...

Verevkin · 24.09.2021, 15:46

Сообщение от D1973

Собственно, даже Turbo Pascal это позволял...

Ууууууууууу, моя прелесть!

@WinKarbik · 27.09.2021, 10:08 **[ТС]**

В общем, после попыток манипуляций получилось.. Ничего. При запуске потока данные с компорта взяты один раз, но их обновление не происходит, соответственно график рисует прямую линию, т.к. не фиксирует изменений, а счётчик работает. При нажатии кнопки для остановки потока, программа валится с ошибкой. Код:
Запуск второй формы с графиками:

Delphi
1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
  if (not Assigned(Form2)) then
    Form2:=TForm2.Create(Self);
  Form2.ShowModal;
end;

Запуск потока:

Delphi
1
2
3
4
5
6
procedure TForm2.Button1Click(Sender: TObject);
begin
  Series1.clear;
  MyThread:=TMyThread.Create(False);
  MyThread.Priority:=tpNormal;
end;

Поток:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TMyThread.Execute;
begin
  while not Terminated do begin
    hi := hi+1;
  if Length(Form1.a) = 245 then begin
    Form2.Memo1.Lines.Add(Form1.a);
    D1 := Form1.a[5] + Form1.a[6] + Form1.a[7] + Form1.a[8];
  end;
  val := StrToFloat(StringReplace(D1, '.', ',', [rfReplaceAll, rfIgnoreCase]));
  Form2.Chart1.MaxPointsPerPage := 200;
  Form2.Chart1.NextPage;
  Form2.Series1.AddXY(hi,val,'',clred);
  Synchronize(DoSync);
  end;
end;

Метод синхронизации:

Delphi
1
2
3
4
procedure TMyThread.DoSync;
begin
  Form2.Caption := IntToStr(Random(1000));
end;

По примерам, представленным здесь, вызывать синхронизацию надо по какому либо условию, я так понимаю, но вот какое условие использовать - не знаю. Сейчас при запуске потока в мемо вижу, что переменная a не меняется, поток данных как будто зафиксирован один и тот же, и он не меняется. Также на графике рисуется прямая линия. Ошибка при остановке потока:

Кликните здесь для просмотра всего текста

@WinKarbik · 27.09.2021, 10:12 **[ТС]**

А вот так выглядит сама форма 2

Не по теме:

Да простят меня модераторы и софорумчане, за то что не знаю как тут правильно картинки размещать

Verevkin · 27.09.2021, 10:14

Сообщение от WinKarbik

При нажатии кнопки для остановки потока, программа валится с ошибкой.

Да ты задолбал лезть в VCL из побочного треда. Ты чо, не читал то, что мы тебе выше написали?

@WinKarbik · 27.09.2021, 10:17 **[ТС]**

Сообщение от Verevkin

Ты чо, не читал то, что мы тебе выше написали?

Я как раз прочитал, и сделал по твоему примеру. Что я сделал не так?

Verevkin · 27.09.2021, 10:21

Сообщение от WinKarbik

Что я сделал не так?

Вот это:

@AzAtom · 27.09.2021, 10:21

Сообщение от WinKarbik

Метод синхронизации:

Delphi
1
2
3
4
procedure TMyThread.DoSync;
begin
 Form2.Caption := IntToStr(Random(1000));
end;

Это был просто пример с Random() для демонстрации работы! Нужно вот вместо этого Caption сюда внести код работы с Chart, потому, что Chart1 это тоже визуальный компонент VCL.

@WinKarbik · 27.09.2021, 10:29 **[ТС]**

Сообщение от AzAtom

Chart1 это тоже визуальный компонент VCL.

Об этом я уже тоже подумал. Пробовал засунуть рисование в DoSync, но это не поменяло ситуацию.

Добавлено через 5 минут

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TMyThread.DoSync;
begin
  val := StrToFloat(StringReplace(D1, '.', ',', [rfReplaceAll, rfIgnoreCase]));
  Form2.Chart1.MaxPointsPerPage := 200;
  Form2.Chart1.NextPage;
  Form2.Series1.AddXY(hi,val,'',clred);
end;
 
procedure TMyThread.Execute;
begin
  while not Terminated do begin
    if Length(Form1.a) = 245 then begin
      Form2.Memo1.Lines.Add(Form1.a);
      D1 := Form1.a[5] + Form1.a[6] + Form1.a[7] + Form1.a[8];
    end;
    hi := hi+1;
    Synchronize(DoSync);
  end;
end;

Вот так вот сделал, также ничего не поменялось

@AzAtom · 27.09.2021, 10:32

WinKarbik, а в чём смысл конкретно этого потока? Он с портом не работает, а просто добавляет содержимое массива с Form1 на Chart на форме Form2. Тут поток не нужен.

Verevkin · 27.09.2021, 10:32

Сообщение от WinKarbik

Вот так вот сделал, также ничего не поменялось

Прросто сделай так, чтобы тред не имел никакого отношения к форме и всему, что на ней находится.
Убери компонент TComPortDriver с формы, создавай/убивай его внутри треда, назначь ему обработчиком события метод самого треда и отрисовывай синхронно только принятые данные.

@AzAtom · 27.09.2021, 10:33

Сообщение от WinKarbik

Form2.Memo1.Lines.Add(Form1.a);

Memo тоже визуальный компонент VCL и тоже нуждается в синхронизации.

@WinKarbik · 27.09.2021, 10:39 **[ТС]**

Сообщение от AzAtom

а в чём смысл конкретно этого потока?

Суть программы такова: с микроконтроллера приходит значение напряжения с 9 датчиков. В первой форме подключение/отключение к ком порту(возможно будет что-то ещё, пока не придумал), кнопка графики. При нажатии на кнопку графики открывается вторая форма, в которой две кнопки - начать рисовать и остановить. Для начала я реализовывал отрисовывание графиков в таймере, но там минимальная задержка 0,001с, играясь датчиком, компьютер не успевает обработать данные, поэтому вместо таймера решил использовать поток. Или тут можно как то подругому для увеличения быстродействия, по сравнению с таймером?

Добавлено через 27 секунд

Сообщение от AzAtom

Memo тоже визуальный компонент VCL

Это да, чуть позже заметил, перенёс его, тоже не помогло. Но программа перестала вылетать, если таскать её окошко.

@AzAtom · 27.09.2021, 10:48

Сообщение от WinKarbik

таймере, но там минимальная задержка 0,001с

Нет, у стандартного системного таймера минимальное разрешение около 16 мс и увеличивается тоже с шагом примерно в 16 мс, хоть там и задаются значения с точностью в 1 мс.

Сообщение от WinKarbik

компьютер не успевает обработать данные, поэтому вместо таймера решил использовать поток.

Если компьютер именно не успевает, то есть, загрузка процессора 100%, то поток вряд ли поможет. Надо дальше думать.

Я так плотно не работал с TChart, но возможно просто он медленный. Можно попробовать самостоятельно рисовать график на Image, например. Думаю, попробовать стоит.

@WinKarbik · 27.09.2021, 11:06 **[ТС]**

Сообщение от AzAtom

Если компьютер именно не успевает, то есть, загрузка процессора 100%, то поток вряд ли поможет. Надо дальше думать.

В теории компьютер как раз должен успевать. Микроконтроллер 72МГц, компьютер 2.7ГГц, таймер с частотой 1мс обеспечивает 1000Гц(или 10000Гц? Запутался, но явно меньше, чем МК), соответственно если у датчика резко скакнуло напряжение и упало обратно, компьютер нарисует прямую линию, т.к. он не успел поймать изменение, да и если у датчика упало напряжение, то компьютер выдаст это не сразу, а с задержкой 1-2сек. Это всё было так в таймере, поэтому думаю и применить поток.

Verevkin · 27.09.2021, 11:06

Сообщение от AzAtom

Если компьютер именно не успевает, то есть, загрузка процессора 100%, то поток вряд ли поможет. Надо дальше думать.

Да хтож так делает?
Надо в треде накапливать массив принятых данных, а вот график строить как раз по таймеру, отрисовывая за раз всё то, что было накоплено на один тик таймера.
TChart работает очень быстро (в умелых руках) и переваривает большие кучи точек за единицу времени.

@WinKarbik · 27.09.2021, 11:12 **[ТС]**

Сообщение от Verevkin

Надо в треде накапливать массив принятых данных, а вот график строить как раз по таймеру

Т.е. в потоке я ком порт читаю, присваиваю переменным значения, а в таймере рисую графики?

Verevkin · 27.09.2021, 11:22

Сообщение от WinKarbik

Т.е. в потоке я ком порт читаю, присваиваю переменным значения, а в таймере рисую графики?

не совсем так.
В треде ты принимаешь данные, идущие из порта, и складываешь их в одноразовый динамический буфер. Как только прошло Х миллисекунд, ты генеришь синхронное событие, в котором отдаёшь форме этот буфер на копирование, а затем продолжаешь собирать данные в новый буфер, пока VCL рисует твой график.

Новые блоги и статьи Все статьи Все блоги /
Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@D1973 Модератор 9959 / 6495 / 2461 Регистрация: 21.01.2014 Сообщений: 27,505 Записей в блоге: 3
	24.09.2021, 15:38
	Собственно, даже Turbo Pascal это позволял... Совсем это удивление мне не понятно... 0

@WinKarbik 0 / 0 / 0 Регистрация: 21.09.2021 Сообщений: 23
	27.09.2021, 10:12 [ТС]
	А вот так выглядит сама форма 2 Не по теме: Да простят меня модераторы и софорумчане, за то что не знаю как тут правильно картинки размещать Миниатюры 0

@AzAtom Модератор 4156 / 2365 / 814 Регистрация: 15.11.2015 Сообщений: 9,503
	27.09.2021, 10:32
	WinKarbik, а в чём смысл конкретно этого потока? Он с портом не работает, а просто добавляет содержимое массива с Form1 на Chart на форме Form2. Тут поток не нужен. 0