Главная страница
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
1-48116
Jusic
2002-08-01 00:57
2002.08.15
Как очистить содержимое Canvas а у TImage?


3-47969
kalliopiy
2002-07-26 11:48
2002.08.15
О фильтрах


1-48109
Edvin
2002-08-05 14:44
2002.08.15
Corel+Delphi?


14-48312
savva
2002-07-19 13:50
2002.08.15
И так, в ряду холостяков вновь появилась игр с интересным...


3-47941
goshavt
2002-07-25 15:27
2002.08.15
Есть ли компоненты для доступа к Oracle и MS SQL без BDE