ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Внешняя DLL
25 сообщений из 34, страница 1 из 2
  1  все
Внешняя DLL
    #36492539
Местами администратор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Местами администратор
Участник
Имеется dll для 1С, вот что о ней известно:
-----------------------------------------------------------------------------------------------
Внешняя компонента позволяет формировать двумерный штрих-код PDF417. Может кодировать кириллицу.
В компоненте реализован всего один метод
Создать(<КодируемыйТекст>,<УровеньЗащиты>,<КолВоКолонок>)
// Параметры:
// Кодируемый текст
// УровеньЗащиты - Желаемый уровень коррекции ошибок (от 0 до 8), -1 = автоматически
// КолВоКолонок - Желаемое количество колонок в штрих-коде, <1 - автоматически
(англ. Create)
ПРИМЕР:
PDF417 = СоздатьОбъект("Addin.PDF417");
КолВоКолонок = 20;
УровеньЗащиты = -1;
КодируемыйТекст = "Привет, как дела";
Код417 = PDF417.Создать(КодируемыйТекст, УровеньЗащиты , КолВоКолонок);
Метод Создать() возвращает текстовую строку, которую можно вывести на форме или в табличном документе в элементе "Текст" с установленным шрифтом pdf417.ttf (шрифт в архиве).
PDF417 предусматривает полиноминальное Reed-Solomon кодирование дополнительных данных для восстановления информации. Количество дополнительных данных зависит от уровня коррекции ошибок.
Компонента написана на VB6.
--------------------------------------------------------------------------------------------
Можно ли заставить ее работать в vfp?
...
Рейтинг: 0 / 0
27.02.2010, 17:01
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36492545
Местами администратор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Местами администратор
Участник
Лежит здесь
http://www.coders-library.ru/files-view-754-word-формировать.html
...
Рейтинг: 0 / 0
27.02.2010, 17:04
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36494238
igorbik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igorbik
Участник
Местами администратор,

А что, есть необходимость использовать 2D штрихкоды?
По опыту скажу, что полностью защититься штрихкодом невозможно, а для прочих целей вполне достаточно одномерных кодов.
...
Рейтинг: 0 / 0
01.03.2010, 11:41
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36494353
Местами администратор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Местами администратор
Участник
igorbik,
Сейчас использую code128, pdf417 нужен на квитанциях для Сербанка.
...
Рейтинг: 0 / 0
01.03.2010, 12:15
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36498098
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Если ещё нужно, то можно попробовать файлик из вложения. внутри инструкция.
Оригинальную нужно вызывать так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Local o As Object, s as String
DIMENSION arr( 3 )
o = CreateObject("Addin.PDF417")
arr( 1 ) = "Привет"
arr( 2 ) = - 1 
arr( 3 ) =  20 
s = SPACE( 250 )
COMARRAY(o, 0 )
o.ILanguageExtender_CallAsFunc( 0 , @s, @arr)
Release o
Strtofile(s, "c:\2dS.txt")
Работает даже без установленной 1С
...
Рейтинг: 0 / 0
02.03.2010, 18:45
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36498124
Местами администратор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Местами администратор
Участник
Игорь Горбонос,
Уже и не ожидал ответа, очень удивлен, огромное спасибо за отклик
тем не менее

Ругается Addin.PDF417 - не найден
Чего не хватает? (1С у меня нет)
...
Рейтинг: 0 / 0
02.03.2010, 18:59
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36498133
Местами администратор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Местами администратор
Участник
Про мои мозги (их нехватку) в другой раз :)
...
Рейтинг: 0 / 0
02.03.2010, 19:02
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36498136
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
piva
Участник
[quot Местами администратор ]Ругается Addin.PDF417 - не найденЧего не хватает? [/quot]
Может стоит Ник сменить ? RegSvr32 уже отменили ?
...
Рейтинг: 0 / 0
02.03.2010, 19:04
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36498139
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Местами администратор
> Ругается Addin.PDF417 - не найден
> Чего не хватает? (1С у меня нет)

