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

Новые блоги и статьи Все статьи Все блоги /
Транслитерация текста с кириллицы на латиницу (вариант №2) Maks 13.11.2026 Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .	Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .
Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .

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

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

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

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

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

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

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

@HackerVlad Вернулся 1782 / 677 / 46 Регистрация: 10.09.2021 Сообщений: 2,840
	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 1412 / 878 / 93 Регистрация: 08.02.2017 Сообщений: 3,753 Записей в блоге: 2
	18.12.2025, 00:11
	xiaoyaocode2, cdecl не работает в tlb в vb. 1

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

Решение