Создание DLL

@Craw · Регистрация: 10.06.2012

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

Код программы (пример использования DLL):

Visual Basic
1
2
3
4
5
6
Option Explicit
Private Declare Function Symma Lib "Summ.dll" Alias "Summ" (ByVal a As Integer, ByVal b As Integer) As Integer
 
Private Sub Command1_Click()
Text3.Text = Symma(Val(Text1.Text), Val(Text2.Text))
End Sub

Код DLL (точнее ActiveX DLL):

Visual Basic
1
2
3
Private Function Summ(ByVal a As Integer, ByVal b As Integer) As Integer
Summ = a + b
End Function

В Project-References перечислены все ActiveX объекты на компьютере, там нужно добавить имя проекта DLL (например Project2).

Вот таким образом я всё сделал по инструкции из статей по работе с DLL, но не могу скомпилировать exe: пишет, что нужно скомпилировать сначала второй проект с DLL. Его компиляция (Make Summ.dll), а также (одновременная компиляция всей группы проектов) Make Project Group не дают результата - якобы он не скомпилирован, хотя это не так. Плюс при компиляции DLL выдает сообщение, что нельзя получить доступ к системному регистру (System Registry).
В чём может быть дело?

@Craw · 04.08.2013, 00:00 **[ТС]**

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

псевдонимы

Что за псевдонимы?

У себя на сайте редактировать статью смогу и дальше, а вот здесь уже нет.

@The trick · 04.08.2013, 00:13

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

Что за псевдонимы?

Те что Alias, вызов по ординалу

Dragokas · 04.08.2013, 02:13

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

У себя на сайте редактировать статью смогу и дальше, а вот здесь уже нет.

Ну а я то зачем? P.S. Кстати, Вы по-моему тоже можете в течении суток (кнопка "ответить", потом появится кнопка "правка").

The trick, перегрузка именно с помощью алиасов...

В чем profit?

@The trick · 04.08.2013, 02:54

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

The trick, перегрузка именно с помощью алиасов...

Я написал "как бы перегрузка", и имел ввиду разный набор параметров для одной и той же функции.
Это удобно в плане типобезопасности, если функция принимает в качестве параметров разные типы, то можно сделать несколько вариантов функций для каждого случая, вместо того чтобы объявлять параметры как Any.

@romawhite · 08.06.2019, 11:56

Добавлено через 4 минуты
Цитата Сообщение от Catstail
"Лучше всего делать процедурные dll на Power-Basic."

=======================================

Добрый день Catstail !

Возможно ли вызывать из VBA (Office 10) процедурные DLL созданные в Power-Basic ?

с уважением,
Роман

@Catstail · 08.06.2019, 18:32

romawhite, добрый день! Насчет вызова процедурных DLL на PB из Офиса навскидку сказать ничего не могу. Надо пробовать. К сожалению, у меня PB сейчас нет под рукой, надо искать.

@Argus19 · 07.07.2019, 21:09

Где-то читал, что сначала идёт поиск .dll в System32.
Как подключить библиотеку, находящуюся в папке с программой для ускорения работы?

@locm · 07.07.2019, 21:53

Сначала идет поиск в папке с программой, а потом в других.

@Argus19 · 07.07.2019, 22:21

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

Сначала идет поиск в папке с программой, а потом в других.

Спасибо.

@Argus19 · 29.08.2019, 08:44

Как ни странно, оказалось достаточно просто сделать библиотеку на С++ для использования её а программах на VB 6.0.
На пробу сделал библиотек округления до любого количества знаков после запятой. Логику взял из примеров в этой ветке.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#include "okrugl.h" 
 
 
double _stdcall okrug(double prom, int mn)
      {
       double prom1;
    prom = int(prom * 10* mn);
    prom1 = (int(prom / 10)) * 10;
    prom = prom - prom1;
    prom1 = prom1/10;
    if (prom > 5) prom1 = prom1 + 1;
    prom = prom1 / (1 * mn);
    return prom;
      }

Для её использования необходима декларация:

Visual Basic
1
2
Private Declare Function okrug Lib "okrugl.dll" _
                                   (ByVal Num As Double, ByVal mn As Integer) As Double

Вызов:

Visual Basic
1
переменная = okrug(округляемое число, до)

, где "до" :
10 - до десятых;
100 - до сотых;
1000 - до тысячных и т.д.

@Pro_grammer · 29.08.2019, 17:07

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

Как ни странно, оказалось достаточно просто сделать библиотеку на С++ для использования её а программах на VB 6.0.

А что тут странного?

@Argus19 · 29.08.2019, 18:29

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

А что тут странного?

