Еще раз о подключении сканнера штрих кодов

[Alks]

Начало темы лежит на http://forum.mazzy.ru/index.php?showtopic=962
Очень похожая тема есть здесь http://www.axforum.info/forums/showt...EA%E0%ED%E5%F0

Но к сожалению ответа на главный вопрос "как отловить внешнее событие из другого процесса/потока в аксапте" никто не знает, создаётся впечатление что это невозможно сделать .

Одно из реальных решений - опрашивать драйвер сканнера из самой аксапты по таймеру (напр. 1 сек) на предмет наличия новых данных (благо OPOS драйвер хорошо поддерживает такой подход). Видимо придется остановится на этом варианте, но хотелось бы еще подолбить эту тему, может появились уже свежие идеи.

Есть еще одно решение - использовать сканнеры подключаемые в разьем клавиатуры. Необходимость в дровах и синхронизации с внешними событиями отпадает, но появляется новый вопрос:
Как в аксапте удобным образом перехватить поступаемые со сканнера подключаемого в разьем клавиатуры данные?

Опять же, как и в случае с COM драйвером я уже имею прекрасно работающее готовое решение в 1С - это "горячие клавиши". Я программирую сканнеры таким образом, чтобы они перед подачей самого сосканированного штрих-кода засылают в буфер клавиатуры код нажатия функциональной клавиши (в моём случае - F3), а в 1С в формах которые предполагают использование сканнера делаю невидимую кнопку, которой присваюваю hotkey F3. При нажатии на эту кнопку 1С открывает модальный диалог "введите штрих код". Поступившие из сканнера данные преспокойненько туда забиваются и последним символом поступает ENTER, который соответственно закрывает диалог и далее код в программе уже решает что делать с этим штрих-кодом. Т.о. где бы на форме не находился фокус ввода, сканирование штрих-кода приводит к корректному поступлению его в программу и автоматическому запуску самых разнообразных процедур.

Столкнувшись с трудностью отлавливания внешнего события из Axapta я начал прорабатывать этот вариант и... столкнулся с опять же непреодолимой трудностью. Оказывается (судя из этого же форума) в Axapta практически нельзя назначить горячие клавиши кнопкам! Вариант с task не предлагать, ибо все task-и по функиональным клавишам нужны в самой Axapta. Вариант когда пользователь вынужден сперва спозиционироваться на нужное поле в форме и потом только сканировать тоже не пройдет вследствии своей жуткой неудобности.

Есть ли у кого нибудь реальные наработки и решения в данной области? Что то я совсем перестал понимать как в самой Axapta разработчики предполагали подключать сканнеры (как COM, так и разьем с клавиатуры). Не верю что никто и никогда не подключал к Axapta сканнеры штрих-кодов.

[savel]

Я подключал через ActiveX. Обрабатываю события по таймеру. Работает без нареканий.

[George Nordic]

Недавно на сайте у бывших "заклятых друзей" Компании "Атол" (http://www.atol.ru/ru/download/ Драйвер сканера шк) нашел фразу про совместимость с Axapta. Попробуйте их расспросить, как да что.

[Yprit]

На мой взгляд, два наиболее оптимальных пути решения уже были детально разобраны на форуме:
1) через ActiveX. Наименее трудозатратный в плане разработки. В сочетании с SysFileDeployer дает неплохие результаты. Кстати, MSComm прекрасно отлавливает события - не совсем понимаю, при чем здесь таймер? Или имелась в виду задержка чтения (sleep())?
2) Работа с Com-портами из Аксы через API. Более детального ее описания, чем у George Nordic, найти сложно :-). Также обсуждение можно посмотреть на technet. Там, кстати, лежит ссылка на msdn, где описаны основные алгоритмы работы с COM на примере создания ActiveX, альтернативного MSComm. Принципиальных трудностей с реализацией также не вижу - у самого не хватило времени сделать такой механизм

[Alks]

Спасибо всем за внимание, Я РЕШИЛ ПРОБЛЕМУ.
Счастья полные штаны. Перехватывать асинхронные события изве в Axapta - реально!

