Подключение CDecl функций из TLB библиотеки

@HackerVlad · Регистрация: 10.09.2021

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

Помогите, пожалуйста, научиться правильно подключать CDecl функции из TLB.
Учитывая, что я в этой области очень мало знаю, я взял готовый пример The tric'а с готовой библиотекой, скачал с гитхаба. Но функция memcmp в ней не работает, либо я не разобрался в чём-то.

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
    Dim str1 As String
    Dim str2 As String
    
    str1 = "str11"
    str2 = "str22"
    
    Print memcmp(str1, str2, Len(str1)) ' Почему ноль?
    Print memcmp(str1, str2, LenB(str1)) ' Почему ноль?
End Sub

@The trick · 28.03.2023, 20:53

Ну и Long - это неверно с точки зрения типизации. Там нужно передавать не Long, а указатель.

Добавлено через 42 секунды

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

В чём я там не прав оказался? Функция memcmp CDecl Lib "ntdll" она для ANSI строк что ли только?

Я же написал

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

Ты передаешь туда 2 указателя на BSTR строки. Логично что они разные. Подозреваю ты хотел передать именно BSTR, а не указатель на BSTR. В этом случае нужно предавать memcmp(Byval str1,Byval str2, Len(str1))

@HackerVlad · 28.03.2023, 20:53 **[ТС]**

Вроде работает и так и так только разную длину надо указывать.

@The trick · 28.03.2023, 20:55

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

Вроде работает и так и так только разную длину надо указывать.

При декларации в TLB не будет работать также как и в первом посте.

@HackerVlad · 28.03.2023, 20:56 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Declare Function memcmp CDecl Lib "ntdll" (ByVal buffer1 As Long, ByVal buffer2 As Long, ByVal count As Long) As Long
 
Private Sub Command1_Click()
    Dim str1 As String
    Dim str2 As String
    
    str1 = "str11"
    str2 = "str22"
    
    ' Без конвертации в ANSI
    
    Print memcmp(StrPtr(str1), StrPtr(str2), Len(str1)) ' 0
    Print memcmp(StrPtr(str1), StrPtr(str2), LenB(str1)) ' -1
    
    ' Теперь попробуем с конвертацией
    
    str1 = StrConv(str1, vbFromUnicode)
    str2 = StrConv(str2, vbFromUnicode)
    
    Print memcmp(StrPtr(str1), StrPtr(str2), Len(str1)) ' 0
    Print memcmp(StrPtr(str1), StrPtr(str2), LenB(str1)) ' -1
End Sub

@The trick · 28.03.2023, 20:58

HackerVlad, так этот код использует Declare, а не TLB.

@HackerVlad · 28.03.2023, 21:00 **[ТС]**

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

При декларации в TLB не будет работат

Я и декларировать в TLB не умею. Там надо было бы декларировать As Any? Не As Long?

@The trick · 28.03.2023, 21:01

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

Я и декларировать в TLB не умею. Там надо было бы декларировать As Any? Не As Long?

В названии темы указано TLB. В Declare там вообще другие правила. Декларируй как тебе удобно.

@HackerVlad · 28.03.2023, 21:03 **[ТС]**

Хорошо, давай теперь перейдём к главному, как в TLB объявить memchr

@The trick · 28.03.2023, 21:05

C
1
2
3
4
5
        [entry("memchr")]
        long __cdecl memchr (
            [in] void *pDst,
            [in] long c,
            [in] long uLength);

@HackerVlad · 28.03.2023, 22:03 **[ТС]**

два подчёркивания? я пробовал только с одним и у меня не получалось помню

Добавлено через 32 минуты
Короче я твою функцию переименовываю в RtlCompareMemory, а то извини меня как я буду пользоваться настоящей memcmp? Сразу надо было называть правильно! Теперь вот добавлю ещё по твоему описанию.

C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
[dllname("NTDLL.DLL")] 
module ntdll {
 
        [entry("RtlCompareMemory")]
        long RtlCompareMemory (
            void *pSource1,
            void *pSource2,
            long uLength);
 
        [entry("memchr")]
            long __cdecl memchr (
                   [in] void *pDst,
                   [in] long c,
                   [in] long uLength);
 
 
};

Добавлено через 13 минут
В IDL что-то у меня не получилось опять. Переписал в ODL.
Так вот для ODL:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
[
        helpstring("ntdll helper."),
        dllname("ntdll")
    ]
    module ntdll
    {
        [
            helpstring("memchr"),
            entry("memchr")
        ]
        long __cdecl memchr
        (
            [in] void *pDst,
            [in] long c,
            [in] long uLength
        );
    };

Я раньше точно так же пробовал и у меня не получалось, потому что я писал одно подчёркивания, а не два.

Добавлено через 9 минут
ODL проще для начинающих и компилятор с диалогом выбора файлов хоть

@The trick · 28.03.2023, 22:20

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

Короче я твою функцию переименовываю в RtlCompareMemory, а то извини меня как я буду пользоваться настоящей memcmp? Сразу надо было называть правильно!

Не надо, для этого алиасы и существуют. memcmp из С в том проекте вообще нельзя использовать.

