Доброго дня всем!
Была очень хорошая тема где был дан способ получения штрих кода pdf417.
Мною эта библиотека была подключена, но сканер не считывает кириллицу...
Не подскажите модель сканера?
Заранее спасибо.

Igorbik, спасибо за предложения..
1. - попробуем
2. - использовал тот же шрифт (скачал ) что и в теме которая несколько строчек ниже - "внешняя dll" - где тоже оставил сообщение.
поэтому 2. я несколько не понял...
3. обратные преобразования все-таки сложны с реализацией... например 1с не стали так делать, опять отсылаю к той же теме
4. логично - вот там и попробуем 1. )

Всё-таки какую модель посоветуете? ( 1с же работает с кириллицей ... )

Спасибо...

Здравствуйте, Игорь!, - спасибо за ответы. Да кириллицей можно пользоваться в разъем клавиатуры, - там использовать латиницу, тогда замена прозрачная - нужно лишь поменять раскладку клавиатуры и будет кириллица.
Поэтому и рассматриваю также Code128, но пока еще не проверил ту библиотеку ссылку на которую Вы дали.
С уважением, Олег.

igorbik,

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

Ссылку которую Вы мне дали в теме где я использовал смысловое имя BarCode128 я проработал, но та функция
да вот она...
Private Declare Function Code128 Lib "openbarcodes.dll" (ByVal BufIn As String, ByVal SizeIn As Long, ByRef SizeOut As Long, ByVal BufOut As String) As Long
на фоксе объявляется
DECLARE LONG Code128 IN openbarcodes String, Long, Long @, String

но в отличие от VB - там для него пример...

Dim CodeBarre$, Retour%, SizeOut&
SizeOut& = Len(Text1)
Do
SizeOut& = SizeOut& * 2
CodeBarre$ = Space$(SizeOut&)
Retour% = Code128(Text1, Len(Text1), SizeOut&, CodeBarre$)
Loop Until Retour% <> -1 'Indique un tampon trop petit / Indicate a too small buffer
If Retour% <> 0 Then CodeBarre$ = "" Else CodeBarre$ = Left$(CodeBarre$, SizeOut&)
label5.Text = CodeBarre$
label1.Text = CodeBarre$
- два текстовых поля, второе со шрифтом Code128

работает - но на фоксе возвращает пустую строку для аналогично 4-го параметра CodeBarre$
Данный параметр пробовал делать ссылочным @ - без разницы - пустая строка
Возращать 0 она возвращает...
Вот что делать?
Проще использовать же 1D штрих код.
Шрифт (Code128.ttf) также несколько широковат можно ли его сузить?

Igorbik,

спасибо, за предложение - я тут был в отъезде, просто задачу которую я пытался решить я описал... - ну там вызовы какие и прочее - не работает openbarcodes под VFP.... у меня например.
Если Вы решали вопрос о подключении openbarcodes то сообщите... а личку как-то не хочется - зачем форум тогда...