Цитата:

SComm прекрасно отлавливает события - не совсем понимаю, при чем здесь таймер? Или имелась в виду задержка чтения (sleep())?

Повторю свой постинг из форума маззи - надеюсь станет понятно в чём БЫЛА проблема:

Цитата:

...Спасибо огромное за совет! Действительно я еще ломал голову как внедрить COM-объект в аксапту так чтобы и аксапта могла вызывать его методы, и объект мог вызывать события в ней - интеграция с ActiveX это решает.
Однако основная проблема всё равно остаётся открытой.
Дело в том что обычные ActiveX контролы запускаются и целиком и полносью работают в рамках того же процесса и потока, в котором выполняется основная программа и поэтому никаких проблем не возникает - при возникновении Event-а метод его обработки работает как надо.
Например, если я делаю ActiveX-control, который активирует внутри себя WinAPI-шный таймер (который выполняется в рамках очереди сообщений основного потока процесса), и в Event-е пишу print "Event" - всё работает замечательно - с периодичностью 1секунда в print window выводится эта строка.

Тут же трудность состоит в том что объект драйвера выполняется в отдельном потоке и Event соответственно срабатывает в нём. А так как в это время сама аксапта может уже (и как правило так и происходит) заниматсься своими делами (реакцией на ввод, какие то внутренние циклы), то получается событие "вклинивается" в нормальный ход вещей совсем ненормальным образом.
Например если я пишу в своём ActiveX контроле инициализацию thread-а, в котором периодически пытаюсь активировать Event - приложение рушится без лишних вопросов.
Тут нужно сработать таким образом, чтобы активация событий была синхронизирована с работой основного кода аксапты. В 1С для этого специально был предусмотрен механизм внешних сообщений, вот я и подумал - а нет ли такого в аксапте тоже? Может можно хотя бы в основной поток GetMessage/DispatchMessage ложить свои сообщения?

Другими словами, если ты попробуешь сделать свой актив-х-контрол, создать в нём поток и из этого потока пытаться вызвать событие в Axapta (как это в общем то делает OPOS драйвер от Symbol) - приложение 100%-но рухнет...... если не одно НО... которое я всё таки вспомнил, слава богу опыт програмирования COM-объектов имеется.

ИТАК, данную проблему можно прекрасно разрешить если вспомнить про т.н. "apartment model". Если кого то интересует могу поподробнее объяснить.

[mazzy]

конечно же интересует
с нетерпением ждем объяснений.

[Yprit]

Туплю, наверное.... Большинство ActiveX для работы с портами так и делают - создают отдельный поток и через APIшную функцию WaitCommEvent() обрабатывают прерывания от порта, генерируя СВОЕ событие. А ты уж его обрабатывай из Аксапта как хочешь... Зачем таймер-то?
Про apartment model - плиз, плиз. Очень интересно

[Diman]

Позвольте спросить, как в Аксапте обработать событие от СОМ сервера? Дайте ссылочку плз на пример кода на X++.

А про apartment threading model скорее всего имеется ввиду
это

[Alks]

Упс... похоже я поторопился... Хотя и приложение перестало рушится в случае если событие вызывается когда аксапта крутится в цикле GetMessage/DispatchMessage и даже регулярно обновляется окно infolog, если в обработке события писать info( "...." ), но если событие случается в момент обновления таблиц или другой какой нибудь активности, всё подвисает странным образом...

В общем любой кто когда нибудь создавал проекты ActiveX-control-ов (да и вообще COM-объектов) в средах программирования (VC++ / C++Buidler / Delphi) с первых же шагов стандарных Wizard-ов имеет возможность выбрать так называемую Threading model (можно перевести как "модель управления многопоточностью") - по умолчанию данная опция обычно стоит в Apartment режиме из 4 возможных: Single, Apartment, Free, Both. Обычно с многопоточностью программисты разбираются сами и игнорируют этот параметр (многие даже не знают что это такое).