Ругается на незарегистрированность dll которая:Местами администраторЛежит здесь
http://www.coders-library.ru/files-view-754-word-формировать.html
Скачай её и распакуй в папку, куда-нибудь. После чего набери в командной строке
C:\WINDOWS\system32\regsvr32.exe C:\files-hZcYgwcz7x\PDF417_1C\PDF417.dll
Нажми Ентер. Должно появится окно которое сообщит, что метод DllRegistrServer завершен успешно. После этого пробуй.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
02.03.2010, 19:05
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36498144
Местами администратор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Местами администратор
Участник
piva[quot Местами администратор ]Ругается Addin.PDF417 - не найденЧего не хватает?
Может стоит Ник сменить ? RegSvr32 уже отменили ? [/quot]

Вот блин, да сделал регистрацию длльки PDF417 может нужна еще какая-то?
...
Рейтинг: 0 / 0
02.03.2010, 19:07
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36498148
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Местами администратор
> Вот блин, да сделал регистрацию длльки PDF417 может нужна еще какая-то?

MSVBVM60.dll, короче рантайм от VB6. Поищи на микрософте

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
02.03.2010, 19:10
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36498152
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Игорь Горбонос
> MSVBVM60.dll, короче рантайм от VB6. Поищи на микрософте

Может быть нужен.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
02.03.2010, 19:11
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36498159
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Хотя нет!. Если регистрация прошла, значит рантайм есть. Ищи FileMon'om что он хочет

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
02.03.2010, 19:15
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36498333
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
piva
Участник
Местами администраторИмеется dll для 1С, вот что о ней известно:
-----------------------------------------------------------------------------------------------
PDF417 = СоздатьОбъект("Addin.PDF417");
Черт это пропустил - эта DLL'ка есть расширение 1C и подключается она по другому нежели чем простой COMОбъект или в фоксе CreateObject - у этих DLLок другие точки входа наподобие фоксовских FLL - так что напрямую из фокса не получится юзать
...
Рейтинг: 0 / 0
02.03.2010, 21:37
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36498464
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
pivaМестами администраторИмеется dll для 1С, вот что о ней известно:
-----------------------------------------------------------------------------------------------
PDF417 = СоздатьОбъект("Addin.PDF417");
Черт это пропустил - эта DLL'ка есть расширение 1C и подключается она по другому нежели чем простой COMОбъект или в фоксе CreateObject - у этих DLLок другие точки входа наподобие фоксовских FLL - так что напрямую из фокса не получится юзать

Она выполнена как расширение к 1С, но она прекрасно запускается и без 1С. Вот пример как вызывать. Если такой вызов не нравится, там-же лежит переделанная длл, в которой нет привязки к 1С
...
Рейтинг: 0 / 0
02.03.2010, 23:15
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36498765
Местами администратор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Местами администратор
Участник
Игорь Горбонос
Хотя нет!. Если регистрация прошла, значит рантайм есть. Ищи FileMon'om что он хочет



Нашел FileMon'om - хотел что бы я поспал и пиво не пил :)
Игорь спасибо, начало получаться, на работе попробую сканировать.
...
Рейтинг: 0 / 0
03.03.2010, 08:21
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36498957
Местами администратор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Местами администратор
Участник
Игорь ГорбоносЕсли ещё нужно, то можно попробовать файлик из вложения. внутри инструкция.
Оригинальную нужно вызывать так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Local o As Object, s as String
DIMENSION arr( 3 )
o = CreateObject("Addin.PDF417")
arr( 1 ) = "Привет"
arr( 2 ) = - 1 
arr( 3 ) =  20 
s = SPACE( 250 )
COMARRAY(o, 0 )
o.ILanguageExtender_CallAsFunc( 0 , @s, @arr)
Release o
Strtofile(s, "c:\2dS.txt")
Работает даже без установленной 1С

