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

Новые блоги и статьи Все статьи Все блоги /
Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .	Почему SEO не начинается с ключевых слов: что проверить до написания текстов Neotwalker 01.08.2026 Когда владельцу сайта предлагают заняться SEO, первым шагом часто становится сбор запросов и написание текстов. Логика кажется понятной: 1. Находим ключевые слова. 2. Добавляем их на. . .
Знание — сила: Доктрина интенциональности знаний, углубление в формулу Hrethgir 01.08.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11957&stc=1&d=1785567302 Знаменитый афоризм Фрэнсиса Бэкона «Знание — сила» (Scientia potentia est) в массовой культуре принято понимать. . .	SUNO Ai - Река Без Дна zorxor 31.07.2026 Автор стихотворения - астрофизик Марина Катыс Ссылка на сгенерированную музыкальную композицию: https:/ / suno. com/ song/ 6f6e5464-b290-4650-be6c-44c85f8d8013 Я говорю, что Время- как вода течет. . .	Из невошедшего на форум (диалог с ИИ-гугла) zorxor 29.07.2026 А вот, что интересно, сказал мне ИИ-гугла: Этот текст — эмоциональный пост пользователя под ником zorxor на интернет-форуме (вероятно, посвященном мистике, непознанному или альтернативной науке). . . .	Был праздник вчера, а я и не знал. kumehtar 28.07.2026 27. 07. 2026г. Intel Core 2 Duo исполнилось 20 лет Салют, шампанское, овации! :drink:

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

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

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

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

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

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

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

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

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

Решение