Инфраструктура COM-объектов обеспечивает то, что для объектов с моделью многопоточности SINGLE, вызов их методов (invocation) произойдет в основном потоке программы, даже если они были вызваны из другого потока, ЧТО МНЕ И ТРЕБОВАЛОСЬ. Насколько я понимаю Windows просто складывает вызовы методов таких объектов с главную очередь сообщений программы и по в ProcessMessage вызывает их. По идее это должно было сработать, но сработало как то наполовину... сейчас еще покопаю в этом направлени...

[Alks]

Цитата:

А ты уж его обрабатывай из Аксапта как хочешь...

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

Цитата:

Зачем таймер-то?

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

[Yprit]

2 Alks
Так, давайте определимся, что мы обсуждаем:
1) Работу с COM-портами из Аксапта или
2) Создание АктивИкса, который может работать с портами

[Alks]

О йес... Я добил его... Просто неправильно работал с SINGLE threading model - не передавал интерфейсы между потоками через ф-ии CoMarshalInterThreadInterfaceInStream и CoGetInterfaceAndReleaseStream. Теперь всё работает. Если кого то интересует - могу выложить исходные коды этого ActiveX-контрола на Delphi куда пожелаете.

P.S.

Кстати саму threading model как оказалось менять вовсе и не обязательно - главное самому насильно принудить программу работать в single режиме вызовом вышеупомянутых функций.

[Alks]

Цитата:

2 Alks
Так, давайте определимся, что мы обсуждаем:
1) Работу с COM-портами из Аксапта или

Я нигде и никогда в этих форумах даже намёка не оставлял на то что хотел обсудить работу с COM-портами из ахапты. Везде писал про работу с OPOS-COM-драйвером Symbol сканнера, который из отдельного потока должен корректо вызывать событие в Axapta.

Цитата:

2) Создание АктивИкса, который может работать с портами

Нет, нет и еще раз нет! Я обсуждал создание ActiveX-а, который из отдельного потока может корректно вызввать асинхронные события в Axapta. Нужно мне это конечно для реализации обработки событий от COM-объекта, который читает данные из COM-порта, но сути проблемы ты похоже так и не понял. Чтобы понять просто попробуй создать актив-х для аксапты, который бы создавал отдельный поток в котором пытался бы вызывать событие в ахапте. Не знаю как тебе объяснить иначе.

[Yprit]

Да понял, понял, не ругайся так

Супер, что получилось.
Я все-таки хочу попробовать научить Аксапту работать с комами напрямую.

[Alks]

2 Yprit

Цитата:

Да понял, понял, не ругайся так

Супер, что получилось.
Я все-таки хочу попробовать научить Аксапту работать с комами напрямую.

А зачем? Теперь уже понятно что можно написать Active-X, который будет это делать... Да и разве можно в X++ реализовать многопоточность, которая желательна для работы с COM-портом в такой манере?

2 Diman

Цитата:

Позвольте спросить, как в Аксапте обработать событие от СОМ сервера? Дайте ссылочку плз на пример кода на X++.

рекомендую последовать первому совету Mazzy, который можно прочитать перейдя по ссылке, которую я постил тут с самого начала. Вкратце - пишем ActiveX control, который собственно и будет реагировать на внешние события через event-ы.

[George Nordic]

Цитата:

Изначально опубликовано Alks
Если кого то интересует - могу выложить исходные коды этого ActiveX-контрола на Delphi куда пожелаете.

Желаем-желаем! Выложите на форуме, плиз!

2 Yprit: Вряд ли получиться... я бы не рекомендовал эксперементировать.

[Alks]

Выложу завтра, с комментариями. Сегодня уже раб. день закончился, выгоняют.

[Yprit]

Цитата:

Да и разве можно в X++ реализовать многопоточность, которая желательна для работы с COM-портом в такой манере?

Думаю, да - механизмы для этого есть. Правда, детально механизм работы с потоками в Аксапте еще не разбирал