Игорь, еще раз спасибо, штрих-код формируется, печатается и читается сканером.
...
Рейтинг: 0 / 0
03.03.2010, 10:17
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36498999
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Местами администратор
> Игорь, еще раз спасибо, штрих-код формируется, печатается и читается сканером.

Я специально переделал эту длл для упрощения использования, но нет! Ежики плакали, кололись, но продолжали есть кактус
(с)
По ссылке, которую ты дал кроме длл были исходники. Я взял код формирования штрих-кода и сделал другую длл(исходники
прилагаются), обыкновенный СОМ-объект, который можно вызвать из любого языка, простым вызовом:
Код: plaintext
1.
2.
3.
Local o As Object
o = Createobject("pdf417.clspdf417")
Strtofile(o.pdf417("Привет", - 1 ,  20 ), "c:\2d.txt")
Release o
2d.txt*urA*dnA*lsu*vAq*Ciw*mDi*snj*wuw*Blm*Blm*Blm*Blm*Blm*Blm*Blm*Blm*Blm*Blm*Blm*Blm*Blm*pls*-
+*xcc*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*ypk*-
+*plz*lyd*lyd*lyd*lyd*lyd*lyd*lyd*lyd*lyd*lyd*lyd*lyd*nxq*vui*zCt*Aiq*mjt*Egz*bnr*isb*eDs*-

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

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
03.03.2010, 10:33
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36499185
igorbik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igorbik
Участник
Игорь Горбонос,

Отличная работа.
Вот только есть небольшой вопрос.
Я поставил число колонок = 0 (автоматически).
Текст написал такой: "Privet kak dela".

В файле 2d.txt получилось 17 строк:

+*yoz*eBA*urA*-
+*zeb*liE*xck*-
+*pjk*xxj*ulz*-
+*ufk*lqg*pxy*-
+*uwa*nbl*xib*-
+*yrB*Cky*uzc*-
+*dsw*vBa*dvk*-
+*yms*uig*fyb*-
+*drs*lFy*dkz*-
+*oiy*pDA*css*-
+*uia*Ejq*xbb*-
+*ody*nmb*ohz*-
+*oCs*slb*cga*-
+*ylD*jmb*yla*-
+*xBx*bAf*cCy*-
+*mvk*BEE*tcw*-
+*czg*Cbm*cyC*-

А в штрихкоде нарисовано только 15 строк...

Проверял все это на других генераторах - везде пишется и рисуется 17 строк.
Где нестыковка?
...
Рейтинг: 0 / 0
03.03.2010, 11:29
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36499203
igorbik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igorbik
Участник
igorbik,
Забыл добавить, что штрихкод я прорисовываю на форме шрифтом Code PDF417, впрочем, как и зарубежные генераторы. Поставил кегль 20, и тогда между строками есть четкие полосы, и легко просчитывается их количество.
...
Рейтинг: 0 / 0
03.03.2010, 11:32
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36499275
Местами администратор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Местами администратор
Участник
Игорь Горбонос
> Автор: Местами администратор
> Игорь, еще раз спасибо, штрих-код формируется, печатается и читается сканером.

Я специально переделал эту длл для упрощения использования, но нет! Ежики плакали, кололись, но продолжали есть кактус
(с)
По ссылке, которую ты дал кроме длл были исходники. Я взял код формирования штрих-кода и сделал другую длл(исходники
прилагаются), обыкновенный СОМ-объект, который можно вызвать из любого языка, простым вызовом:
Код: plaintext
1.
2.
3.
Local o As Object
o = Createobject("pdf417.clspdf417")
Strtofile(o.pdf417("Привет", - 1 ,  20 ), "c:\2d.txt")
Release o
2d.txt*urA*dnA*lsu*vAq*Ciw*mDi*snj*wuw*Blm*Blm*Blm*Blm*Blm*Blm*Blm*Blm*Blm*Blm*Blm*Blm*Blm*pls*-
+*xcc*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*jus*ypk*-
+*plz*lyd*lyd*lyd*lyd*lyd*lyd*lyd*lyd*lyd*lyd*lyd*lyd*nxq*vui*zCt*Aiq*mjt*Egz*bnr*isb*eDs*-

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



