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

Вниз

hex   Найти похожие ветки 

← →
777   (2002-07-31 16:50) [0]

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

---

← →
Anatoly Podgoretsky   (2002-07-31 16:53) [1]

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

---

← →
777   (2002-07-31 17:01) [2]

Делаю так:

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;


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

---

← →
MBo   (2002-07-31 17:07) [3]

Stri.Read(s, 1);

---

← →
Anatoly Podgoretsky   (2002-07-31 17:09) [4]

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

---

← →
777   (2002-07-31 17:12) [5]

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


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


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

---

← →
777   (2002-07-31 17:15) [6]

> Anatoly Podgoretsky ©

Res-RichEdit;

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

---

← →
Anatoly Podgoretsky   (2002-07-31 17:18) [7]

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

---

← →
dr.karter   (2002-07-31 19:50) [8]

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

---

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

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

Наверх

Память: 0.56 MB
Время: 0.02 c