Как сделать TLB

@testuser2 · Регистрация: 08.02.2017

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

Все говорят об этих волшебных штуках, о том, какие возможности и удобства.., но никто ни говорит, как их делать. Видел статью как это делается с помощью специальной проги на Delfi, можно ли ее использовать для VB?

@testuser2 · 05.07.2023, 02:50 **[ТС]**

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

серьёзно?

Да что-т не очень, тлб-шка то создается я и обрадовался, но в ней ничего нет для пользования

@HackerVlad · 05.07.2023, 06:31

testuser2, а чего ты не попробуешь на VB6? Да и вообще чего ты так на этом VBA помешался. Программировал бы лучше на VB6.

@testuser2 · 05.07.2023, 07:38 **[ТС]**

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

Да и вообще чего ты так на этом VBA помешался.

На нем просто проще. В VB тебе обязательно надо писать программу, продумывать, какой-т гуй, в VBA у тебя уже есть готовая программа, довольно мощная и разноплановая, ты просто ее эксплуатируешь, при необходимости можешь сделать какую-то гуишку. Очень много вопросов, которые можно решить простым макросом

Добавлено через 12 минут
На Пайтоне подобная концепция реализована в виде библиотеки скриптов. Недавно запись была про это. https://www.cyberforum.ru/blog... g8158.html
Удобно - надо какую-то задачу сделать - выбрал нужный скрипт. Но мне не нравится, что там при выполнении скрипта, выводится какая-то билиберда консолью, вообще не понимаю в этом смысла.

@testuser2 · 06.04.2025, 12:44 **[ТС]**

Хотелось бы все-таки понять, как скомпилировать с помощью midl, мне это нужно чтобы создать декларацию с LONG_PTR. Я пробовал компилить даже нормальные, рабочие idl-ы, не получается, все время чего-то не хватает, чего-то там кричит про cl.exe. Стыдно сказать, даже к ИИ обращался с вопросом, но он не дал мне божественного знания, а только все время ~~дро~~водил по кругу..

@The trick · 06.04.2025, 12:45

testuser2, как компилируешь и что?

@testuser2 · 06.04.2025, 12:49 **[ТС]**

