API функция для конвертации числа в Hex

@Armen Jzmejyan · Регистрация: 27.12.2007

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

Znaet li kto, est'li funkcii API dlja convertacii chisla v hex, standartnaja VB ne podkhodit Hex(213622402953199) vidaet Overflow, nado chto-to tipa _i64toa()

Zaranee blagodaren.

@palva · 18.05.2008, 23:06

Дык overflow выдается из-за очень длинного числа, а не из-за функции. Т. е. в бейсике нет переменных, которые могли бы хранить числа такой точности. Приходится хранить отдельно старшую и младшую части в переменных типа Long.

А функция, которая может перевести в Hex имеется в API. Это wsprintf. Только формата для работы с __int64 я что-то в хелпе для нее не нашел.

@Armen Jzmejyan · 19.05.2008, 09:06 **[ТС]**

double i variant mojet khranit'.
A wsprintf ja ne nashel ona v kakoj biblioteke.

@palva · 19.05.2008, 11:38

Здесь я неправ. Конечно, хранить может, но 16-ричный вид числа Double - это вряд ли то, что вам нужно. wsprintf находится в USER32.DLL в Win2000 ее алиас wsprintfA. Попробовал я к ней обратиться таким образом:

Private Declare Function wsprintf Lib 'user32' Alias 'wsprintfA' _
(lpOut As Byte, ByVal lpFmt As String, ByVal proba As Long) As Long

Private Sub Form_Load()
Dim lll As Long, buf(20) As Byte
lll = 123456789
wsprintf buf(0), '%lX', lll
s = ''
For i = 0 To 20
If buf(i) = 0 Then Exit For
s = s & Chr(buf(i))
Next
Debug.Print s
End Sub

но получил Bad DLL calling convention. То есть она, по-видимому, была написана в соглашениях cdecl. Не знаю можно ли к таким функциям обращаться из бейсика. Может быть, имеется вариант этой функции с типом pascal, не знаю.

@Ennor · 23.05.2008, 05:40

Обращаться к таким функциям нельзя даже через TLB, проверено. В VB работать с Сишным рантаймом вообще не рекомендуется - API есть API, а C++ - это все-таки C++, для него только свои соглашения действуют.

Армен, а где ты ухитрился в VB взять такое число? Его ведь только Currency содержать может, а Hex() неявно от тебя преобразует свой аргумент в Long - здесь ты и ловишь переполнение.

Попробуй так: переведи число в массив байтов. Если ты его получаешь от API, то можно попытаться подменить в декларации тот тип, что в оригинале, на Byte(). Не уверен, что прокатит, но вдруг получится?

Или запихни его у себя в Currency, а потом разбей на 2 лонга методами целого деления (старшая часть) и остатка от деления (младшая). Или вообще напролом - через RtlMoveMemory(...) - эта штука все съест, ей только корректный указатель давай.

P.S. By the way: ты там случайно не с криптографией мутишь? Если да, то буду рад посотрудничать. Помогу чем смогу.

@Ennor · 23.05.2008, 05:42

Да, кстати, palva: здесь нужен stdcall, а не pascal (если, конечно, это не одно и то же

.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114

@Armen Jzmejyan 1 / 1 / 0 Регистрация: 27.12.2007 Сообщений: 157

	API функция для конвертации числа в Hex 18.05.2008, 16:26. Показов 1677. Ответов 5 Метки нет (Все метки) Znaet li kto, est'li funkcii API dlja convertacii chisla v hex, standartnaja VB ne podkhodit Hex(213622402953199) vidaet Overflow, nado chto-to tipa _i64toa() Zaranee blagodaren. 0

@palva 4278 / 2970 / 693 Регистрация: 08.06.2007 Сообщений: 9,925 Записей в блоге: 5
	18.05.2008, 23:06
	Дык overflow выдается из-за очень длинного числа, а не из-за функции. Т. е. в бейсике нет переменных, которые могли бы хранить числа такой точности. Приходится хранить отдельно старшую и младшую части в переменных типа Long. А функция, которая может перевести в Hex имеется в API. Это wsprintf. Только формата для работы с __int64 я что-то в хелпе для нее не нашел. 0

@Armen Jzmejyan 1 / 1 / 0 Регистрация: 27.12.2007 Сообщений: 157
	19.05.2008, 09:06 [ТС]
	double i variant mojet khranit'. A wsprintf ja ne nashel ona v kakoj biblioteke. 0

@palva 4278 / 2970 / 693 Регистрация: 08.06.2007 Сообщений: 9,925 Записей в блоге: 5
	19.05.2008, 11:38
	Здесь я неправ. Конечно, хранить может, но 16-ричный вид числа Double - это вряд ли то, что вам нужно. wsprintf находится в USER32.DLL в Win2000 ее алиас wsprintfA. Попробовал я к ней обратиться таким образом: Private Declare Function wsprintf Lib 'user32' Alias 'wsprintfA' _ (lpOut As Byte, ByVal lpFmt As String, ByVal proba As Long) As Long Private Sub Form_Load() Dim lll As Long, buf(20) As Byte lll = 123456789 wsprintf buf(0), '%lX', lll s = '' For i = 0 To 20 If buf(i) = 0 Then Exit For s = s & Chr(buf(i)) Next Debug.Print s End Sub но получил Bad DLL calling convention. То есть она, по-видимому, была написана в соглашениях cdecl. Не знаю можно ли к таким функциям обращаться из бейсика. Может быть, имеется вариант этой функции с типом pascal, не знаю. 0

@Ennor 0 / 0 / 0 Регистрация: 07.04.2008 Сообщений: 99
	23.05.2008, 05:40
	Обращаться к таким функциям нельзя даже через TLB, проверено. В VB работать с Сишным рантаймом вообще не рекомендуется - API есть API, а C++ - это все-таки C++, для него только свои соглашения действуют. Армен, а где ты ухитрился в VB взять такое число? Его ведь только Currency содержать может, а Hex() неявно от тебя преобразует свой аргумент в Long - здесь ты и ловишь переполнение. Попробуй так: переведи число в массив байтов. Если ты его получаешь от API, то можно попытаться подменить в декларации тот тип, что в оригинале, на Byte(). Не уверен, что прокатит, но вдруг получится? Или запихни его у себя в Currency, а потом разбей на 2 лонга методами целого деления (старшая часть) и остатка от деления (младшая). Или вообще напролом - через RtlMoveMemory(...) - эта штука все съест, ей только корректный указатель давай. P.S. By the way: ты там случайно не с криптографией мутишь? Если да, то буду рад посотрудничать. Помогу чем смогу. 0

@Ennor 0 / 0 / 0 Регистрация: 07.04.2008 Сообщений: 99
	23.05.2008, 05:42
	Да, кстати, palva: здесь нужен stdcall, а не pascal (если, конечно, это не одно и то же . 0