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

[tarakan1983]

Здравствуйте.
Имею оборудование : сканер штрих кода Honeywell Voyager® 1250g
(http://www.honeywellaidc.com/ru-RU/P...=HSM&pid=1250g)
Перевел его в режим эмуляции СОМ.
Уже третью компоненту устанавливаю в Delphi XE2.
Все при считывании данных получают такую информацию

㜹㔸㜱㜰㜲㘷ശ

Помогите, не знаю даже куда копать.

[Человек_Борща]

Документацию читайте...Может оно вам такими кодами "Привет" пишет, но текстом это, понятное дело, не прочитать.

[tarakan1983]

Вроде понял.
На этом форуме нашел компоненту comdrv32, если использовать AnsiString, то вроде появляются цифры.
Хотел конечно использовать очень понравившуюся компоненту TBComPort, но она при переводе в Ansistring пишет вместо штрихкода

?????????.dll

что за длл ей нужна в документациях ничего нет, написал разработчику.

[Stilet]

Нескромный вопрос: Сканеры ШКИ обычно работают как клавиатуры. Соответственно зачем нужен какой-то левый компонент, если эти девайсы тупо вводят символы в комп стандартными средствами?
Ты не пробовал просканировать в Эдит или в блокнот просто так без примочин?

[tarakan1983]

При стандартном подключении сканер идет как HID. Меня это не устаривает.
После 2 ночей проведенных в документациях по теме "сканер + delphi" я понял что удобнее всего его использовать через com.

[Stilet]

Меня это не устаривает.

Тогда супернескромный вопрос: Чем?

[tarakan1983]

как мне распознавать когда была нажата кнопка на клавиатуре, а когда ввели со сканера? только различая их по VID PID? а если подключить сканер другой марки? переписывать софт опять? то читаешь com и все, а что там подключено по барабану!
Может конечно я что-то недопонимаю, тогда я не против пообщаться, чтобы выяснить ИСТИНУ для себя.

[Stilet]

как мне распознавать когда была нажата кнопка на клавиатуре, а когда ввели со сканера?

А какя разница? Разве можно ограничивать пользователя одним только сканером? А если ШКИ неправильный или затертый? Тогда придется править с клаиватуры.
Наоборот сканер в паре с клавой дает наилучшие результаты, и ничего отличать не надо. И то и другое устройство выдает нужные тебе символы, которые при определенных обстоятельствах образуют кодировку ШКИ.

а если подключить сканер другой марки?

90% сканеров стандартизированны, и любой из них должен уметь выдавать ASCII коды, которые могут интерпретироваться штрихами при соответствующем фонте.

читаешь com и все, а что там подключено по барабану!

Замечтательно надейться на то что у сканера будет соответствующий коннектор для СОМ )
Т.е. USB или даже Блютуз сканеры ты сразу отмел, зарубив перспективу на корне. Вот как раз если будешь менять сканер на другой не поддерживающий СОМ тебе и придется переписывать прогу и возможно даже весьма кардинально.
Сканеры потому и сделали а-ля клавиатурами чтоб избежать таких несовместимостей.

[tarakan1983]

Хорошо, тогда помогите мне найти ошибку.
у меня есть
1. edit1 (поиск по штрихкоду в БД).
2. DbgridEh - отображение данных.
3. TpFibDataset с sql.selectsql равным

SELECT G.*
FROM
    GOODS G
WHERE G.BARKODE LIKE :BARKODE

4. TDataSourse

на событии Edit1Change(Sender: TObject);
я делаю так

  
Procedure Edit1Change(Sender: TObject);
var
    BAR : string;
begin
BAR:=Trim(Edit1.Text);
  if BAR<>'' then
    begin
    with QGood do
    begin
      Active:=False;
      ParamByName('BAR').AsString:='%'+BAR+'%';
      Active:=True;
    end;
    end;
end;

Если набираю с клавиатуры, то все нормально, а если со сканера то вываливается в exeption.

[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, что и дает подобие ввода с клавиатуры, причем законченного ввода.