казалось, что проще библиотеку написать на VB, благо такая функция есть. Но, если профессионалы говорят, что это хлопотно.......
"Александр Македонский конечной герой, зачем же стулья ломать?"
И С++ для простых функций не так у и сложен для понимания.
Когда я начинал изучать программирование, было сразу понятно, что математику удобно и просто писать на языке высокого уровня, а управление на ассемблере. правда, тогда он назывался "Мнемокод М-7000".
Ничего не изменилось. На VB сделать рабочее окно со всеми "прибамбасами" и математикой, а управление "железом" на С++.
Я прав?

@Pro_grammer · 29.08.2019, 21:16

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

На VB сделать рабочее окно со всеми "прибамбасами" и математикой, а управление "железом" на С++.
Я прав?

Ну если есть такая необходимость, писать DLL именно на С++, то почему бы и нет?
DLL можно много на каких ЯП писать, потому и спросил, что странного в том, что их можно писать на C++? Это как раз очевидно.

@locm · 29.08.2019, 21:44

Не по теме:

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

оказалось достаточно просто сделать библиотеку на С++ для использования её а программах на VB 6.0.

Напишите библиотеку с работой со строками. Будет сложнее.

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

а управление "железом" на С++.

Что-то не получилось сделать на VB?
На нем даже драйвер написать можно. https://www.cyberforum.ru/blog... g2930.html

@IDK · 30.08.2019, 06:20

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

"прибамбасами" и математикой, а управление "железом" на С++

Без конкретики вопрос, на мой взгляд, не имеет смысла.

@Argus19 · 30.08.2019, 09:50

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

DLL можно много на каких ЯП писать, потому и спросил, что странного в том, что их можно писать на C++? Это как раз очевидно.

Для меня это было открытием. Я занимаюсь VB 6.0 бог знает с какого года, но он нужен был только для простенькой математики. Вникать "в абсолюте" не было необходимости.

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

На нем даже драйвер написать можно

И быстродействие будет выше, чем на С++?

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

Без конкретики вопрос, на мой взгляд, не имеет смысла.

Сейчас у меня программа на VB 6.0 опрашивает приборы КИП через переходник RS-232 \ RS-485 по протоколу Modbus RTU и заносит результат в БД Access 2007. "Поднят" Openserver, на котором лежит сайт. Это оказалось удобно, т.к. у кровно заинтересованных потребителей разные ОС (Windows, Debian и что-то ешё линуксоидное). Стандартные контрол VB MsСomm - фактически посредник между программой и WIn32API и хорош для модема. Перехожу на использование Win32API. работает более надёжно, гораздо меньше ошибок.
Думаю, сделать .dll на С++ т.к. почему-то периодически сбивается программа. Есть подозрение из-за моего незнания, как сделать семафор для работы с БД. Программа пишет в БД, но при этом может происходить считывание её PHP скриптом для передачи клиенту, а т.е. клиентов более трёх, могут возникать коллизии. Просто постараться ускорить работу с приборами и повысить надёжность связи. Дополнение строки команды для управления прибором двумя байтами CRC16 на VB 6.0 долго и проверка истинности полученной информации от прибора, снабжённой так же CRC16, так же требует времени.
Как-то так.

Добавлено через 13 минут
Забыл. Адаптер производства "ОВЕН" АС3М он использует только Tx, Rx и землю. Остальные сигналы RS-232 должны игнорироваться. MSComm не работает с тайм-аутами и приходится включать таймер VB 6.0 на 500 мс, иначе - потеря данных.
При использовании Win32API можно сделать всё лучше, но пока не могу понять без анализа содержимого буфера, как определить, что функция завершилась штатно или выход из неё произведён по тайм-ауту. И тайм-аута достаточно на 10 мс.

@locm · 31.08.2019, 09:43

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

И быстродействие будет выше, чем на С++?

С++ сферический и в вакууме?

Если говорить о быстродействии, многое зависит не от языка, а от компилятора и того как написан код. Вы же не написали ни какой используется компилятор C++, ни уровень оптимизации, не привели фрагмент кода на VB и C++ и т. д. О чем в таком случае можно говорить?

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

Думаю, сделать .dll на С++ т.к. почему-то периодически сбивается программа.

Если вы допустили ошибку в программе, C++ не поможет ее исправить. Скорее допустите другие ошибки которые еще сложнее будет найти.

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

Программа пишет в БД, но при этом может происходить считывание её PHP скриптом для передачи клиенту

Это задача БД, а не приложения.

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

Дополнение строки команды для управления прибором двумя байтами CRC16 на VB 6.0 долго и проверка истинности полученной информации от прибора, снабжённой так же CRC16, так же требует времени.

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

