Коспоненты для работы с com

[raxp]

BCOMport и прочие были написаны давно, до появления юникодных Delphi. Измените все типы string на ansistring, и прочее в самом компоненте и у себя. Поможет.

Что до:

Замечтательно надейться на то что у сканера будет соответствующий коннектор для СОМ )

USB сканеры могут работать (притворяться) не только как HID, но и использовать виртуальный COM over USB.

[tarakan1983]

Сам сканер настраивается на добавление к ШКИ либо клавиши TAB либо ENTER, что и дает подобие ввода с клавиатуры, причем законченного ввода.

Вот тут и мой косяк. Вот я осел, только сейчас увидел что он кроме циферок еще передает и параметры.
А почему именно OnKeyPress?

И тогда второй вопрос, продавцу на кассе надо постоянно ставить курсор в поле "поиск по штрихкоду"?
Как отловить с него данные, даже если сейчас курсор на гриде?

[raxp]

Как отловить с него данные, даже если сейчас курсор на гриде?

и тут мы плавно переходим в тему http://programmersforum.ru/showthread.php?t=211337

[tarakan1983]

и тут мы плавно переходим в тему http://programmersforum.ru/showthread.php?t=211337

я этого и ожидал!

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

Ха! Я удивлен что с клавиатуры отрабатывает нормально )
Сканер нужно настроить чтоб он выдавал вместе со ШКИ нажатие клавиши Энтер. Делается это (надеюсь ты знаешь) настроечными таблицами для сканера.
После чего твой код нужно перенести в OnKeyPress, и прописать условие нажатия энтера:

Procedure Edit1OnKeyPress(...);
var
    BAR : string;
begin
if key<>#13 then exit;
BAR:=Trim(Edit1.Text);
  if BAR<>'' then
    begin
    with QGood do
    begin
      Active:=False;
      ParamByName('BAR').AsString:='%'+BAR+'%';
      Active:=True;
    end;
    end;
end;

Это даст гарантию что ШКИ введен полностью.
Сам сканер настраивается на добавление к ШКИ либо клавиши TAB либо ENTER, что и дает подобие ввода с клавиатуры, причем законченного ввода.

И еще с этим кодом такая проблема, я так понял, что событие OnKeyPress(...) наступает до того как заполняется edit, поэтому при первом нажатии переменная BAR='' как выйти из этой ситуации?

[Stilet]

поэтому при первом нажатии переменная BAR='' как выйти из этой ситуации?

Обрати внимание на условие key<>#13
Тебе по барабану какое там где нажатие, потому что BAR заполняется всем что введено только после ввода энтера.

[tarakan1983]

Я думал что Вы ошиблись здесь в коде, ведь получается, когда я буду набирать штрихкод с клавиатуры, то он просто будет выходить из этой процедуры.


Все разобрался, просто я осуществлял поиск при нажатии любой клавиши с клавиатуры, а надо искать только после нажатия ентер.
Спасибо Stilet не дал уйти в каменный век к com-портам.

[raxp]

Все разобрался...

да походу нет, вы пошли другим путем.

уйти в каменный век к com-портам

сие спорный вопрос, но это за рамками темы

[Stilet]

я осуществлял поиск при нажатии любой клавиши с клавиатуры

Один из самых эффективных кошмаров поисковых механизмов )
Особенно если предидущий поиск еще не закончен, а новый уже начался.

сие спорный вопрос, но это за рамками темы

Верно. Спорный. Но в данном конкретно случае неуместный.