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

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@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,588 Записей в блоге: 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,588 Записей в блоге: 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,588 Записей в блоге: 1
	18.12.2025, 00:11
	xiaoyaocode2, cdecl не работает в tlb в vb. 0

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

Решение