А зачем - по нескольким причинам.
Во-первых, мне не кажется оптимальным шлепать на все формы, где мне понадобится читать из/писать в Ком-порт, АктивХ. Субъективное ИМХО - не красиво это....
Во-вторых, у меня не для всех клиентов почему-то срабатывает скачивание файлов с сервера и регистрация этого АктивХ-а на клиенте через SysFileDeployer(). Причем никакой закономерности поймать пока не могу - а ручками копировать и регистрить лень...
В-третьих, мне просто интересно

[Diman]

2 Alks
Немного переформулирую вопрос:
Как подключить COM сервер в Axapta и использовать его source интерфейс?
Код обработчика события на X++ я не нашел.

[Alks]

Короче намучился я с этой хренью вдоволь, и решил что лучше не морочить себе голову и делать через таймер.
Привожу исходный код двух основных модулей моего ActiveX-а, который запускает поток из которого совершенно безопасно генерируется событие для Axapta. Казалось бы всё пучком, но возникли две непреодолимые для меня сейчас проблемы:
1. создание и передача "safe" указателя на интерфейс IAxBarScanner драйверу сканнера (который разумеется сам не делает CoGetInterfaceAndReleaseStream, а если пытаться сделать его в основном потоке программы сразу после CoMarshalInterThreadInterfaceInStream, то черезчур умная ф-я возвращает прямой указатель, а не маршализированный).
2. вследствии непонятной мешанины с AddRef/Relese ActiveX застревает в памяти (откуда то берутся целых 5 ссылок на него и он не уничтожается как должен был бы), в результате объекты плодятся безконтрольно и ахапта при выходе остаётся в списке задач

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

PHP код:

unit AxBarScannerImpl;

interface

uses
  Windows, ActiveX, Classes, Controls, Graphics, Menus, Forms, StdCtrls,
  ComServ, StdVCL, AXCtrls, AxBarScannerXControl_TLB, SysUtils;

type
  TAxBarScanner = class(TActiveXControl, IAxBarScanner)
  private
    { Private declarations }
    FDelphiControl: TStaticText;
    FEvents: IAxBarScannerEvents;
    FTestThread: TThread;
    procedure ClickEvent(Sender: TObject);
    procedure DblClickEvent(Sender: TObject);
  protected
    { Protected declarations }
    procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage); override;
    procedure EventSinkChanged(const EventSink: IUnknown); override;
    procedure InitializeControl; override;
    function Get_Alignment: TxAlignment; safecall;
    function Get_AutoSize: WordBool; safecall;
    function Get_BorderStyle: TxStaticBorderStyle; safecall;
    function Get_Caption: WideString; safecall;
    function Get_Color: OLE_COLOR; safecall;
    function Get_Cursor: Smallint; safecall;
    function Get_DoubleBuffered: WordBool; safecall;
    function Get_DragCursor: Smallint; safecall;
    function Get_DragMode: TxDragMode; safecall;
    function Get_Enabled: WordBool; safecall;
    function Get_Font: IFontDisp; safecall;
    function Get_ParentColor: WordBool; safecall;
    function Get_ShowAccelChar: WordBool; safecall;
    function Get_Visible: WordBool; safecall;
    function Get_VisibleDockClientCount: Integer; safecall;
    procedure _Set_Font(const Value: IFontDisp); safecall;
    procedure Set_Alignment(Value: TxAlignment); safecall;
    procedure Set_AutoSize(Value: WordBool); safecall;
    procedure Set_BorderStyle(Value: TxStaticBorderStyle); safecall;
    procedure Set_Caption(const Value: WideString); safecall;
    procedure Set_Color(Value: OLE_COLOR); safecall;
    procedure Set_Cursor(Value: Smallint); safecall;
    procedure Set_DoubleBuffered(Value: WordBool); safecall;
    procedure Set_DragCursor(Value: Smallint); safecall;
    procedure Set_DragMode(Value: TxDragMode); safecall;
    procedure Set_Enabled(Value: WordBool); safecall;
    procedure Set_Font(var Value: IFontDisp); safecall;
    procedure Set_ParentColor(Value: WordBool); safecall;
    procedure Set_ShowAccelChar(Value: WordBool); safecall;
    procedure Set_Visible(Value: WordBool); safecall;
    procedure ActivateScanData(const Data: WideString); safecall;
    procedure ShowRefCount; safecall;
  public
    destructor Destroy; override;
    //procedure AfterConstruction; override;
  end;

