Программирование COM - порта

[vania-pooh]

Значит задача такая: есть устройство, подсоединенное через ком1 порт (используется 4 жилы - RXD, TXD, GND и кажись DTR, номера жил - 1,2,3,4). Необходимо каким-то образом считать из внутренней памяти устройства данные. Мой вариант (на Pascal):

...
assign(f,COM1); //f - файловая переменная, присваиваем
reset(f); //читаем
read(f,var1,var2,...,varn);//считываем в переменные
...

Т.е. мы открываем порт для доступа через стандартный псевдоним и читаем данные. Я так не пробовал никогда, но кажется должно работать. Кто имел дело с подобными вещами, напишите что вы об этом думаете и как можно реализовать подобную тему. Пока считайте, что данные - некодированные, а просто лежат последовательно в ячейках памяти. Код программы желательно писать на паскале или объектном паскале, но можно и на "с". Заранее спасибо.

[frost_ii]

Я так полагаю, что сначала на устройство нужно послать команду, чтобы оно эти данные в порт бросило...
э-э-э... как оно там?
var
     command : string;
begin
     command = "GET";
     assign(f,COM1);
     rewrite(f);
     write(f,command);
     close(f);

     reset(f)
     .....

[PeaK]

Вообще нужно бы задавать параметры порта. В свое время для работы с ком портом на Делфи я потратил кучу времени для создания отдельного модуля.
Програмка создается на каком именно компиляторе?

[vania-pooh]

пусть для удобства всех это будет delphi 6. соотв. там меняется close на closefile.

[PeaK]

Написано более чем на 50% не мной, но почти все процедуры доводились мною. Использую постоянно.
Создаем объект и наслаждаемся. Использую Д7, но ничего привязанного именно к семерке нет.

[vania-pooh]

а кстати куда этот модуль класть чтобы просто подключать?

[PeaK]

Модуль кладется в каталог с проектом.
В том модуле, который будет работать с портом, вверху, после uses, через запятую, добавляем ComPort. Если все правильно, то проект должен компилироваться и при зажатом контроле на клавиатуре кликом мышки по строчке ComPort проваливаться в файл ComPort.pas.
После чего, объявляем глобальную переменную типа

Код:

var
  ComPort    : TRS232 ;

Это можно сделать прямо за инструкцией implementation.
Иннициализируется порт примерно так

Код:

ComPort := TRS232.Create(AOwner) ;
ComPort.ComPortParity := ptEVEN ;
ComPort.ComPortDataBits := db8BITS ;
ComPort.ComPortStopBits := sb1BITS ;
ComPort.ComPortHwHandshaking := hhNONE ;
ComPort.ComPortSwHandshaking := shNONE ;
ComPort.Connect ;

Это удобно делать при создании формы в методе Create.
Соответственно при окончании работы память неплохо бы освободить.

[vania-pooh]

а ну с самим то модулем я уже разберусь. а в готовую программу он сам вкомпилирует этот модуль или придется класть пас-файл и в дистрибутив?

[PeaK]

Нет. Все будет откомпилировано и включено.

[vania-pooh]

насчет того, что я разберусь, я видимо ошибся. че дальше то делать можно, чтобы с устройства хоть один байт получить или строку? а то я просто если readstring применяю, то он читает пустую строку.

[PeaK]

Читай побайтно в цикле While, до прочтения первого байта. (функция вернет true) Плюс ищи что-то типа Advanced Serial Port Monitor - что бы убедиться, что передача идет.

[vania-pooh]

а где вообще искать?

[PeaK]

а где вообще искать?

В интернете. Дело в том, что мой я потер, сейчас задачи другие, поэтому не пользуюсь, но снифер на последовательный порт - вещь в таком программировании нужная.

[swein]

если это учебная таска - то мог бы удосужится написать в яндексе чтото типа "программирование rs-232 на pascal"
если пишешь для себя - взял бы яву http://www.java2s.com/Code/Java/Development-Class/COM-Port.htm