Generate QR-code VB6

@Vika7714 · Регистрация: 16.02.2016

Студворк — интернет-сервис помощи студентам

Всем салют.
Возможна ли генерация QR-кода на VB6?
На C# и VB.NET существуют библиотеки, для работы с QR.
Существуют ли таковые на VB6?

@Alex77755 · 18.03.2016, 12:46

самое простое: посылать запрос с данными на сайт и получать код.
Пару месяцев назад разбирался с этим. Но потерял часть наработок.
На форуме (возможно на этом) была тема с решением

@Vika7714 · 18.03.2016, 12:51 **[ТС]**

Это не всегда хорошо. Допустим нет подключения к интернету. То как быть? Есть ли еще какие-то варианты?

@Alex77755 · 18.03.2016, 13:15

Ссылаются на компоненту. Не проверял

@Vika7714 · 18.03.2016, 13:22 **[ТС]**

Она на C.....Нужно на VB6.

@Alex77755 · 18.03.2016, 13:37

Там скомпилированный OCX
В VBA работают.
Или вы хотите полностью генерировать?

@Vika7714 · 18.03.2016, 13:39 **[ТС]**

Я сам хотел бы генерировать bmp- файл из VB6.

@The trick · 21.03.2016, 22:18

Вот библиотека.
Вот пример:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
Private Enum TErrorCorretion
    QualityLow
    QualityMedium
    QualityStandard
    QualityHigh
End Enum
 
Private Declare Sub GenerateBMP _
                Lib "C:\Temp\quricol32.dll" _
                Alias "GenerateBMPW" ( _
                ByVal FileName As Long, _
                ByVal Text As Long, _
                ByVal Margin As Long, _
                ByVal Size As Long, _
                ByVal Level As TErrorCorretion)
                
Private Sub Form_Load()
    
    GenerateBMP StrPtr("C:\Temp\Example.bmp"), StrPtr("Hello world!"), 3, 5, QualityLow
    
End Sub

@Vika7714 · 22.03.2016, 17:17 **[ТС]**

Сообщение от The trick

Вот библиотека.
Вот пример:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
Private Enum TErrorCorretion
    QualityLow
    QualityMedium
    QualityStandard
    QualityHigh
End Enum
 
Private Declare Sub GenerateBMP _
                Lib "C:\Temp\quricol32.dll" _
                Alias "GenerateBMPW" ( _
                ByVal FileName As Long, _
                ByVal Text As Long, _
                ByVal Margin As Long, _
                ByVal Size As Long, _
                ByVal Level As TErrorCorretion)
                
Private Sub Form_Load()
    
    GenerateBMP StrPtr("C:\Temp\Example.bmp"), StrPtr("Hello world!"), 3, 5, QualityLow
    
End Sub

Данная библиотека будет работать на VB6? В описании сказано, что она для .NET, C++ и Delphi.

@Alex77755 · 22.03.2016, 17:59

Она на C.....Нужно на VB6.
Данная библиотека будет работать на VB6?

Уже и картинку показали! и код выложили!
А просто проверить (если не веришь) в лом?

Добавлено через 1 минуту
Ответы не читаешь или не веришь?!
скомпилированный OCX работают.

@The trick · 22.03.2016, 18:47

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

Данная библиотека будет работать на VB6? В описании сказано, что она для .NET, C++ и Delphi.

А почему бы ей не работать на VB6?

@Vika7714 · 15.07.2016, 15:41 **[ТС]**

Спасибо большое!!

@ji2n · 27.12.2016, 12:19

Возможно ли передать указатель FileName в объект? Shape, например или какой еще, чтоб не сохранять в файл, вывод изображения в exel/word сделать?