Я решил проверить сколько времени занимает вычисление CRC16. Создал массив размером 1000 байт и в цикле 1000 раз вычислил CRC16 (это соответствует потоку данных миллион байт). Это заняло примерно 0.05 секунды. По вашему медленно?

@Argus19 · 31.08.2019, 10:41

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

Цитата Сообщение от The trick Посмотреть сообщение
Dll на ассемблере
Асм это не ЯВУ.
На ЯВУ сможете добиться того же размера без танцев в бубном?

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

Цитата Сообщение от Craw Посмотреть сообщение
Так что получается, что можно в VB загрузить любую библиотеку динамически, кроме самого kernel32.
Не только kernel32. VB еще рантайм грузит, а тот в свою очередь, много чего еще загружает.

Просто хочется ускорить работу с СОМ-портом, чтобы не мешать серверу.
Понимаю, что во многом рассуждаю по дилетантски, понимаю, что можно и на ассемблере написать программу-"тормоз", занимающую объём памяти больше, чем программа на VB.
Пусть это будет моей личной блажью и интересом расширить познания в ЯП.

@locm · 31.08.2019, 10:59

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

Просто хочется ускорить работу с СОМ-портом, чтобы не мешать серверу.

Не совсем понятно как порт мешает серверу. Скорость передачи данных, определяется настройками порта.

Не по теме:

Непонятно к чему процитировали 2 моих сообщения.

@Argus19 · 31.08.2019, 12:09

Я процитировал ваши сообщения, т.к. они, и сообщения других форумчан, привели к мысли, что весьма проблематично написать библиотеку на VB 6.0 для последующего её использования с программами на других ЯП. Именно сообщения в данной ветке форума и привело к мысли поработать с С++, т.к. получаются более универсальные, в смысле применения, .dll.

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

Не совсем понятно как порт мешает серверу. Скорость передачи данных, определяется настройками порта.

Совершенно верно. Вопрос не в скорости самого порта, а во времени обработки, полученных от него данных.
У меня сейчас 9600 bps. Стандарт. И даже на такой скорости, при длине экранированной пары - 60 м, иногда идут ошибки чтения из-за мощных электромагнитных помех. Сбои бывают даже во время солнечных бурь. Это привело к расширению обработчика ошибок. А это время.
Возможно я не прав. Но, если работает только программа и сервер, Windows "живёт своей жизнью" не спрашивая моего разрешения.

Новые блоги и статьи Все статьи Все блоги /
Вступаем в новую фазу генерации favicons, векторную. russiannick 02.11.2026 Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .	Генератор паролей (вариант №4) Maks 01.11.2026 После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков \| 1 l I;. . .	Генератор паролей (вариант №3) Maks 30.10.2026 Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .	Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени) zorxor 30.10.2026 Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .
За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ) zorxor 30.10.2026 Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .	Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени) zorxor 30.10.2026 Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .	Генератор паролей (вариант №2) Maks 30.10.2026 Обновленная версия ранее созданной обработки. Добавлены следующие реквизиты типа Булево: - Буквы; - Цифры; - Символы. Изменена логика команды "Сгенерировать" и процедуры "ПриОткрытии":. . .	Генератор паролей (вариант №1) Maks 29.10.2026 Реализация из решения ниже выполнена исключительно по моей инициативе, дабы облегчить себе работу в создании паролей для администрируемых мною сервисов и пользователей. Самым главным критерием для. . .

@romawhite 0 / 0 / 0 Регистрация: 18.05.2018 Сообщений: 2
	08.06.2019, 11:56
	Добавлено через 4 минуты Цитата Сообщение от Catstail "Лучше всего делать процедурные dll на Power-Basic." ======================================= Добрый день Catstail ! Возможно ли вызывать из VBA (Office 10) процедурные DLL созданные в Power-Basic ? с уважением, Роман 0

@Catstail Супер-модератор 38228 / 21160 / 4314 Регистрация: 12.02.2012 Сообщений: 34,774 Записей в блоге: 14
	08.06.2019, 18:32
	romawhite, добрый день! Насчет вызова процедурных DLL на PB из Офиса навскидку сказать ничего не могу. Надо пробовать. К сожалению, у меня PB сейчас нет под рукой, надо искать. 0

@Argus19 1732 / 476 / 78 Регистрация: 24.09.2017 Сообщений: 2,573 Записей в блоге: 27
	07.07.2019, 21:09
	Где-то читал, что сначала идёт поиск .dll в System32. Как подключить библиотеку, находящуюся в папке с программой для ускорения работы? 0

@locm 7236 / 3414 / 348 Регистрация: 28.10.2011 Сообщений: 13,432 Записей в блоге: 7
	07.07.2019, 21:53
	Сначала идет поиск в папке с программой, а потом в других. 1