Работа со сканером шрихкодов через TBComPort

[tarakan1983]

Сканер подключен через com.
Использую

procedure TDm.BComRxChar(Sender: TObject; Count: Integer);
var
  S : AnsiString;
begin
BCom.ReadStr(s, Count);
showmessage(s);
// Передаю s в функцию поиска товара по штрих коду в БД.
end;

получаю 2 мессаги, причем при использовании одного типа штрихкода - в одной первую половину, во второй вторую половину. при использовании другого типа - в первой месаге весь штрихкод вторая - пустая.
Почему у меня месага 2 раза?
Как мне при разделении ШК на 2 части соединить в одну и передать и передать ШК в функцию поиска по БД?
Спасибо.

[Streletz]

Почему у меня месага 2 раза?

Что гласит документация по сканеру?

Как мне при разделении ШК на 2 части соединить в одну

Конкатенация не помогает?

передать ШК в функцию поиска по БД

Что собой представляет функция поиска по БД? Функцию в студию.

[tarakan1983]

Что гласит документация по сканеру?

По этому поводу я ничего там не нашел!

Конкатенация не помогает?

Что это? можно подробнее?

Что собой представляет функция поиска по БД? Функцию в студию.

есть FibDataset.
ему передаю

selectSql.add('SELECT * FROM TOVAR WHERE BARCODE LIKE :BARCODE');
parambyNAME('BARCODE').asstring=S;
active=tru;

примерно такая функция, там получаю ID товара и дальше еще много чего

[Streletz]

Что это? можно подробнее?

Конкатенация - операция соединения нескольких строк в одну. Простейший пример:

s1:='aaa';
s2:='bbb';
s1:=s1+s2;
//Результат будет: aaabbb

Синтаксис SQL запроса правильный. В чём конкретно состоит проблема с передачей штрих кода в запрос к БД?

[tarakan1983]

ну смотрите предположим пишу такую процедуру

procedure TDm.BComRxChar(Sender: TObject; Count: Integer);
var
  S : AnsiString;
begin
s:=''; //обнуляем s
BCom.ReadStr(s, Count);
//showmessage(s);
// Передаю s в функцию поиска товара по штрих коду в БД.
s:=s+s;
IDTOVARA=Poisk_v_BD(s);
end;

Получается функция поиска прогоняется 2 раза по первой половине ШК и по всему ШК в случае разделения ШК пополам, и когда в первый раз не находит, то IDTOVARA становиться 0 и получается чихарда!
Дело в том, что если функция находит товар она добавляет его в текущий чек, иначе выдает месагу о том что товар не найден

[raxp]

Мессаги склеивать и проверять CRC кода, это очевидно.

А вообще, у вас что-то с настройками порта, таймаутов, размера буфера. Если такое творится и в стороннем терминале с данными, то значит сие особенность ПО сканнера.

[Streletz]

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

ну смотрите предположим пишу такую процедуру

procedure TDm.BComRxChar(Sender: TObject; Count: Integer);
var
  S : AnsiString;
begin
s:=''; //обнуляем s
BCom.ReadStr(s, Count);
//showmessage(s);
// Передаю s в функцию поиска товара по штрих коду в БД.
s:=s+s;
IDTOVARA=Poisk_v_BD(s);
end;

Получается функция поиска прогоняется 2 раза по первой половине ШК и по всему ШК в случае разделения ШК пополам, и когда в первый раз не находит, то IDTOVARA становиться 0 и получается чихарда!
Дело в том, что если функция находит товар она добавляет его в текущий чек, иначе выдает месагу о том что товар не найден

А, где у Вас в процедуре чтение второй части штрих кода?
Если Вы запустите процедуру в таком виде, то у Вас получится, что 1я и 2я половины будут одинаковые. Посмотрите Ваш код внимательно.
Сделайте чтение 2й половины. И, только после этого, данные из обеих половин склеивайте конкатенацией.

[tarakan1983]

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

А, где у Вас в процедуре чтение второй части штрих кода?
Если Вы запустите процедуру в таком виде, то у Вас получится, что 1я и 2я половины будут одинаковые. Посмотрите Ваш код внимательно.
Сделайте чтение 2й половины. И, только после этого, данные из обеих половин склеивайте конкатенацией.

Я же объясняю, я запускаю процедуру 1 раз

BCom.ReadStr(s, Count);
showmessage(s);

а получаю 2 сообщения, и не пойму почему так происходит!

[raxp]

- описание настроек порта для сканнера из его доков в тему
- описание настроек порта в вашей утилите в тему
- логи посылок сканнера сниффером Portmon в HEX отображении в виде экспорта в txt-файл в тему

Штрих-код имеет контрольную сумму. Объединить две посылки в одну и проверить CRC, если они таковыми и являются - не проблема.

[tarakan1983]

Всем спасибо за внимание, глюк в компоненте.
У самой компоненты в функции ReadStr(s, Count) : Integer;
в самом начале поставил Sleep(50) и все стало на свои места.
Потому что в режиме отладки все работает нормально, а скомпилированый проект такую фигню делает.