Создание 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 "живёт своей жизнью" не спрашивая моего разрешения.

Новые блоги и статьи Все статьи Все блоги /
Генератор паролей (вариант №1) Maks 29.10.2026 Реализация из решения ниже выполнена исключительно по моей инициативе, дабы облегчить себе работу в создании паролей для администрируемых мною сервисов и пользователей. Самым главным критерием для. . .	Установка ChatGPT (Codex) на Windows без использования Microsoft Store Fabien159 28.10.2026 Здравствуйте всем читающим! Опишу процесс установки ChatGPT (Codex) на Windows, если по каким-то причинам у вас не получается устанавить его через Microsoft Store. И так: 1. Скачиваем с. . .	Программное добавление префикса в нумерацию документов Maks 27.10.2026 Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .	После закрытия оутлука продолжает висеть процесс в диспетчере задач Maks 27.10.2026 С недавнего времени в продакшене возникла проблема: при закрытии оутлука в диспетчере задач продолжал висеть процесс outlook. exe. Проблема возникла после установки MS Office 2021 LTSC на машинах, под. . .
Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный AmbA 26.10.2026 Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. https:/ / youtu. be/ VpfFZSUDGnQ. . .	Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .

@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 7233 / 3412 / 347 Регистрация: 28.10.2011 Сообщений: 13,408 Записей в блоге: 7
	07.07.2019, 21:53
	Сначала идет поиск в папке с программой, а потом в других. 1