Подключение 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.

Новые блоги и статьи Все статьи Все блоги /
В чем ценность человеческого опыта в глобальном смысле? 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 и то, что с ним. . .	Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .
rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .	Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .	Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .	Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .

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

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

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

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

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

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

@testuser2 1402 / 860 / 93 Регистрация: 08.02.2017 Сообщений: 3,671 Записей в блоге: 2
	15.04.2025, 13:42
	HackerVlad, а эти кдеклы работают в идешке? 0

@HackerVlad Вернулся 1748 / 644 / 45 Регистрация: 10.09.2021 Сообщений: 2,786
	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 1402 / 860 / 93 Регистрация: 08.02.2017 Сообщений: 3,671 Записей в блоге: 2
	18.12.2025, 00:11
	xiaoyaocode2, cdecl не работает в tlb в vb. 1

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

Решение