AXForum  
Вернуться   AXForum > Microsoft Dynamics AX > DAX: База знаний и проекты
All
Забыли пароль?
Зарегистрироваться Правила Справка Пользователи Сообщения за день Поиск

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 01.10.2008, 11:02   #1  
Rimantas is offline
Rimantas
Участник
 
304 / 16 (1) ++
Регистрация: 30.04.2004
Адрес: Utena , Lithuania
RS232 com port
Здраствуйте ,

По поиску нашёл классы от EVGL ( SF_MSComm32 ) . Но никак не могу найти решения , как считать информацию из СОМ порта и поставить инфо в нужное поле в форме . Имеем здесь несколько старых рабочих сканеров , которые привязанные к СОМ портам . Надо считать баркоды и поставить их в форму . Обьект классы создаеться , СОМ порт открываеться - дальше не понимаю , как описать опознание и наблюдение процесса СОМ порта ...

Заранее спасибо за помочь ! С уважением , Римантас
Старый 01.10.2008, 11:23   #2  
miklenew is offline
miklenew
Участник
Аватар для miklenew
MCBMSS
1C
Лучший по профессии 2009
 
1,688 / 433 (18) +++++++
Регистрация: 10.07.2006
Адрес: г. Ликино-Дулёво
А разве он сам этого не делает?
Откройте Word поднесите штрих код к аппарату.
Разве он ничего не напишет в Word-е.
__________________
Энергия молодых и неравнодушных способна изменить мир к лучшему.
Старый 01.10.2008, 11:28   #3  
Yprit is offline
Yprit
Злыдни
Аватар для Yprit
Злыдни
 
419 / 93 (4) ++++
Регистрация: 22.02.2004
Адрес: СПб
Я в свое время вешал в appl.startupPost() инициализацию обертки для MSCOMM32 и там же запуск опроса ком-порта через setTimeOut(). При наличии данных в буфере порта через xInfo.parmLastActivatedForm() получал экземпляр активной формы и проверял, есть ли там спец. метод (например, activateBarcode() или какой-нить другой). Если есть - передавал управление в этод метод вместе со считанным штрих-кодом, а в нем уже писал обработчик штрих-кода. Примерно так.