The trick, у меня есть своя простейшая tlb-шка всего с одной функцией. Я ее откры OleView и сохранил от туда файл IDL и попытался скомпилить с ключем /tlb последний раз это было так. Я уже наустанавливал всякой "требухи" типо Windows Kits, Даже VS 2017 Community установил не че не помагает (

Code
1
F:\Windows Kits\10\bin\10.0.26100.0\x86\midl.exe" "C:\Users\User\Documents\Excel\TLB\exampleIDL.IDL" /tlb "C:\Users\User\Documents\Excel\TLB\TestExample.tlb

@The trick · 06.04.2025, 12:54

testuser2, ну ты скинь все в zip. Ни ошибок, ничего не понятно.

@testuser2 · 06.04.2025, 13:01 **[ТС]**

The trick, вот мой idl-файл, есть еще один тестовый файл, со структурами и функциями там есть importlib("stdole2.tlb"); для поддержки Variant и safearray, но там я сейчас заметил ошибки.

@The trick · 06.04.2025, 13:09

testuser2, нужно сначала настроить пути типа такого:

Bash
1
2
call "C:\Program Files (x86)\Microsoft Visual Studio 10.0\VC\vcvarsall.bat"
"C:\Program Files (x86)\Windows Kits\10\bin\10.0.22621.0\x86\midl.exe" exampleIDL.idl

В IDL нужно вставить алиас:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
[
  uuid(61F37A68-F92D-458D-B50B-9FC55DBC0E04),
  version(0.0) //,
  //helpstring("VB/VBA Memory Help WAPI TLB")
]
library ExampleTestTlb
{
 
typedef [public] long LONG_PTR;
 
    // Forward declare all types defined in this typelib
 
    [
      dllname("kernel32") //,
      //helpstring("kernel32 mama-helper.")
    ]
    module kernel32 {
        [entry("RtlMoveMemory"), helpstring("RtlMoveMemory")]
        void _stdcall CopyMemory(
                    [in] void* Dst, 
                    [in] void* Src, 
                    [in] LONG_PTR Size);
    };
};

@testuser2 · 06.04.2025, 13:34 **[ТС]**

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

В IDL нужно вставить алиас:

Я конечно маленько не об этом мечтал, но алиасы в tlb это круто конечно, не знал, спасибо!
Все-таки от статичности TLB видимо ни куда не уйти. А в TLB можно делать парметр, допустим какой-нибудь второ с дефолтным значением, а остальные обычные?

@The trick · 06.04.2025, 14:18

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

А в TLB можно делать парметр, допустим какой-нибудь второ с дефолтным значением, а остальные обычные?

https://learn.microsoft.com/en... l/optional
https://learn.microsoft.com/en... faultvalue

@testuser2 · 06.04.2025, 15:36 **[ТС]**

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

Все-таки от статичности

Да нет же, такие типы как BSTR, void на само деле не статичные, они по разному определяются в x86/x64

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

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

call "C:\Program Files (x86)\Microsoft Visual Studio 10.0\VC\vcvarsall.bat"

Там все на английском, я сдаюсь, но не исключаю, что в этом может быть решение.

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

typedef [public] long LONG_PTR;

Вот что интересно, а нельзя ли делать алиас-указатель типа typedef void* PtrPtr ?

Добавлено через 6 минут
Вижу, есть аттрибут ptr https://learn.microsoft.com/ru... 2/midl/ptr
Но еще бы понять, может ли это добавить каких-то возможностей Vb..

@testuser2 · 24.04.2025, 16:39 **[ТС]**

Получилось все-таки скомпилировать с помощью midl-а таким образчиком
1 сначала нужно найти vcvars32.bat (или vcvars64.bat)
2 открыть окно команд от администратора и выполнить батник
3 выполнить midl "путь к .tlb"
tlb компилируется и попадает в системный каталог SysWOW64 (или System32, как полагаю, я использовал vcvars32.bat)

@testuser2 · 02.08.2025, 13:23 **[ТС]**

Нашел, как настоящий LongPtr добавлять в tlb, для этого нужно добавлят импорт

Code
1
importlib("VBE7.dll");

В VBE7 как раз определен этот тип-алиас

C
1
2
3
4
typedef [public    ,
      custom(F914481D-9C62-4B43-9340-E9B2E6252E5F, 1)    
]
    long LONG_PTR;

Так можно делать универсальные tlb для 32/64 для VBA

Добавлено через 21 минуту
Еще одну вещь увидел в stdole2.tlb тип OLE_COLOR определен как unsigned long, вау, думаю, а не работает ли unsigned в VBA. Неа, код выполняется без ошибок )(

Visual Basic
1
2
3
4
Sub safasfas()
    Dim cl As OLE_COLOR
    cl = -123    
End Sub

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

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

Так можно делать универсальные tlb

ошибочка, универсальные idl-ы, а, вот, tlb-шка получается не универсальная. Еще из наблюдений, видимо в idl нельзя делать публик-константы, кроме как в энумах. А в odl можно, поскольку на vbspeeds выложена целая одна tlb с всего одной константой, но рабочей и не состоящей в энумах.
Дальше об экспериментах

C
1
2
// typedef [public] long* LongRef; //не удачный эксперимент, в VB выдаст ошибку неподдерживаемого типа.
typedef [public] void AnyType;    //удачный эксперимент, можно сделать аргмент в VB функции, работающий как Any..

@testuser2 · 23.11.2025, 07:49 **[ТС]**

Опять же не понятная ситуация
В VBE7 есть модуль Constants

C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    [
      dllname("<no entry points>"),
      uuid(343DB180-2BCC-1069-82D4-00DD010EDFAA),
      helpcontext(0x000f6ebd)
    ]
    module Constants {
        [helpcontext(0x000f79aa)] const long vbObjectError = 0x80040000;
        [helpcontext(0x0010aa32)] const LPSTR vbNullString = "";
        [helpcontext(0x0010aa32)] const LPSTR vbNullChar = "\0";
        [helpcontext(0x0010aa32)] const LPSTR vbCrLf = "\r\n";
        [helpcontext(0x0010aa32)] const LPSTR vbNewLine = "\r\n";
        [helpcontext(0x0010aa32)] const LPSTR vbCr = "\r";
        [helpcontext(0x0010aa32)] const LPSTR vbLf = "\n";
        [helpcontext(0x0010aa32)] const LPSTR vbBack = "\b";
        [helpcontext(0x0010aa32)] const LPSTR vbFormFeed = "\f";
        [helpcontext(0x0010aa32)] const LPSTR vbTab = "\t";
        [helpcontext(0x0010aa32)] const LPSTR vbVerticalTab = "\v";
    };

Пытаюсь создать такой же модуль в своем idl-файле, но это нарушает компиляцию

Code
1
Ошибка    LNK1169 обнаружен многократно определенный символ - один или более

C
1
2
3
4
5
6
7
    [
        dllname("<no entry points>"),
        uuid(343DB180-2BCC-1069-8215-00DD010EDFAA)
    ]
    module ConstModule{
        const long sizeofptr = 0x00000004;
    };

Добавлено через 2 часа 7 минут
Разобрался. В Atl-проекте, в демонстрационном модуле автоматически добавляется заголовок такого вида #include "название_проекта_i.h" (в моем случае ATLVBA_i.h), я думал, что это необходимо и добавлял этот инклд во все новые модли. Но это вот как раз мешало откомпилировать константы в idl-модуле, поскольку все константы и функции из idl автоматически попадают в ATLVBA_i.h, а посколь ATLVBA_i.h был заинклюден в несколько модулей, то в них автоматически попадают определения из ATLVBA_i.h, т.е. из файла idl. И все вроде в порядке, но с константами из idl почему-то происходит такая фигня, что они как-будто переопределяются в каждом модуле по-новой и начинают друг с другом конфликтовать. В обем убрал во всех своих модулях #include "ATLVBA_i.h" и компиляция прошла нормально и константа появилась в Object-браузере.

Новые блоги и статьи Все статьи Все блоги /
Море в объективе kumehtar 06.07.2026 Хотел написать много проникновенных слов, но передумал. Оно само - говорит. Кто слышит тот слышит.	Оказывается, Unreal Engine позволяет качество на порядки выше, чем было в Lineedge Etyuhibosecyu 05.07.2026 Жаль, конечно, что я не узнал об этом, пока Lineedge существовала, а то бы Noname2331 написал, что волки превращаются в пиксельную кашу, а я бы его попросил скачать какую-нибудь бриллиантовую или Pro. . .	Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .	Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .
Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .	В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .

@testuser2 1402 / 860 / 93 Регистрация: 08.02.2017 Сообщений: 3,673 Записей в блоге: 2

	Как сделать TLB 30.06.2023, 20:11. Показов 4345. Ответов 34 Метки нет (Все метки) Все говорят об этих волшебных штуках, о том, какие возможности и удобства.., но никто ни говорит, как их делать. Видел статью как это делается с помощью специальной проги на Delfi, можно ли ее использовать для VB? 0

@HackerVlad Вернулся 1748 / 644 / 45 Регистрация: 10.09.2021 Сообщений: 2,786
	05.07.2023, 06:31
	testuser2, а чего ты не попробуешь на VB6? Да и вообще чего ты так на этом VBA помешался. Программировал бы лучше на VB6. 0

@testuser2 1402 / 860 / 93 Регистрация: 08.02.2017 Сообщений: 3,673 Записей в блоге: 2
	06.04.2025, 12:44 [ТС]
	Хотелось бы все-таки понять, как скомпилировать с помощью midl, мне это нужно чтобы создать декларацию с LONG_PTR. Я пробовал компилить даже нормальные, рабочие idl-ы, не получается, все время чего-то не хватает, чего-то там кричит про cl.exe. Стыдно сказать, даже к ИИ обращался с вопросом, но он не дал мне божественного знания, а только все время ~~дро~~водил по кругу.. 0

@The trick Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 79
	06.04.2025, 12:45
	testuser2, как компилируешь и что? 0

@The trick Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 79
	06.04.2025, 12:54
	testuser2, ну ты скинь все в zip. Ни ошибок, ничего не понятно. 0

@testuser2 1402 / 860 / 93 Регистрация: 08.02.2017 Сообщений: 3,673 Записей в блоге: 2
	24.04.2025, 16:39 [ТС]
	Получилось все-таки скомпилировать с помощью midl-а таким образчиком 1 сначала нужно найти vcvars32.bat (или vcvars64.bat) 2 открыть окно команд от администратора и выполнить батник 3 выполнить midl "путь к .tlb" tlb компилируется и попадает в системный каталог SysWOW64 (или System32, как полагаю, я использовал vcvars32.bat) 0