C++Builder 5: Jak wyświetlić dane binarne z pliku *.bin w formacie HEX?

Question

Mam problem. Może ktoś pisze pod C++Builder 5. Nie wiem jak sobie poradzić z wyprowadzeniem danych binarnych np. z pliku *.bin na ekran w postaci hex, a nie ASCII.

Pyku · Answer

żeby z ASCII zrobić hex - mam na myśli wyświetlenie trzeba każdy odczytany bajt osobno zamienić na liczbę hex (dwa znaki) i tak char znak1, znak2, bajt; znak1=((bajt/16)

ElGregor · Answer

Pyku W Builderze nie trzeba tyle kombinować, jest funkcja IntToHex, która zamienia liczbę całkowitą int na hexadecymalną w postaci tekstu typu AnsiString. Funkcja ma dwa parametry, pierwszy to liczba do konwersji, drugi to liczba cyfr hexadecymalnych jakie zostaną wygenerowane. Spróbuj zrobić coś takiego: Użyj komponentu np. Label i wpisz w jakiejś funkcji:Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkaLabel1->Caption = IntToHex(52,4);Po wykonaniu tej instrukcji w polu Label1 powinna się pojawić liczna 0034 (hexadecymalny odpowiednik liczby 52), liczba jest czterocyfrowa. Poza tym pietrek_pl już chyba sobie poradził z problemem konwersji od grudnia 2002roku

Pyku · Answer

Nie wiedziałem bo nie szukałem bo nie potrzebowałem. Dzięki ElGregor! Zrówko.

pietrek_pl · Answer

Cześć. Jeszcze sobie nie poradził tylko nikt nie odpisywał to co się miałem naprzykrzać.

ElGregor · Answer

pietrek_pl A widzisz, trzeba było się naprzykrzać to by ktoś szybciej na ten post trafił , zresztą gdyby nie Pyku to bym go nie zauważył, a tak pojawił się w nowych postach.

pietrek_pl · Answer

Cześć.
Zrobiłem to w trochę inny sposób ale to nie jest jeszcze to oco mi chodzi:
-------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString EditText = Edit1->Text;
Label1->Caption = "";
Label2->Caption = "";
for (int i=1;i<=EditText.Length();i++)
{
Label1->Caption = Label1->Caption + IntToHex(EditText[i],2) + " ";
Label2->Caption = Label2->Caption + EditText[i] + "";
}
}
-------
Chcę odczytać plik z dysku np. mapę pamięci wielkości 512 bajtów i wyświetlić ją na ekranie w ten sposób:

0000: FF FF FF FF FF FF FF FF - FF FF FF FF FF FF FF FF : YYYYYYYYYYYYYYYY
0010: FF FF FF FF FF FF FF FF - FF FF FF FF FF FF FF FF : YYYYYYYYYYYYYYYY
0020: FF FF FF FF FF FF FF FF - FF FF FF FF FF FF FF FF : YYYYYYYYYYYYYYYY
itd. gdzie FF to dane w postaci HEX odczytane z dysku, a Y to dane w postaci Ansi.
Był bym wdzięczny za pomoc.

ElGregor · Answer

Jeśli chcesz to wyświetlić w postaci komponentu Label to prosze oto gotowa procedura:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  unsigned char InputData[512];
  unsigned char b;
  int i,j;

  Label1->Caption = "";
  for (i=0; i<512/16; i++)
  {
    Label1->Caption = Label1->Caption + IntToHex(i*16,4) + " ";
    for (j=0; j<16; j++)
    {
      Label1->Caption = Label1->Caption + IntToHex(InputData[i*16+j],2) + " ";
      if (j==7)
        Label1->Caption = Label1->Caption + "- ";
    }
    for (j=0; j<16; j++)
    {
      b = InputData[i*16+j];
      if (b < ' ' | b > 'z') b = '.';   //test czy bajt jest poprawnym ASCII
      Label1->Caption = Label1->Caption + char(b);
    }
   Label1->Caption = Label1->Caption + "\n";
  }
}

Dane załaduj do tablicy "InputData" i nie zapomnij zmienić fontu dla Label1 (np. "Courier New"), bo przy proporcjonalnym różna szerokość znaków "rozstrzeli" ci kolumnę i będzie brzydko wyglądać.

pietrek_pl · Answer

Cześć.
Wykombinowałem coś takiego:

void __fastcall TMainForm::CreateMDIChild(String Name)
{
TMDIChild *Child;

//--- create a new MDI child window ----
Child = new TMDIChild(Application);
Child->Caption = Name;
if (FileExists (Name))
Child->Memo1->Lines->LoadFromFile(Name);

unsigned char InputData[512];
unsigned char b;
int i,j;

Child->Memo1->Lines->Text = "";

for (i=0; i<512/16; i++)
{
Child->Memo1->Lines->Text = Child->Memo1->Lines->Text + " " + IntToHex(i*16,5) + ") ";
for (j=0; j<16; j++)
{
Child->Memo1->Lines->Text = Child->Memo1->Lines->Text + IntToHex(InputData[i*16+j],2) + " ";
if (j==7)
Child->Memo1->Lines->Text = Child->Memo1->Lines->Text + "- ";
}
for (j=0; j<16; j++)
{
b = InputData[i*16+j];
if (b < ' ' | b > 'z') b = '.'; //test czy bajt jest poprawnym ASCII
Child->Memo1->Lines->Text = Child->Memo1->Lines->Text + char(b);
}
Child->Memo1->Lines->Text = Child->Memo1->Lines->Text +" " + "\n";
}
}

Stworzyłem sobie MDIChild i tam wstawiłem do Child->Memo1. Działa tylko nie mogę poradzić sobie z przyporządkowaniem InputData do OpenDialog. Może to banalnie proste ale ja jestem początkującym programistą więc się nie dziw.

ElGregor · Answer

Oto funkcja załadowania zawartości pliku do tablicy InputData. Dołącz ją do swojego programu. Jeśli chcesz dodatkowo kontrolować ewentualne błędy (plik za krótki, brak pliku, brak dostępu do pliku itp.) to daj znać, dopiszę sprawdzanie wyjątków.

  int handle;

  if (OpenDialog1->Execute())
  {
    handle = FileOpen(OpenDialog1->FileName, fmOpenRead);
    FileRead(handle, InputData, 512);
    FileClose(handle);
  }

pietrek_pl · Answer

Cześć.
Mam jeszcze kilka pytań. Jak kasować zawartość tablicy przed każdym odczytem, ewentualnie wypełniać ją FF lub 00. Po zwiększeniu tablicy do 4096 bardzo długo trwa zamiana na format szesnastkowy. Czy nie dało by się użyć innej funkcji żeby to przyspieszyć?

ElGregor · Answer

To nie sama funkcja konwersji jest wolna, tylko przy dodawaniu każdej liczby odwołujesz się do komponentu Memo, a windows modyfikując go traci cenny czas. Najlepszą metodą przyśpieszenia będzie po prostu wygenerowanie całego gotowego tekstu do zmiennej pomocniczej Ansi i na końcu jednorazowe przypisanie do komponentu Memo. Tu masz przykład:Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka  AnsiString Lines;     // deklaracja zmiennej pomocniczej   Lines = ;   for (i=0; i

C++Builder 5: Jak wyświetlić dane binarne z pliku *.bin w formacie HEX?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Post #11

Post #12

Podsumowanie tematu