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

Вниз

Поделитесь идеей: HEX-редактор файлов.   Найти похожие ветки 

← →
ХМЫРЬ   (2002-11-27 01:47) [0]

Очень нужно написать простейший HEX-редактор файлов (или хотя-бы реализовать возможность просмотра файлов в этом режиме)... Что и где можно почитать по этому поводу? (у Тодда Миллера, Дэвида Пауэлла и Архангельского я смотрел - толком ничего нет...) Дайте любую идею, поскольку я в этой проблеме полный дуб и не знаю с чего начать :-(.
Буду очень признателен за любую, даже небольшую помощь.

---

← →
Набережных С.   (2002-11-27 10:17) [1]

Вот тебе "идея"

procedure TForm1.BitBtn1Click(Sender: TObject);
var
FS: TFileStream;
Buf: array [1..16] of Byte;
n, m, k: integer;
begin
if not OpenDialog1.Execute then Exit;
with StringGrid1 do
begin
FS:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
try
if FS.Size = 0 then RowCount:=2
else RowCount:=(FS.Size + 15) div 16 + 1;
m:=0;
for n:=1 to RowCount - 1 do
begin
m:=FS.Read(Buf,16);
Cells[0,n]:=IntToHex((n-1) shl 4, 8);
for k:=1 to m do Cells[k,n]:=IntToHex(Buf[k],2);
end;
if m < 16 then for k:=m + 1 to 16 do Cells[k,RowCount - 1]:="";
finally
FS.Free;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
n:integer;
begin
with StringGrid1 do
begin
ColCount:=17;
RowCount:=2;
for n:=1 to 16 do
begin
ColWidths[n]:=32;
Cells[n,0]:=IntToHex(n-1,2);
end;
end;
end;


---

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

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

Наверх

Память: 0.44 MB
Время: 0.013 c