у кого есть исходник IntToHex, желательно адаптированный под WIN32???

Добрые люди поделитесь исходником функции IntToHex....сейчас поздно, голова уже вот вот начнет съезжать на клаву, а работы еще....))
только не посылайте в......Поиск....я там уже был, но ничего подходящего не нашел.
Пожалста выручте.

 

Хм, можно еще раз - что во что надо перевести? Я просто не знаю, что такое IntToHex. А код перевода в десятичное, 16-ричное и т.д. есть. Это если вручную и на асме. Уточни вопрос и я дам исходник.

А если на апи - юзай wsprintf

 

Поставь Delphi, залезь в исходники VCL, и ты ее найдешь. Эта функция, кстати, в действительности намного интереснее: там внутри есть другая функция, которая переводит в любую систему с целым основанием больше единицы.

 

Наверное пересекается с этим топиком...

тогда как вариант HexToStr в аттаче ехе и сорц

 

Код (Text):

1. Хм, можно еще раз - что во что надо перевести? Я просто не знаю, что такое IntToHex

из десятичного в шестандатиричное.

Код (Text):

1. Поставь Delphi, залезь в исходники VCL, и ты ее найдешь

в Делфи я первым делом залез))) знаю эту функцию, там ассемблерный код+пару вложенных функций, которые немло весят+ если начинаешь копаться в этих вложенных функциях, там еще вложенные и еще... Честно говоря я не выдержал и влом было выбирать из них то что надо)))
Mikl__
сорец перекачал..спасибо.
И в завершении, не дождавшись вчера ответа))) я сам написал функцию перевода, опробываю ее щас. Надеюсь усе получтися))

 

Код (Text):

1. ; ########################################################################
2. ;
3. ;               This original module was written by f0dder.
4. ;
5. ;      Part of the code has been optimised by Alexander Yackubtchik
6. ;
7. ; ########################################################################
8.  
9.     .386
10.     .model flat, stdcall
11.     option casemap :none   ; case sensitive
12.  
13.     .code
14.  
15. ; ########################################################################
16.  
17. dw2hex proc source:DWORD, lpBuffer:DWORD
18.  
19.     push esi
20.  
21.     mov edx, lpBuffer
22.     mov esi, source
23.  
24.     xor eax, eax
25.     xor ecx, ecx
26.  
27.     mov [edx+8], al         ; put terminator at correct length
28.     mov cl, 7               ; length of hexstring - 1
29.  
30.   @@:
31.     mov eax, esi            ; we're going to work on AL
32.     and al, 00001111b       ; mask out high nibble
33.  
34.     cmp al,10
35.     sbb al,69h
36.     das
37.  
38.     mov [edx + ecx], al     ; store the asciihex(AL) in the string
39.     shr esi, 4              ; next nibble
40.     dec ecx                 ; decrease counter (one byte less than dec cl :-)
41.     jns @B                  ; eat them if there's any more
42.  
43.     pop esi
44.  
45.     ret
46.  
47. dw2hex endp
48.  
49. ; #########################################################################
50.  
51. end

\masm32\m32lib\DW2HEX.ASM

 

)))) ага)))
ну "...иногда лучше не находить очевидное, это дает почву для новых идей!!!")))