implementation

uses ComObj, TestThread;

{ TAxBarScanner }

procedure TAxBarScanner.DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage);
begin
  {TODO: Define property pages here.  Property pages are defined by calling
    DefinePropertyPage with the class id of the page.  For example,
      DefinePropertyPage(Class_AxBarScannerPage); }
end;

procedure TAxBarScanner.EventSinkChanged(const EventSink: IUnknown);
begin
  FEvents := EventSink as IAxBarScannerEvents;
end;

procedure TAxBarScanner.InitializeControl;
begin
  // Это нужно дельфям
  FDelphiControl := Control as TStaticText;
  FDelphiControl.OnClick := ClickEvent;
  FDelphiControl.OnDblClick := DblClickEvent;

  // Создаём поток
  FTestThread := AxTestThread.Create( True );

  // Сериализуем указатель на интерфейс в поток...
  if not Succeeded( CoMarshalInterThreadInterfaceInStream( IID_IAxBarScanner,
    Self as IAxBarScanner, (FtestThread as AxTestThread).Strm ) ) then
  begin
    MessageBox( 0, 'CoMarshal...() error', 'Error', MB_OK );
  end;

  // Если попробовать заменить эту хитрую процедуру простым присваиванием типа:
  // (FTestThread as AxTestThread).Scanner := Self as IAxBarScanner;
  // не пропуская указатель на интерфейс через ф-ии принудительного маршаллинга,
  // то аксапта неминуемо повиснет.
  // После десериализации любые вызовы к интерфейсу будут проходить через механизм
  // single threaded apartment model и, как следствие, выполнятся
  // в рамках работы основного потока программы GetMessage/DispatchMessage.

  // Активируем работу потока
  FTestThread.Resume;
end;

// ... вырезал ненужный код генерируемый дельфи

destructor TAxBarScanner.Destroy;
begin
  // Убиваем поток
  //_AddRef;
  //_AddRef;
  FTestThread.Terminate;
  FTestThread.WaitFor;
  FTestThread.Free;

  inherited;
end;

procedure TAxBarScanner.ActivateScanData(const Data: WideString);
begin
  if FEvents <> nil then
    FEvents.OnScanData( Data );
end;

procedure TAxBarScanner.ShowRefCount;
begin
  MessageBox( 0, PChar( IntToStr( RefCount ) ), 'RefCount', MB_OK );
end;

initialization
  TActiveXControlFactory.Create(
    ComServer,
    TAxBarScanner,
    TStaticText,
    Class_AxBarScanner,
    1,
    '',
    0,
    tmSingle);
end. 


PHP код:

unit TestThread;

interface

uses
  Classes, AxBarScannerImpl, AxBarScannerXControl_TLB, ActiveX;

type
  AxTestThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public
    Strm: IStream;
    Scanner: IAxBarScanner; // Собственно интерфейс ActiveX объекта
  end;

implementation

uses Windows;

procedure AxTestThread.Execute;
begin
  CoInitializeEx( nil, COINIT_APARTMENTTHREADED );
  Strm._AddRef;
  if not Succeeded( CoGetInterfaceAndReleaseStream( Strm, IID_IAxBarScanner, Scanner ) ) then
  begin
    MessageBox( 0, 'CoGetIface...() error', '', MB_OK );
  end;
  Strm := nil;

  while not Terminated do
  begin
    Sleep( 1000 );
    if not Terminated then
    begin
      Beep( 300, 100 );
      Scanner.ActivateScanData( 'Debil' );
    end;
  end;
  Scanner := nil;
  
  CoUninitialize;
end;

end.