[?]Cport 3.1 и COM порты в общем

[Slym]

а файл не создает потомучто запись в програмфайл не канает

[Zadovatel]

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

а файл не создает потомучто запись в програмфайл не канает

Вот здесь вы ошибаетесь.Фаил не создавался по другой причине.Если com порт открыт другим приложением,то создать класс с номером этого порта не получалось.Отсюда и не предсказуемое поведение программы.А так создавать файлы в данную папку получается.

[Zadovatel]

Об устройстве ничего не известно(в глаза его не видел).С AT командами я разобрался,правда не в hyperterminal.По поводу утечек памяти и общей реализации проекта.Все тонкости будут дорабатываться позднее.Мне нужно научиться отправлять/читать данные с порта.На сегодняшний момент у меня получилось открыть/закрыть порт.К сожалению,help фаил под старую версию(2.6),а я сейчас использую 3.1.Схематично это должно выглядить примерно так?
пишем строку в порт
ждем событие(какое?)
читаем строку из порта
Нужны ли еще какие-то операции,как например чистка различных буферов?

[raxp]

Об устройстве ничего не известно(в глаза его не видел).

тогда как вы можете утверждать, что оно нестандартное и как то отвечает или не отвечает на определенные АТ-команды?

С AT командами я разобрался,правда не в hyperterminal.

А гипертерминал приведен как пример сторонней стандартной утилиты в качестве независимой экспертизы от вашего "ПО".

По поводу утечек памяти и общей реализации проекта.Все тонкости будут дорабатываться позднее

у вас не просто утечки памяти, у вас полное непонимание использования имеющихся оберток. Откройте наконец-то справку к компоненту, если некогда MSDN изучать.

К сожалению,help фаил под старую версию(2.6),а я сейчас использую 3.1

не имеет значения.

Нужны ли еще какие-то операции,как например чистка различных буферов?

поскольку при каждом обращении к порту вы работаете из нового экземпляра класса tcomport и порт закрываете, то нет, если закрыть глаза на утечки и использование VCL в потоке, и опять же, если закрыть снова глаза на то, что у данной обертки есть свой поток чтения, своя нить обработки приема с порта.

[Zadovatel]

Ладно,если уж пошла такая пляска.Вся реализация протикает в службе,отсюда и потоки(OnStart - создаем,onStop - уничтожаем).Справку я уже почти на изусть вызубрил,толку мало,так как в большинстве случаев там не описываются параметры,некоторые свойства просто отсутствуют.В итоге по справке уничтожение класса происходит X.Free,а на практике в новой версии X.Destroy.Так как процедура Free физически отсутствует.Вы сами конкретно с этим компонентом работали?Если да,то приведите пожалуйста пример чтения/записи.На всякий случай прикрепил сам компонент,может кто разберется.

[Zadovatel]

После 3 часов ковыряния в справке компонента и примерах работы с COM портом с использованием WinAPI получилось наковырять блок инициализации параметров СOM порта и таймаутов.Не знаю,доведу ли я затею до конца,так что для будущих поколений:

//Задаем параметры COM порта и устанавливаем таймауты
 with ComPort1 do
 begin
    Port := 'COM5';          {Номер порта}
    BaudRate := br115200;     {Скорость в бодах}
    DataBits := dbEight;      {Кол-во бит в байте}
    Parity.Bits := prNone;    {Отключаем проверку четности}
    StopBits := sbOneStopBit; {Число стоповых битов}
    timeouts.ReadInterval:=50;
    timeouts.ReadTotalMultiplier:=15;
    timeouts.ReadTotalConstant:=1;
    timeouts.WriteTotalMultiplier:=15;
    timeouts.WriteTotalConstant:=1;
    end;

[northener]

какая разница какой он компонент возьмет, если он не знает как с ними обращаться в потоках

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

[raxp]

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

все обертки почти одинковы. Да вы почитайте, справку TC вызубрил, а собственное событие приема данных OnRxChar() модуля упустил из виду, а оно срабатывает из собственного потока (нити) обертки.

Раз уж работа осуществляется в службе, как уточнил TC, то асинхронная запись и чтение оправданы, однако тут можно было обойтись и непосредственной работой с портом без оберток, впрочем - неважно, TC удобней через компонент, пусть будет компонент. Но вот все остальные фиксы по коду, что озвучены выше, нужно решить.

[Zadovatel]

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

все обертки почти одинковы. Да вы почитайте, справку TC вызубрил, а собственное событие приема данных OnRxChar() модуля упустил из виду, а оно срабатывает из собственного потока (нити) обертки.

Раз уж работа осуществляется в службе, как уточнил TC, то асинхронная запись и чтение оправданы, однако тут можно было обойтись и непосредственной работой с портом без оберток, впрочем - неважно, TC удобней через компонент, пусть будет компонент. Но вот все остальные фиксы по коду, что озвучены выше, нужно решить.

За RxChar спасибо.
Нашел вот такую процедуру:
procedure WaitForEvent(var Events: TComEvents; StopEvent: TEvent; Timeout: Integer);
С первым и последним параметрами все вроде ясно,а вот со вторым не понятка.Цитата из help файла :

StopEvent parameter is Win API event that cancels wait operation if application turns it on.

Я так понимаю,что здесь мне нужно подключить модуль windows,создать экземпляр класса TEvent.А вот что дальше не ясно.Какой флаг записать в этот класс?

[raxp]

var
  ComPort: TComPort;
  Events: TComEvents;
 
begin
  ComPort := TComPort.Create(nil);
  try
    ComPort.Events := [];  // do not create monitoring thread
    ComPort.Open;  // open port
    Events := [evCTS, evDSR, evRLSD];  // define events to wait for
    ComPort.WaitForEvents(Events, nil, WaitInfinite);  // wait until at least one event happens
    if evCTS in Events then
 
      WriteLn('CTS Changed');  // CTS signal changed state
    ComPort.Close;  // close port
  finally
    ComPort.Free;
  end;
end;