HEX-просмотрщик

//---------------------------------------------------------------------------
// Проект 26. HEX-просмотрщик файла
// Байты файла в шестнадцатеричном дампе.
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
}
//---------------------------------------------------------------------------

// Читаем файл в память и печатаем классический hex-дамп: смещение,
// 16 байт в hex и та же строка печатными символами.
AnsiString hexByte(unsigned char b){ return IntToHex((int)b,2); }
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonOpenClick(TObject *Sender)
{
    if (!OpenDialog1->Execute()) return;
    TFileStream *fs = new TFileStream(OpenDialog1->FileName, fmOpenRead);
    MemoDump->Lines->Clear();
    try {
        const int W=16; unsigned char buf[16]; int got, off=0;
        while ((got = fs->Read(buf, W)) > 0){
            AnsiString hex, asc;
            for (int i=0;i<W;i++){
                if (i<got){ hex+=hexByte(buf[i])+" ";
                            asc+=(buf[i]>=32&&buf[i]<127)?(char)buf[i]:'.'; }
                else hex+="   ";
            }
            MemoDump->Lines->Add(IntToHex(off,6)+"  "+hex+" "+asc);
            off+=got;
            if (off>4096){ MemoDump->Lines->Add("... (показаны первые 4 КБ)"); break; }
        }
    }
    __finally { delete fs; }
}
//---------------------------------------------------------------------------