Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.02.03;
Скачать: [xml.tar.bz2];

Вниз

И снова...и опять HEX   Найти похожие ветки 

 
DVM ©   (2008-01-06 00:30) [40]


> Вот и я об этом думаю

function ReverseBytes(const N: LongInt): LongInt;
begin
 Result := ((N and $000000FF) shl 24) or ((N and $0000FF00) shl 8) or ((N and  $00FF0000) shr 8) or ((N and $FF000000) shr 24);
end;


 
MOO   (2008-01-06 00:34) [41]

Всем спасибо...DVM мне бы хотелось конечно, самому дойти до этой функции.


 
{RASkov} ©   (2008-01-06 00:36) [42]

> [39] MOO   (06.01.08 00:27)
> Видимо вы просто пропускали уроки Телепатии.

Видимо....
Я в начале тебя об этом предупредил :)

Ты хочешь ХексВьювер сделать?
Если да, то может все-таки лучше с байтами работать, нежели с более "тяжелыми" элементами, а потом над ними еще и колдовать....


 
palva ©   (2008-01-06 00:38) [43]

Перевернуть целое можно такой функцией

function revint(n:Integer): Integer;
asm
 BSWAP EAX
end;

вот пример использования

{$APPTYPE CONSOLE}
uses SysUtils;
function revint(n:Integer): Integer;
asm
 BSWAP EAX
end;
var
 d: Integer;
begin
 d := $12345678;
 WriteLn(IntToHex(revint(d), 8)); // 78563412
end.


 
{RASkov} ©   (2008-01-06 00:39) [44]

> [40] DVM ©   (06.01.08 00:30)

> [43] palva ©   (06.01.08 00:38)

Колдуны :)


 
DVM ©   (2008-01-06 00:40) [45]


> Перевернуть целое можно такой функцией

надо же. как просто.


 
MOO   (2008-01-06 00:40) [46]


> Ты хочешь ХексВьювер сделать?

Нет, я просто разбираюсь с форматом файла одного. Поэтому ничего серьезного, просто интерес


 
MOO   (2008-01-06 00:42) [47]


> palva
> DVM

Спасибо, мда мне до этого далеко ;)


 
palva ©   (2008-01-06 00:43) [48]

> Поэтому ничего серьезного, просто интерес
Молодец. А то у нас тут все то препод задал, то начальник приказал. Противно вопросы читать. Интересующихся мало.


 
{RASkov} ©   (2008-01-06 00:48) [49]

> [48] palva ©   (06.01.08 00:43)
> Интересующихся мало.

Интерес бывает разный :(
Мало ли, что за файлик, форматом которого заинтересовался автор....
Шучу конечно, но... :)


 
MOO   (2008-01-06 00:54) [50]


> palva ©   (06.01.08 00:43) [48]
>

Ну не знай, если бы я учился в Высшем Учебном то может быть мой вопрос и был похожим на все эти.


> {RASkov}

Так всё таки и надо зачепить меня гг ;)


 
{RASkov} ©   (2008-01-06 01:03) [51]

> [50] MOO   (06.01.08 00:54)
> > {RASkov}
>
> Так всё таки и надо зачепить меня гг ;)

Да не волнуйся ты так, все будет в шоколаде. Если, что зачипим, причипим.... вообщем, как говорится - поможем чем сможем :)


 
DVM ©   (2008-01-06 01:04) [52]


> MOO

кстати, вот почитай про порядок байт и тому подобное:

http://ru.wikipedia.org/wiki/%D0%9F%D0%BE%D1%80%D1%8F%D0%B4%D0%BE%D0%BA_%D0%B1%D0%B0%D0%B9%D1%82%D0%BE%D0%B2


 
Германн ©   (2008-01-06 01:06) [53]


> {RASkov} ©   (06.01.08 01:03) [51]

Диалог из недавно обсуждавшегося фильма:
Ипполит - Ты мне руку сломаешь.
Женя - Ничего. Сам сломаю, сам и вылечу.
:)


 
{RASkov} ©   (2008-01-06 01:08) [54]

> [53] Германн ©   (06.01.08 01:06)

Эх... точно (
:)


 
MOO   (2008-01-06 01:13) [55]


> DVM ©   (06.01.08 01:04) [52]

Читаю...


 
{RASkov} ©   (2008-01-06 01:13) [56]

> [53] Германн ©   (06.01.08 01:06)

Будем надеяться, что "тута никто никому ничего не сломал" :)


 
{RASkov} ©   (2008-01-06 01:16) [57]

> [55] MOO   (06.01.08 01:13)

Вот эту можно почитать до кучи
http://www.podgoretsky.com/ftp/Docs/Delphi/Podgoretsky/bits.html
.... пригодится)



Страницы: 1 2 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.02.03;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.056 c
2-1199296031
Alik
2008-01-02 20:47
2008.02.03
Блокировка повторного запуска программы


15-1199198475
Kirill
2008-01-01 17:41
2008.02.03
Удалить ярлыки из адресной строки


2-1199811622
Евгений Р.
2008-01-08 20:00
2008.02.03
MDI приложение


2-1200029813
Катунов Юрий
2008-01-11 08:36
2008.02.03
Как прочитать из параллельного порта из под Windows XP?


15-1198421299
общества
2007-12-23 17:48
2008.02.03
ООО, ОАО, ЗАО





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский