Например TDA7294

Форум РадиоКот • Просмотр темы - Delphi 7 ComPort library
Форум РадиоКот
Здесь можно немножко помяукать :)





Текущее время: Вт апр 23, 2024 10:13:02

Часовой пояс: UTC + 3 часа


ПРЯМО СЕЙЧАС:



Начать новую тему Ответить на тему  [ Сообщений: 7 ] 
Автор Сообщение
Не в сети
 Заголовок сообщения: Delphi 7 ComPort library
СообщениеДобавлено: Сб дек 03, 2016 16:02:55 
Грызет канифоль

Зарегистрирован: Чт апр 28, 2011 15:08:58
Сообщений: 274
Рейтинг сообщения: 0
Господа кто в делфи 7 мучил библу http://sourceforge.net/projects/comport/ Терминал сам легко создать, получать данные с него, отправлять, но как получить данные с терминала в буфер и сохранением данных в файл, кто то может реализовывал подскажите? Вроде это делается через функцию.
Код:
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
Str: String;
begin
ComPort1.ReadStr(Str, Count);
// do something with Str variable
end;

Может ошибаюсь, помогите .


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: Delphi 7 ComPort library
СообщениеДобавлено: Сб дек 03, 2016 16:55:22 
Поставщик валерьянки для Кота
Аватар пользователя

Карма: 42
Рейтинг сообщений: 161
Зарегистрирован: Вт июл 27, 2010 11:31:59
Сообщений: 2204
Откуда: Кххх
Рейтинг сообщения: 0
Рабочая либа. Там есть примеры, все рабочее. Надо еще чтобы в обжект инспекторе выставить, чтоб был вызов этой штуки on_rx или как там оно.


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: Delphi 7 ComPort library
СообщениеДобавлено: Сб дек 03, 2016 17:41:30 
Грызет канифоль

Зарегистрирован: Чт апр 28, 2011 15:08:58
Сообщений: 274
Рейтинг сообщения: 0
Там нет примеров с сохранением лога с порта на ПК, я бы не интересовался как это осуществить!


Вернуться наверх
 
PCBWay - всего $5 за 10 печатных плат, первый заказ для новых клиентов БЕСПЛАТЕН

Сборка печатных плат от $30 + БЕСПЛАТНАЯ доставка по всему миру + трафарет

Онлайн просмотровщик Gerber-файлов от PCBWay + Услуги 3D печати
Не в сети
 Заголовок сообщения: Re: Delphi 7 ComPort library
СообщениеДобавлено: Сб дек 03, 2016 23:41:39 
Поставщик валерьянки для Кота
Аватар пользователя

Карма: 42
Рейтинг сообщений: 161
Зарегистрирован: Вт июл 27, 2010 11:31:59
Сообщений: 2204
Откуда: Кххх
Рейтинг сообщения: 0
А че тут сложного?
Код:
procedure Ttonarm_label.ComPortRxChar(Sender: TObject; Count: Integer);
var
  S     : String;
  buf   : byte;
  res   : integer;
begin
       comport.read(Buf, 1);
       blockwrite(f,buf,1,res);
end;


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


Вернуться наверх
 
Выбираем схему BMS для заряда литий-железофосфатных (LiFePO4) аккумуляторов

Обязательным условием долгой и стабильной работы Li-FePO4-аккумуляторов, в том числе и производства EVE Energy, является применение специализированных BMS-микросхем. Литий-железофосфатные АКБ отличаются такими характеристиками, как высокая многократность циклов заряда-разряда, безопасность, возможность быстрой зарядки, устойчивость к буферному режиму работы и приемлемая стоимость. Но для этих АКБ очень важен контроль процесса заряда и разряда для избегания воздействия внешнего зарядного напряжения после достижения 100% заряда. Инженеры КОМПЭЛ подготовили список таких решений от разных производителей.

Подробнее>>
Не в сети
 Заголовок сообщения: Re: Delphi 7 ComPort library
СообщениеДобавлено: Вс дек 04, 2016 06:53:35 
Грызет канифоль

Зарегистрирован: Чт апр 28, 2011 15:08:58
Сообщений: 274
Рейтинг сообщения: 0
Может тогда так
Код:
procedure TFMComunication.comportRxChar(Sender: TObject; Count: Integer);
var
  S, Buf : String;
  f: file;
begin
AssignFile(f, SaveDialog1.FileName);
  Rewrite(f);
  comport.ReadStr(S, Count);
  Buf := Buf + S;
  blockwrite(f,Buf,1,Count);
CloseFile(f);
end;

тока я не понимаю как вызывается процедура comportRxChar, вот добавил кнопку она появилась слева в трее в окне а этой функции нет, как её вызвать или она автоматом прикручивается или как то эту процедуру на кнопку надо кидать?

Добавлено after 2 hours 27 minutes 31 second:
Так наверное будет лучше прикреплю исходник терминала и эмулятор протеуса с виртуальным ком.


Вложения:
TESTCOM.rar [366.87 KiB]
Скачиваний: 326
Вернуться наверх
 
Новый аккумулятор EVE серии PLM для GSM-трекеров, работающих в жёстких условиях (до -40°С)

Компания EVE выпустила новый аккумулятор серии PLM, сочетающий в себе высокую безопасность, длительный срок службы, широкий температурный диапазон и высокую токоотдачу даже при отрицательной температуре. Эти аккумуляторы поддерживают заряд при температуре от -40/-20°С (сниженным значением тока), безопасны (не воспламеняются и не взрываются) при механическом повреждении (протыкание и сдавливание), устойчивы к вибрации. Они могут применяться как для автотранспорта (трекеры, маячки, сигнализация), так и для промышленных устройств мониторинга, IoT-устройств.

Подробнее>>
Не в сети
 Заголовок сообщения: Re: Delphi 7 ComPort library
СообщениеДобавлено: Вс дек 04, 2016 16:48:55 
Поставщик валерьянки для Кота
Аватар пользователя

Карма: 42
Рейтинг сообщений: 161
Зарегистрирован: Вт июл 27, 2010 11:31:59
Сообщений: 2204
Откуда: Кххх
Рейтинг сообщения: 0
Нет. Эта процедура вызывается когда приходит каждая посылка....
Т.е. вы каждый раз открываете файл и закрывается.
На второй раз винда вывалит месягу, что такое файло такое уже есть, и так на каждую посылку, заколдобитесь эти месаджбоксы закрывать...
Файл надо открывать, когда вы вызываете если прошло успешноComPortOpen, и закрывать, там, где ComPortClose...
Зы. Посмотрю проект.
Если надо только логить данные может терратерм про поставить?


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: Delphi 7 ComPort library
СообщениеДобавлено: Вс дек 04, 2016 23:22:27 
Грызет канифоль

Зарегистрирован: Чт апр 28, 2011 15:08:58
Сообщений: 274
Рейтинг сообщения: 0
Дело в том что я свой терминал пишу, так бы мне конечно теры хватило бы.


Вернуться наверх
 
Показать сообщения за:  Сортировать по:  Вернуться наверх
Начать новую тему Ответить на тему  [ Сообщений: 7 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 20


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB
Extended by Karma MOD © 2007—2012 m157y
Extended by Topic Tags MOD © 2012 m157y