| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

hex

777 ©   (2002-07-31 16:50:00) 

Подскажите, как представить любой файл в 16-м виде?
Или может кто видел исходники какого-нибудь hex редактора,
написанного на дельфях?

---

dr.karter   (2002-07-31 19:50:00) [1]

На диске с Delphi 5 - 6 есть RusBook
там есть этот алгоритм причем правелный!!!

---

Anatoly Podgoretsky   (2002-07-31 17:18:00) [2]

Байт занимает два хекс символа
Странно, что ты выводишь по одному байту в строчке, приятне по 16 с разделением одним пробелом

---

777   (2002-07-31 17:15:00) [3]

> Anatoly Podgoretsky ©

Res-RichEdit;

а почему обязательно IntToHex(s, 2));?

---

777   (2002-07-31 17:12:00) [4]

Спасибо за намек!
Вечно из-за таких мелочей тормозится процесс.
сделал


...
Stri.Position:=i;
Stri.Read(s,1);
...


-работает. :)))

---

Anatoly Podgoretsky   (2002-07-31 17:09:00) [5]

Расскажи про Res
Stri.Read(s,1);
IntToHex(s,2));

---

MBo   (2002-07-31 17:07:00) [6]

Stri.Read(s, 1);

---

777   (2002-07-31 17:01:00) [7]

Делаю так:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
Stri:TFileStream;
s:Byte;
begin
Stri:=TFileStream.Create("bin.bin",fmOpenRead);
Gauge1.MaxValue:=Stri.Size;

for i:=0 to Stri.Size-1 do
begin
Stri.Read(s,i);
Res.Lines.add(IntToHex(s,4));
Application.processmessages;
Gauge1.Progress:=i;
end;
stri.Free;
end;


после чтения нескольких байтов выдает ошибку...
что делать?

---

Anatoly Podgoretsky   (2002-07-31 16:53:00) [8]

IntToHex по каждому байту

---

Наверх