ComPort Library

[tarakan1983]

Здравствуйте. Работаю с библиотекой ComPort Library
Все нравиться, все хорошо, но при работе с одним из сканеров штрих кода возникла проблема.
1. Штрих код считывается частями
Решил проблему так

procedure TFmMain.SCANERCOMRxChar(Sender: TObject; Count: Integer);
  var
    Str: String;
  const
    CRLF = #$0A;
begin  
  SCANERCOM.ReadStr(Str, Count);
  G_BARCODE := G_BARCODE + Str;
  if Pos(CRLF,G_BARCODE) > 0 then
    begin
      BARCODEEdt.Text := G_BARCODE;       

      //ПРОДАЖА
        
      end;
    end;
end;

Т.е. при считывании длинного штрих кода процедура SCANERCOMRxChar пробегается несколько раз, я читаю до завершающего символа и продаю по полученному штрихкоду.
2. Во время процедуры //ПРОДАЖА мне нужно отключить прием данных со сканера, поэтому я делаю так

procedure TFmMain.SCANERCOMRxChar(Sender: TObject; Count: Integer);
  var
    Str: String;
  const
    CRLF = #$0A;
begin  
  SCANERCOM.ReadStr(Str, Count);
  G_BARCODE := G_BARCODE + Str;
  if Pos(CRLF,G_BARCODE) > 0 then
    begin
      BARCODEEdt.Text := G_BARCODE;       
        try
          COMPORT.CLOSE;          
          //ПРОДАЖА
        finally
          COMPORT.OPEN;
        end 
      end;
    end;
end;

Но во время закрытия порта повисает все приложения.
Как мне правильно закрыть порт во время проведения процедуры продажи? Помогите пожалуйста.

[Gregor]

Ну попробуйте просто открыть порт и тут же закрыть. все нормально? может нужно с объектом сканер какие-то действие произвести перед закрытием порта.? а то что сканер читает не все сразу это какая-то ерунда. что значит частями, со второго раза? может символ попадает какой при чтении?

[Gregor]

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

[tarakan1983]

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

Ну попробуйте просто открыть порт и тут же закрыть. все нормально?

Да все нормально.

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

может нужно с объектом сканер какие-то действие произвести перед закрытием порта.?

SCANERCOM это имя компонента типа TComPort, я тоже думал, пробовал и очищать буфер и BeginUpdate EndUpdate - результат нулевой.

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

а то что сканер читает не все сразу это какая-то ерунда. что значит частями, со второго раза? может символ попадает какой при чтении?

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

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

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

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

[Gregor]

тогда скорее всего что-то накапливается в буфере порта и надо его очищать. у меня такое подозрение что это библиотека виновата. а попробуйте открыть блокнот или др. текстовик и отсканировать. там тоже половина кода выводится?

[Gregor]

И еще это модальное окно. Вроде как основное окно перестает принимать всяческие сообщения если открыто дочернее модальное окно. попробуйте его сделать не модальным и произвести продажу

[tarakan1983]

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

тогда скорее всего что-то накапливается в буфере порта и надо его очищать. у меня такое подозрение что это библиотека виновата. а попробуйте открыть блокнот или др. текстовик и отсканировать. там тоже половина кода выводится?

в блокноте не получиться, сканер работает в режиме эмуляции com, при такой настройке сканер не будет отображать данные простом тескст. редакторе. для этого его надо перевести в режим работы usb. и меня такой режим не устраивает.

[Gregor]

а с модальным окном не пробовали?

[tarakan1983]

Пока нет, сейчас покупателей наплыв пройдет и начну тестировать

[min@y™]

А чо за сканер? Они ж ща все HID-интерфейснутые, нахрена ком-порт?