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.
Почему так может быть, что на одном работает, а на другом отказывается ???

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

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

	Generate QR-code VB6 18.03.2016, 12:37. Показов 39733. Ответов 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

Решение