Форум: "Потрепаться";
Текущий архив: 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.009 c