@HackerVlad · 28.03.2023, 22:23 **[ТС]**

А теперь выкладываю очень хорошею TLB библиотеку.
В ней функции GetMem1, GetMem2, GetMem4, GetMem8, PutMem4 и всякие разные хорошие.
Но самое главное это cdecl функция memchr. Это самое главное. RtlMoveMemory так и назвал чтобы не путаться. Всё гуд! И даже GetTickCount засунул для отслеживания миллисекунд.

@HackerVlad · 28.03.2023, 22:26 **[ТС]**

Я не очень люблю аллиасы, если честно, приводит к путаницам потом. Даже всегда добавляю на конце W или A в функциях чтобы было потянее.

Добавлено через 54 секунды
Всё! У меня всё получилось! Всем спасибо большое за помощь, тему можно закрывать.

@testuser2 · 14.04.2025, 07:19

Блин, только счас просек эту тему, просто просматривал один одл, а там cdecl-ы.

@HackerVlad · 15.04.2025, 13:24 **[ТС]**

testuser2, у меня много разных тем, я же HackerVlad

@testuser2 · 15.04.2025, 13:42

HackerVlad, а эти кдеклы работают в идешке?

@HackerVlad · 15.04.2025, 15:59 **[ТС]**

testuser2, цдэцл работает в IDE с надстройкой от The Trick, может и без надстройки, если прописано в TLB, я не помню

@The trick · 15.04.2025, 16:57

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

может и без надстройки, если прописано в TLB

Нет.

@xiaoyaocode2 · 18.12.2025, 00:07

[
dllname("KERNEL32.DLL")
]
module kernel32 {
[entry("GetModuleHandleW")]
HANDLE _stdcall GetModuleHandle(LPWSTR pszModule);
[entry("LoadLibraryW")]
HANDLE _stdcall LoadLibrary(LPWSTR pszModule);
[entry("FreeLibrary")]
long _stdcall FreeLibrary(HANDLE hLib);

_stdcall CHANGE TO cdecl?

@testuser2 · 18.12.2025, 00:11

xiaoyaocode2, cdecl не работает в tlb в vb.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@HackerVlad Испарился 1741 / 637 / 45 Регистрация: 10.09.2021 Сообщений: 2,769
	28.03.2023, 20:53 [ТС]
	Вроде работает и так и так только разную длину надо указывать. 0

@The trick Модератор 10048 / 3894 / 883 Регистрация: 22.02.2013 Сообщений: 5,847 Записей в блоге: 79
	28.03.2023, 20:58
	HackerVlad, так этот код использует Declare, а не TLB. 0

@HackerVlad Испарился 1741 / 637 / 45 Регистрация: 10.09.2021 Сообщений: 2,769
	28.03.2023, 21:03 [ТС]
	Хорошо, давай теперь перейдём к главному, как в TLB объявить memchr 0

@HackerVlad Испарился 1741 / 637 / 45 Регистрация: 10.09.2021 Сообщений: 2,769
	28.03.2023, 22:26 [ТС]
	Я не очень люблю аллиасы, если честно, приводит к путаницам потом. Даже всегда добавляю на конце W или A в функциях чтобы было потянее. Добавлено через 54 секунды Всё! У меня всё получилось! Всем спасибо большое за помощь, тему можно закрывать. 0

@testuser2 1386 / 842 / 91 Регистрация: 08.02.2017 Сообщений: 3,585 Записей в блоге: 1
	14.04.2025, 07:19
	Блин, только счас просек эту тему, просто просматривал один одл, а там cdecl-ы. 0

@HackerVlad Испарился 1741 / 637 / 45 Регистрация: 10.09.2021 Сообщений: 2,769
	15.04.2025, 13:24 [ТС]
	testuser2, у меня много разных тем, я же HackerVlad 0

@testuser2 1386 / 842 / 91 Регистрация: 08.02.2017 Сообщений: 3,585 Записей в блоге: 1
	15.04.2025, 13:42
	HackerVlad, а эти кдеклы работают в идешке? 0

@HackerVlad Испарился 1741 / 637 / 45 Регистрация: 10.09.2021 Сообщений: 2,769
	15.04.2025, 15:59 [ТС]
	testuser2, цдэцл работает в IDE с надстройкой от The Trick, может и без надстройки, если прописано в TLB, я не помню 0

@xiaoyaocode2 0 / 0 / 0 Регистрация: 17.12.2025 Сообщений: 9
	18.12.2025, 00:07
	[ dllname("KERNEL32.DLL") ] module kernel32 { [entry("GetModuleHandleW")] HANDLE _stdcall GetModuleHandle(LPWSTR pszModule); [entry("LoadLibraryW")] HANDLE _stdcall LoadLibrary(LPWSTR pszModule); [entry("FreeLibrary")] long _stdcall FreeLibrary(HANDLE hLib); _stdcall CHANGE TO cdecl? 0

@testuser2 1386 / 842 / 91 Регистрация: 08.02.2017 Сообщений: 3,585 Записей в блоге: 1
	18.12.2025, 00:11
	xiaoyaocode2, cdecl не работает в tlb в vb. 0

Подключение CDecl функций из TLB библиотеки

Решение