Добавлено через 5 минут
не работает без юзерформы, (http://ocvita.ru/ocvita-barcode), ошибка 1004 при попытке вставить объект.

,в ms ofiice 2007, в часности.

@ji2n · 08.02.2017, 23:09

Мне нужно вставить картинку в какой-то объект, имею вышеуказанную quricol32.dll, где:
ByVal FileName As Long - передаю указатель на файл
Затем беру какой-нибудь контрол, умеющий отображать bmp.
Как избежать формирования файла и сразу в указатель на контрол поместить bmp?
Не получается и всё тут.

@Vika7714 · 08.04.2017, 16:35 **[ТС]**

Появилась задача генерировать QR-код без использования сторонних компонент или библиотек.
В поиске не нашла решение. Я так понимаю, нужно кодировать QR по байтам. Есть ли у кого-нибудь решение или часть решения? Помогите, пожалуйста, ребят.

@Michael_B · 14.03.2018, 11:45

Сообщение от The trick

Вот библиотека.
Вот пример:

Всё сделал, но !
На одном компьютере работает прекрасно, а на другом вот в этом месте:

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

GenerateBMP StrPtr("C:\Temp\Example.bmp")

Ругается на "StrPtr" !!!

Что делать, как побороть это ?

@The trick · 14.03.2018, 12:37

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

Что делать, как побороть это ?

Для начала показать декларации.

@Michael_B · 14.03.2018, 13:56

Сообщение от The trick

Для начала показать декларации.

Благодарю, что откликнулись на мой призыв о помощи! Но... что значит "показать декларации" ? Простите, я совсем не специалист в VBA и Access и не со всеми терминами знаком

При этом, повторюсь, на одном компьютере всё прекрасно работает...

Добавлено через 5 минут

Сообщение от The trick

Для начала показать декларации.

Может быть, Вы имели ввиду эту часть кода?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Compare Database
Option Explicit
Private Enum TErrorCorretion
    QualityLow
    QualityMedium
    QualityStandard
    QualityHigh
End Enum
 
Private Declare PtrSafe Sub GenerateBMP _
                Lib "W:\DLL\quricol32.dll" _
                Alias "GenerateBMPW" ( _
                ByVal FileName As Long, _
                ByVal Text As Long, _
                ByVal Margin As Long, _
                ByVal Size As Long, _
                ByVal Level As TErrorCorretion)

@The trick · 14.03.2018, 16:40

Visual Basic
1
2
ByVal FileName As LongPtr, _
ByVal Text As LongPtr, _

Второй момент что это 64 битный офис и нужна 64 битная библиотека соответственно.

@Michael_B · 14.03.2018, 19:09

Сообщение от The trick

1
2
ByVal FileName As LongPtr, _
ByVal Text As LongPtr, _

Поменял Long на LongPtr, в двух строках, где Вы посоветовали, пока тестирую на компьютере, где всё раньше работало на ура. Ситуация следующая:
1. С файлом "W:\DLL\quricol32.dll" Access подвисает, приходится его принудительно закрывать.
2. С файлом "W:\DLL\quricol64.dll", который физически находится в указанной папке, получаю сообщение:
Run-time error '48':
File not found: W:\DLL\quricol64.dll

Добавлено через 30 минут
При этом, на компьютере, где до этого не работало, с предложенными Вами изменениями и quricol64.dll, всё теперь чудесно работает.
А на первом всё теперь виснет

((((

Добавлено через 30 минут
Оба компьютера работают на Win 7 64-разрядных, на обоих MS Access 2013.
Почему так может быть, что на одном работает, а на другом отказывается ???

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Vika7714 0 / 0 / 0 Регистрация: 16.02.2016 Сообщений: 13

	Generate QR-code VB6 18.03.2016, 12:37. Показов 39529. Ответов 74 Метки нет (Все метки) Всем салют. Возможна ли генерация QR-кода на VB6? На C# и VB.NET существуют библиотеки, для работы с QR. Существуют ли таковые на VB6? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.03.2016, 12:46
	самое простое: посылать запрос с данными на сайт и получать код. Пару месяцев назад разбирался с этим. Но потерял часть наработок. На форуме (возможно на этом) была тема с решением 0

@Vika7714 0 / 0 / 0 Регистрация: 16.02.2016 Сообщений: 13
	18.03.2016, 12:51 [ТС]
	Это не всегда хорошо. Допустим нет подключения к интернету. То как быть? Есть ли еще какие-то варианты? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.03.2016, 13:15
	Ссылаются на компоненту. Не проверял 0

@Vika7714 0 / 0 / 0 Регистрация: 16.02.2016 Сообщений: 13
	18.03.2016, 13:22 [ТС]
	Она на C.....Нужно на VB6. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.03.2016, 13:37
	Там скомпилированный OCX В VBA работают. Или вы хотите полностью генерировать? 0

@Vika7714 0 / 0 / 0 Регистрация: 16.02.2016 Сообщений: 13
	18.03.2016, 13:39 [ТС]
	Я сам хотел бы генерировать bmp- файл из VB6. 0

@Vika7714 0 / 0 / 0 Регистрация: 16.02.2016 Сообщений: 13
	15.07.2016, 15:41 [ТС]
	Спасибо большое!! 0

@ji2n ... 39 / 37 / 13 Регистрация: 08.10.2016 Сообщений: 173
	27.12.2016, 12:19
	Возможно ли передать указатель FileName в объект? Shape, например или какой еще, чтоб не сохранять в файл, вывод изображения в exel/word сделать? Добавлено через 5 минут не работает без юзерформы, (http://ocvita.ru/ocvita-barcode), ошибка 1004 при попытке вставить объект. ,в ms ofiice 2007, в часности. 0

@ji2n ... 39 / 37 / 13 Регистрация: 08.10.2016 Сообщений: 173
	08.02.2017, 23:09
	Мне нужно вставить картинку в какой-то объект, имею вышеуказанную quricol32.dll, где: ByVal FileName As Long - передаю указатель на файл Затем беру какой-нибудь контрол, умеющий отображать bmp. Как избежать формирования файла и сразу в указатель на контрол поместить bmp? Не получается и всё тут. 0

@Vika7714 0 / 0 / 0 Регистрация: 16.02.2016 Сообщений: 13
	08.04.2017, 16:35 [ТС]
	Появилась задача генерировать QR-код без использования сторонних компонент или библиотек. В поиске не нашла решение. Я так понимаю, нужно кодировать QR по байтам. Есть ли у кого-нибудь решение или часть решения? Помогите, пожалуйста, ребят. 0

Generate QR-code VB6

Решение