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

Вниз

отображение блоков данных в Hex виде   Найти похожие ветки 

← →
Ярослав   (2003-12-20 23:17) [0]

Мастера Посоветуйте пожалуйста компонент или механизм
Необходимо чтобы данные (массив байт) можно было отображать в Hex подобном виде (как в WinDows Commandere), желательно по масивно( по строчно):

43 EB E0 E2 E0 | Cлава

---

← →
jack128   (2003-12-20 23:32) [1]

И что? Ты не туда попал. Тебе прямая дорога на www.torry.net ...

---

← →
Ярослав   (2003-12-20 23:57) [2]

а без компонент на форму или панель это вывести можно
ведь надо просто посмотреть

---

← →
Игорь Шевченко   (2003-12-21 01:27) [3]

procedure DumpMemoryToListBox (ListBox : TListBox; Mem : PChar;
MemSize : Cardinal);
var
I, Offset, Lines : Integer;
LowHex, HighHex, LowAscii, HighAscii : String;

procedure FormatEightBytes (Offset : Integer; var Hex, Ascii : String);
var
J : Integer;
C : Byte;
begin
Ascii := "........";
Hex := "";

for J:=0 to 7 do begin
C := Byte(Mem[Offset+J]);
Hex := Hex + Format("%.2x ", [C]);
if (C >= 32) and (C <= 126) then
Ascii[J+1] := Char(C);
end;
end;

begin
ListBox.Items.Clear();
Lines := MemSize div 16;
if MemSize mod 16 <> 0 then
Inc(Lines);
for I:=0 to Pred(Lines) do begin
Offset := I shl 4;
FormatEightBytes (Offset, LowHex, LowAscii);
FormatEightBytes (Offset+8, HighHex, HighAscii);
ListBox.Items.Add(Format("%.6x %s %s %s%s",
[Offset, LowHex, HighHex, LowAscii, HighAscii]));
end;
end;



---

← →
Ярослав   (2003-12-21 01:47) [4]

спасибо попробую адаптировать

---

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

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

Наверх

Память: 0.45 MB
Время: 0.01 c