Использую переделаную, уже в свою прогу вставил и печатаю ПД
...
Рейтинг: 0 / 0
03.03.2010, 11:53
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36499283
Местами администратор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Местами администратор
Участник
igorbikigorbik,
Забыл добавить, что штрихкод я прорисовываю на форме шрифтом Code PDF417, впрочем, как и зарубежные генераторы. Поставил кегль 20, и тогда между строками есть четкие полосы, и легко просчитывается их количество.

Нужно подобрать уровень коррекции ошибок и число колонок, и размер шрифта, тогда этого эффекта не видно. Хотя и с полосками достаточно нормально читается.
...
Рейтинг: 0 / 0
03.03.2010, 11:55
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36499296
Местами администратор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Местами администратор
Участник
Игорь Горбонос
По ссылке, которую ты дал кроме длл были исходники.


Исходники видел, даже начал на VFP переделать, т.к. VB не знаю каждая строчка давалась с
трудом, ну а тут отозвался ты.
...
Рейтинг: 0 / 0
03.03.2010, 11:58
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36499470
igorbik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igorbik
Участник
Местами администратор,

Не в промежутках дело, кегль я подберу.
Вопрос в том, что текст для отображения имеет 17 строк, а на коде рисует 15

А вот еще вариант:

Текст:
select test
append blank
replace f1 with "test", f2 with "Very lage text"

Уровень безопасности = -1

Кол-во колонок = 5

Получился текст кода:

+*xdw*ugy*kda*oCa*obj*kog*xdw*-
+*xcE*wcl*afy*bmy*ytC*bub*zei*-
+*uny*fbs*aAr*ifA*lxg*lFy*eBw*-
+*yrx*wdj*DrE*gbg*Blo*vna*yrx*-
+*psC*weC*xdA*oiC*obC*uzj*uwg*-
+*yrn*Dso*vCz*gvs*Dxm*nlb*xjn*-
+*owy*tkn*DrE*Bii*Blo*DBm*owy*-
+*ymg*wah*sFl*wFC*xvl*sFv*fyi*-
+*otz*kuy*Amj*bEs*Dvg*pDw*dvy*-
+*cxs*mnA*rDn*xxC*DrE*Biw*cxs*-
+*owC*liC*jus*jus*jus*uaE*uig*-
+*ckj*Dxl*DuC*uzc*jqE*sfx*csz*-
+*cFA*tso*tds*tos*suD*ugj*cFA*-
+*uak*btb*EzD*xCc*mBt*yuc*xCc*-

Итого 14 строк

А в реальном штрихкоде - 8 строк,
и при этом последняя - наполовину пустая!...

Аналогичные эксперименты с иноземными генераторами дают тот же текст кода и 14-строчный рисунок, строки заполнены полностью. Шрифт везде тот же.

Где я что делаю неверно?
Или есть баги в ДЛЛ-ке?
Или шрифт поменять?
...
Рейтинг: 0 / 0
03.03.2010, 12:39
| Ответить | Цитировать | Написать  
Внешняя DLL
    #36499486
Местами администратор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Местами администратор
Участник
igorbik,
Попробуй шрифт, который использую
...
Рейтинг: 0 / 0
03.03.2010, 12:44
| Ответить | Цитировать | Написать  
25 сообщений из 34, страница 1 из 2
  1  все
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Внешняя DLL
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=75&tid=1584396]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 33ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 58ms
get tp. blocked users:
 2ms
others: 13ms
total:  153ms
созд. / загр.: 153ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]