VPF::com-порт - Форум программистов

Bulat

Дата 18.1.2013, 20:29 (ссылка)

(нет голосов)

Загрузка ...

татарский Нео

Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: 5
Всего: 57

есть желание опросить контроллер по com-порту.

суть в том, что бинарный пакет отправить у меня получается, а вот ответ получить не могу, но пакет уходит верный и контроллер 100% отвечает на него.

Вот, что у меня есть на данный момент:

Код


#!/usr/bin/perl -w
use strict;

my $foo = pack("C8", 0x01, 0x03, 0x00, 0x63, 0x00, 0x03, 0xF5, 0xD5);

use Fcntl;

my $Buffer;

sysopen(HANDLE, "\.\\COM2 ",  O_RDWR|O_EXCL|O_CREAT, 0755) || die "sysopen  $!";
my $oldfh = select(HANDLE);
$| = 1;
select($oldfh);
print HANDLE $foo;
sysread(HANDLE, $Buffer, 2048);
print $Buffer, "\n";

Что я делаю не так или чего не хватает?? smile

Это сообщение отредактировал(а) Bulat - 18.1.2013, 20:30

--------------------

менеджер по кодеврайтингу smile

Pfailed

Дата 19.1.2013, 08:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 22
Всего: 39

До строки "print $Buffer, "\n";" программа доходит? Что она печатает?

--------------------

I'm on CPAN
I'm on github

Bulat

Дата 19.1.2013, 12:33 (ссылка)

(нет голосов)

Загрузка ...

татарский Нео

Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: 5
Всего: 57

программа доходит до строки

Код


sysread(HANDLE, $Buffer, 2048);

и зависает в ожидании ответа. Симулятор устройства обратно пакет отправляет.

По TCP это выглядит так:

Код


#/usr/bin/perl

use strict;

use Socket;

my $IPAddr = inet_aton('localhost');
socket SH, AF_INET, SOCK_STREAM, 0;
connect SH, sockaddr_in(6000, $IPAddr) || die $!;

#код команды модбас = 1
#my $foo = pack("C12", 0x00, 0x01, 0x00, 0x00, 0x00, 0x06, 0x01, 0x01, 0x00, 0x63, 0x00, 0x04);

#код команды модбас = 3
my $foo = pack("C12", 0x00, 0x02, 0x00, 0x00, 0x00, 0x06, 0x01, 0x03, 0x00, 0x63, 0x00, 0x03);

send(SH, $foo, 0) || die $!;

my $Buffer;
recv(SH, $Buffer, 1024, 0) || die $!;

print "$Buffer\n";

print unpack("C15", $Buffer), "\n";

shutdown SH, 2;

и результат -

Код


>test.pl
 ☻      ☺♥♠
020009136000000

Вот нужно еще и по ком-порту

--------------------

менеджер по кодеврайтингу smile

Bulat

Дата 19.1.2013, 13:06 (ссылка)

(нет голосов)

Загрузка ...

татарский Нео

Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: 5
Всего: 57

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

--------------------

менеджер по кодеврайтингу smile

Pfailed

Дата 19.1.2013, 15:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 22
Всего: 39

Думаю нужно поиграться с 3-м параметром sysopen. Кстати, с обычным open и параметром "+>" или "+<" не получается?

--------------------

I'm on CPAN
I'm on github

Bulat

Дата 20.1.2013, 15:38 (ссылка)

(нет голосов)

Загрузка ...

татарский Нео

Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: 5
Всего: 57

Цитата(Pfailed @ 19.1.2013, 15:21

)

Думаю нужно поиграться с 3-м параметром sysopen.

Ты прав.

Если вместо

Код


sysopen(HANDLE, "\.\\COM2 ",  O_RDWR|O_EXCL|O_CREAT, 0755) || die "sysopen  $!";

написать

Код


sysopen(HANDLE, "\.\\COM2 ",  O_RDWR, 0755) || die "sysopen  $!";

То вроде бы все работает как и ожидалось.

--------------------

менеджер по кодеврайтингу smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »