Вывести в Memo двоичное представление файла

@NotBeginner · Регистрация: 22.02.2013

Author24 — интернет-сервис помощи студентам

Решил изучить снегорафию.. Поэтому начну с малого
Поправьте если не так -
Любой файл можно представить в двоичном виде?
Если да - то с чего начать что бы вывести это представление, например в мемо.
Спасибо

@MLPMan · 28.07.2014, 14:02

Наиболее простое, в десятичном представлении:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
Var 
 f : file of byte;
 b : byte;
begin
 AssignFile(f, 'C:\existing-file.ext');
 Reset(f);
 Memo1.Lines.Clear;
 While Not Eof(f) Do Begin
   Read(F,B);
   Memo1.Text := Memo1.Text + ' ' + IntToStr(b);
 End;
 CloseFile(f);
end;

@NotBeginner · 28.07.2014, 14:25 **[ТС]**

как этот код в поток лучше вынести?

@MLPMan · 28.07.2014, 14:45

Сообщение от NotBeginner

как этот код в поток лучше вынести

Там есть несколько способов. Например, унаследуйте класс TThread и выполните в процедуре execute.
Название: history.JPG
Просмотров: 99

Размер: 5.9 Кб

Название: history.JPG
Просмотров: 99

Размер: 5.9 Кб

@Mawrat · 28.07.2014, 15:59

Сообщение от NotBeginner

Любой файл можно представить в двоичном виде?

Для восприятия удобнее представлять содержимое в виде шестнадцатеричных кодов. Хотя, конечно, зависит от поставленных целей. Показать бинарное содержимое файла в виде шестнадцатеричных кодов.

Добавлено через 2 минуты
Если используется версия Delphi выше, чем 2007, то в коде, представленном по ссылке, строку следует объявить с типом AnsiString.

@NotBeginner 174 / 160 / 71 Регистрация: 22.02.2013 Сообщений: 1,769 Записей в блоге: 2
		1
	Вывести в Memo двоичное представление файла 28.07.2014, 13:30. Показов 1849. Ответов 4 Метки нет (Все метки) Решил изучить снегорафию.. Поэтому начну с малого Поправьте если не так - Любой файл можно представить в двоичном виде? Если да - то с чего начать что бы вывести это представление, например в мемо. Спасибо 0

@NotBeginner 174 / 160 / 71 Регистрация: 22.02.2013 Сообщений: 1,769 Записей в блоге: 2
	28.07.2014, 14:25 [ТС]	3
	как этот код в поток лучше вынести? 0

@MLPMan Кандёхаем веселее! 296 / 328 / 76 Регистрация: 02.10.2012 Сообщений: 2,175
	28.07.2014, 14:45	4
	Сообщение от NotBeginner как этот код в поток лучше вынести Там есть несколько способов. Например, унаследуйте класс TThread и выполните в процедуре execute. 1

@Mawrat 13104 / 5885 / 1706 Регистрация: 19.09.2009 Сообщений: 8,808
	28.07.2014, 15:59	5
	Сообщение от NotBeginner Любой файл можно представить в двоичном виде? Для восприятия удобнее представлять содержимое в виде шестнадцатеричных кодов. Хотя, конечно, зависит от поставленных целей. Показать бинарное содержимое файла в виде шестнадцатеричных кодов. Добавлено через 2 минуты Если используется версия Delphi выше, чем 2007, то в коде, представленном по ссылке, строку следует объявить с типом AnsiString. 1