PS разработку от EVGL не смотрел :-(
Старый 01.10.2008, 11:33   #4  
Rimantas is offline
Rimantas
Участник
 
304 / 16 (1) ++
Регистрация: 30.04.2004
Адрес: Utena , Lithuania
Цитата:
Сообщение от miklenew Посмотреть сообщение
А разве он сам этого не делает?
Откройте Word поднесите штрих код к аппарату.
Разве он ничего не напишет в Word-е.
Конечно инфо от СОМ порта в Word непоступит ... . Вы путаете обычный сканер с сканером в СОМ порт ...

Римантас
Старый 01.10.2008, 11:37   #5  
miklenew is offline
miklenew
Участник
Аватар для miklenew
MCBMSS
1C
Лучший по профессии 2009
 
1,688 / 433 (18) +++++++
Регистрация: 10.07.2006
Адрес: г. Ликино-Дулёво
Цитата:
Сообщение от Rimantas Посмотреть сообщение
Конечно инфо от СОМ порта в Word непоступит ... . Вы путаете обычный сканер с сканером в СОМ порт ...
Римантас
А в чём разница?
Может у вас драйвер под него просто не стоит.
__________________
Энергия молодых и неравнодушных способна изменить мир к лучшему.
Старый 01.10.2008, 11:41   #6  
Rimantas is offline
Rimantas
Участник
 
304 / 16 (1) ++
Регистрация: 30.04.2004
Адрес: Utena , Lithuania
Цитата:
Сообщение от Yprit Посмотреть сообщение
Я в свое время вешал в appl.startupPost() инициализацию обертки для MSCOMM32 и там же запуск опроса ком-порта через setTimeOut(). При наличии данных в буфере порта через xInfo.parmLastActivatedForm() получал экземпляр активной формы и проверял, есть ли там спец. метод (например, activateBarcode() или какой-нить другой). Если есть - передавал управление в этод метод вместе со считанным штрих-кодом, а в нем уже писал обработчик штрих-кода. Примерно так.

PS разработку от EVGL не смотрел :-(
Простите , но для моей головы такое слишком сложно - непонял я здесь многое ... По моему здесь , как и должно быть всё попроще - 1. пускаю форму , 2. иницирую нужный СОМ порт , 3. во времени работы формы наблюдаю за СОМ порт . Вот етой 3-ей части и нехватает мне ... . Как активировать наблюдение СОМ порта в форме ? Там в классе EVGL дальше всё хорошо - есть методы опознания Input . Но я неимею сделать наблюдение и непонимаю как ето сделать ...

Римантас
Старый 01.10.2008, 11:46   #7  
Rimantas is offline
Rimantas
Участник
 
304 / 16 (1) ++
Регистрация: 30.04.2004
Адрес: Utena , Lithuania
Цитата:
Сообщение от miklenew Посмотреть сообщение
А в чём разница?
Может у вас драйвер под него просто не стоит.
А вот подключите какой нибудь старый модем в СОМ порт и попросите его написать всю инфо в Word ... Без спецяльной програмки такое не выдет ... И здесь - есть старые сканеры - нету никакого софта , драиверов с ними . Голый hardware . Раньше написана програмка под Clipper работала , но надо всё ето перенести в Ахапту ...
Старый 01.10.2008, 13:02   #8  
miklenew is offline
miklenew
Участник
Аватар для miklenew
MCBMSS
1C
Лучший по профессии 2009
 
1,688 / 433 (18) +++++++
Регистрация: 10.07.2006
Адрес: г. Ликино-Дулёво
Когда то писал програму на C++ Builder, которая работала с разными устройствами, через com port(Табло, пульты и др.) всё через один com-порт.
Принцип простой нужно три функции: инициализация порта, запись в файл, чтение из файла. С портом работается как с обычным файлом.
Но там нужно было знать протокол работы с устройством.
Не на все сигнады они отзываются только на свои.
Т.е. типа адресс_устройства+команда_для_этого_типа устройства+параметры_для_этой_команды+контрольная_сумма.
Возможно вам никаких команд не надо посылать на устройство.
Просто считывать данные отправляемые устройством.
Вечером покапаюсь в архиве, выложу эти функции.
Правда они на C++ Builder. Может пригодяться.
__________________
Энергия молодых и неравнодушных способна изменить мир к лучшему.
Старый 01.10.2008, 13:08   #9  
Yprit is offline
Yprit
Злыдни
Аватар для Yprit
Злыдни
 
419 / 93 (4) ++++
Регистрация: 22.02.2004
Адрес: СПб
Цитата:
Сообщение от Rimantas Посмотреть сообщение
Простите , но для моей головы такое слишком сложно - непонял я здесь многое ... По моему здесь , как и должно быть всё попроще - 1. пускаю форму , 2. иницирую нужный СОМ порт , 3. во времени работы формы наблюдаю за СОМ порт . Вот етой 3-ей части и нехватает мне ... . Как активировать наблюдение СОМ порта в форме ? Там в классе EVGL дальше всё хорошо - есть методы опознания Input . Но я неимею сделать наблюдение и непонимаю как ето сделать ...
Римантас
Чтобы во время работы формы реагировать на прерывания ком-порта, проще всего повесить на форму ActiveX MSComm.ocx (по-моему, он так назывался) и перекрыть у него метод onEvent_OnComm(), который срабатывает при считывании данных ш/к сканером. Если Вы хотите работать без ActiveX, то Вам придется самому организовывать периодический опрос ком-порта на предмет наличия в буфере данных. На форуме обсуждался вопрос об организации такого механизма в отдельном потоке - но, кажется, универсального решения не получилось.
Старый 01.10.2008, 13:17   #10  
lev is offline
lev
Ищущий знания...
Аватар для lev
Oracle
MCBMSS
Axapta Retail User
 
1,723 / 491 (20) +++++++
Регистрация: 18.01.2005
Адрес: Москва
у нас это реализовано с помощью element.setTimeOut("GetBarcode", TimeOut);
на формах геде должно быть сканирование добавляется метод GetBarcode();
в init() формы инициализируется ком порт и выставляется таймер на просмотр метода GetBarcode();
в этом методе проверяем есть ли что в ком порте, а далле получаем штрих код, и делаем всё что нам надо.
__________________
"Страх перед возможностью ошибки не должен отвращать нас от поисков истины." (с)
С Уважением,
Елизаров Артем
Старый 01.10.2008, 13:21   #11  
Gihar is offline
Gihar
Участник
 
31 / 10 (1) +
Регистрация: 04.08.2005
?
Цитата:
Сообщение от Rimantas Посмотреть сообщение
Здраствуйте ,
По поиску нашёл классы от EVGL ( SF_MSComm32 ) . Но никак не могу найти решения , как считать информацию из СОМ порта и поставить инфо в нужное поле в форме . Имеем здесь несколько старых рабочих сканеров ,
Извиняюсь, если не в тему, но:
А несколько сканеров - это сколько? Насколько они "специфичны"?
И не дешевле ли будет купить каких-нить Metrologic'ов по 100 баксов штука, чем кодить работу с com портом под Аксапту?
Старый 01.10.2008, 13:23   #12  
Yprit is offline
Yprit
Злыдни
Аватар для Yprit
Злыдни
 
419 / 93 (4) ++++
Регистрация: 22.02.2004
Адрес: СПб
Цитата:
Сообщение от lev Посмотреть сообщение
у нас это реализовано с помощью element.setTimeOut("GetBarcode", TimeOut);
Во-во, я про это и говорил в своем первом посте. Просто поскольку у нас работа со сканером разве что в ГК не велась, то я прикрутил более универсальный механизм, чтобы каждый раз на форме одни и те же методы не писать.
Старый 01.10.2008, 13:53   #13  
_scorp_ is offline
_scorp_
Участник
Аватар для _scorp_
MCBMSS
 
488 / 369 (13) ++++++
Регистрация: 25.07.2007
Адрес: Москва
Вот небольшое консольное приложение на .Net написанное на C#. Тут показано как писать в COM-порт или читать из него. Если у Вас Ax4, то работайте с Net прямо из аксапты.
X++:
using System;
using System.IO.Ports;
using System.Threading;
public class PortChat
{
    static bool _continue;
    static SerialPort _serialPort;
    public static void Main()
    {
        string name;
        string message;
        StringComparer stringComparer = StringComparer.OrdinalIgnoreCase;
        Thread readThread = new Thread(Read);
        _serialPort = new SerialPort();

        _serialPort.PortName = "COM1"; // Пишим нужный порт 
        _serialPort.BaudRate = 38400;
        _serialPort.Parity = Parity.None;
        _serialPort.DataBits = 8;
        _serialPort.StopBits = StopBits.One;
        _serialPort.Handshake = Handshake.RequestToSend;
        _serialPort.ReadTimeout = 500;
        _serialPort.WriteTimeout = 500;
        _serialPort.Open();
        _continue = true;
        readThread.Start();
        Console.WriteLine("Type QUIT to exit");
        while (_continue)
        {
            message = Console.ReadLine();
            if (stringComparer.Equals("quit", message))
            {
                _continue = false;
            }
            else if (stringComparer.Equals("ctrlz", message))
            {
                _serialPort.WriteLine("\x1A"); //Код Ctrl+Z 
            }
            else
            {
                _serialPort.WriteLine(message + "\r\n");
            }
        }
        readThread.Join();
        _serialPort.Close();
    }
    public static void Read()
    {
        while (_continue)  // Ждем данные 
        {
            try
            {
                string message = _serialPort.ReadExisting();
                if (message != "")
                {
                    Console.WriteLine(message);
                }
            }
            catch (TimeoutException) { }
        }
    }
}
Старый 01.10.2008, 14:16   #14  
Rimantas is offline
Rimantas
Участник
 
304 / 16 (1) ++
Регистрация: 30.04.2004
Адрес: Utena , Lithuania
Цитата:
Сообщение от Yprit Посмотреть сообщение
Чтобы во время работы формы реагировать на прерывания ком-порта, проще всего повесить на форму ActiveX MSComm.ocx (по-моему, он так назывался) и перекрыть у него метод onEvent_OnComm(), который срабатывает при считывании данных ш/к сканером. Если Вы хотите работать без ActiveX, то Вам придется самому организовывать периодический опрос ком-порта на предмет наличия в буфере данных. На форуме обсуждался вопрос об организации такого механизма в отдельном потоке - но, кажется, универсального решения не получилось.
Вот , вот ... увели на дорогу ... :-) . Спасибо за советы !
Старый 01.10.2008, 14:18   #15  
Rimantas is offline
Rimantas
Участник
 
304 / 16 (1) ++
Регистрация: 30.04.2004
Адрес: Utena , Lithuania
Цитата:
Сообщение от lev Посмотреть сообщение
у нас это реализовано с помощью element.setTimeOut("GetBarcode", TimeOut);
на формах геде должно быть сканирование добавляется метод GetBarcode();
в init() формы инициализируется ком порт и выставляется таймер на просмотр метода GetBarcode();
в этом методе проверяем есть ли что в ком порте, а далле получаем штрих код, и делаем всё что нам надо.
ПОЛЕЗНО ! Будем иметь в виду !
Старый 01.10.2008, 14:20   #16  
Rimantas is offline
Rimantas
Участник
 
304 / 16 (1) ++
Регистрация: 30.04.2004
Адрес: Utena , Lithuania
Цитата:
Сообщение от Gihar Посмотреть сообщение
Извиняюсь, если не в тему, но:
А несколько сканеров - это сколько? Насколько они "специфичны"?
И не дешевле ли будет купить каких-нить Metrologic'ов по 100 баксов штука, чем кодить работу с com портом под Аксапту?
В том и беда , кто никто несобираеться покупать новые - они работают на старой системе , значит они должны работать и на Ахапте ... Деньги считать при замедленной економике полезно ...
Старый 01.10.2008, 14:20   #17  
Rimantas is offline
Rimantas
Участник
 
304 / 16 (1) ++
Регистрация: 30.04.2004
Адрес: Utena , Lithuania
Цитата:
Сообщение от _scorp_ Посмотреть сообщение
Вот небольшое консольное приложение на .Net написанное на C#. Тут показано как писать в COM-порт или читать из него. Если у Вас Ax4, то работайте с Net прямо из аксапты.
Спасибо за sample !
Старый 01.10.2008, 17:23   #18  
Gihar is offline
Gihar
Участник
 
31 / 10 (1) +
Регистрация: 04.08.2005
Цитата:
Сообщение от Rimantas Посмотреть сообщение
В том и беда , кто никто несобираеться покупать новые - они работают на старой системе , значит они должны работать и на Ахапте ... Деньги считать при замедленной економике полезно ...
Ну, просто как то странно, если допустим у вас используется десять старых сканеров, что в моем понимании и есть "несколько". Тогда стоимость новых будет $1000.
Стоимость "допиливания" Аксапты на работу c компортовым сканером равна стоимости времени потраченному на эту доработку, и вполне может превысить эту $1000.
Старый 02.10.2008, 09:05   #19  
miklenew is offline
miklenew
Участник
Аватар для miklenew
MCBMSS
1C
Лучший по профессии 2009
 
1,688 / 433 (18) +++++++
Регистрация: 10.07.2006
Адрес: г. Ликино-Дулёво
Вот несколько функций для работы с com портом на С++ Builder.
Мож что пригодиться.
X++:
DCB dcb;
HANDLE hComm;

//Установка настроек com-порта
bool __fastcall InstallComm(int iPort) //номер порта
{
  BOOL fSuccess;
  char szCommPattern[8];
  if (iPort == 0)
    return false;
  sprintf(szCommPattern, "COM%d", iPort);
  hComm = CreateFile(szCommPattern,
      GENERIC_READ | GENERIC_WRITE,0,0,
      OPEN_EXISTING,0,0);
  if (hComm == INVALID_HANDLE_VALUE)
    return false;
  fSuccess = GetCommState(hComm, &dcb);
  if (!fSuccess)
    return false;
  dcb.BaudRate = CBR_57600;
  dcb.ByteSize = 8;
  dcb.fParity = FALSE;
  dcb.Parity = NOPARITY;
  dcb.StopBits = TWOSTOPBITS;
  dcb.fOutxCtsFlow = FALSE;
  dcb.fOutxDsrFlow = FALSE;
  dcb.fDtrControl = DTR_CONTROL_DISABLE;
  dcb.fDsrSensitivity = FALSE;
  dcb.fRtsControl = RTS_CONTROL_DISABLE;
  fSuccess = SetCommState(hComm, &dcb);
  if (!fSuccess)
    return false;
  SetupComm(hComm, 1024, 1024);
  COMMTIMEOUTS TO;
  TO.ReadIntervalTimeout = 80;// 50
  TO.ReadTotalTimeoutMultiplier = 1;  ///1
  TO.ReadTotalTimeoutConstant = 100; ///500
  TO.WriteTotalTimeoutMultiplier = 200; ///10
  TO.WriteTotalTimeoutConstant = 2000; ///100
  SetCommTimeouts(hComm, &TO);
  return true;
}
//Запись в com-порт
bool __fastcall WriteBuffer(byte* lpBufWrite,DWORD dwToWrite)
{
DWORD dwWritten;
GetCommState(hComm,&dcb);
dcb.fDtrControl=DTR_CONTROL_DISABLE;
SetCommState(hComm,&dcb);
GetCommState(hComm,&dcb);
dcb.fDtrControl=DTR_CONTROL_ENABLE;
SetCommState(hComm,&dcb);
  for(unsigned i=0;i<dwToWrite;i++)
  {
    if (i==dwToWrite-1)
    {
      GetCommState(hComm,&dcb);
      dcb.fDtrControl=DTR_CONTROL_DISABLE;
      SetCommState(hComm,&dcb);
    }
    WriteFile(hComm,lpBufWrite+i,1,&dwWritten,NULL);
    Sleep(1);
  }
  return true;
}

//-------------------------------------------------------------------------------
//Чтение из com-порта
int __fastcall ReadBuffer(byte* lpBufRead,DWORD dwToRead)
{
  DWORD dwRead=0;
  Sleep(2);
  ReadFile(hComm,lpBufRead,dwToRead,&dwRead,NULL);//Читаем буффер
  PurgeComm(hComm,PURGE_RXCLEAR);//Очищаем буффер
  return dwRead;
}

//Использование

DWORD dwBytesReceived;
byte  buf[64];
dwBytesReceived = ReadBuffer((char *)buf,13);

byte OutText[22];
  OutText[0]=adr;
-----------------
  OutText[22]= X;
WriteBuffer(OutText,22);
__________________
Энергия молодых и неравнодушных способна изменить мир к лучшему.
Старый 02.10.2008, 12:53   #20  
Rimantas is offline
Rimantas
Участник
 
304 / 16 (1) ++
Регистрация: 30.04.2004
Адрес: Utena , Lithuania
Цитата:
Сообщение от Gihar Посмотреть сообщение
Ну, просто как то странно, если допустим у вас используется десять старых сканеров, что в моем понимании и есть "несколько". Тогда стоимость новых будет $1000.
Стоимость "допиливания" Аксапты на работу c компортовым сканером равна стоимости времени потраченному на эту доработку, и вполне может превысить эту $1000.
... ну вы и даёте ... Моя месячная зарплата ~ 1000 еур . Ведь небудет мне платить 1000 $ за несколько дней ... Так что ничего неотстаёться - надо сделать чтение ш/к из СОМ портов ...
Теги
com port, rs232, winapi, ax4.0

 

Похожие темы
Тема Автор Раздел Ответов Посл. сообщение
COM / RS232 simple intergation project EVGL DAX: База знаний и проекты 10 18.03.2014 15:04
Kurt Hatlevik: Sneak preview of the WMS E&E Blog bot DAX Blogs 0 20.11.2008 01:10
msdynamicsax: VB script that test the com connector for Dynamics Ax 4.0 Blog bot DAX Blogs 0 25.08.2008 18:05
Solutions Monkey: Enterprise Portal Screencasts at Channel9.msdn.com Blog bot DAX Blogs 6 01.07.2008 19:38

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Рейтинг@Mail.ru
Часовой пояс GMT +3, время: 01:20.
Powered by vBulletin® v3.8.5. Перевод: zCarot
Контактная информация, Реклама.