Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.15;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.01 c
7-48334
frost666
2002-06-03 11:16
2002.08.15
Как не запачкать реестр своими записями и притом...


3-48010
Alexsys
2002-07-25 21:43
2002.08.15
Поиск в табличке по неполному слову по нескольким полям


3-47952
Ola
2002-07-22 13:05
2002.08.15
Connect!!!!!!


1-48199
Nikoss
2002-08-02 23:22
2002.08.15
Три вопроса. Работа с двумерным массивом


1-48051
V.Turecky
2002-08-04 08:40
2002.08.15
CreateProcess. Нужна информация.