| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вывод файла на экран

Странник81 ©   (2007-09-05 16:05:00) 

Есть текстовый файл.Как можно посмотреть(на экране) его содержимое в виде бит?

---

Dib@zol   (2007-09-05 16:42:00) [1]

function LoadBin(FileName: string): string;
// ------------------------------------------------------- \\
function NonDecNumSys(num:integer; i:byte):string;
var
 k : integer;
 s : string[2];
begin
 result:='';
 k:=abs(num);
 repeat
   str(k mod i, s);
   if s='10' then s:='A';
   if s='11' then s:='B';
   if s='12' then s:='C';
   if s='13' then s:='D';
   if s='14' then s:='E';
   if s='15' then s:='F';
   result:=s+result;

   k:=k div i;
 until k=0;
 while length(result)<8 do
   result:='0'+result;
end;
// ------------------------------------------------------- \\
type
 TByteArray = array [0..0] of byte;
 PByteArray = ^TByteArray;
var
 F : HFILE;
 P : Pointer;
 S, T : Cardinal;
 wfd : WIN32_FIND_DATA;
begin
 Result:='';
 F:=CreateFile(PChar(FileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
 if F=INVALID_HANDLE_VALUE then exit;
 FindFirstFile(PChar(FileName), wfd);
 S:=wfd.nFileSizeLow;
 LongInt(P):=LocalAlloc(GMEM_FIXED, S);
 ReadFile(F, P^, S, T, nil);

 for T:=0 to S-1 do
   Result:=Result+NonDecNumSys(PByteArray(P)[T], 2)+' ';

 LocalFree(LongInt(P));
 CloseHandle(F);
end;

---

clickmaker   (2007-09-05 16:22:00) [2]

function Char2Bin(ch: byte): string;
var i: integer;
begin
 Result := '';
 for i := 7 downto 0 do begin
   Result := Result + Format('%d', [(ch shr i) and 1]);
 end;
end;

обмолотить весь файл - домашнее задание

---

Германн   (2007-09-05 16:21:00) [3]

> Странник81 ©   (05.09.07 16:13) [3]
>
> Именно в виде 0 и 1
>

Тогда и ТС не поможет :(
Может всё-таки согласишься на шеснадцатиричное представление?

---

Странник81   (2007-09-05 16:13:00) [4]

Именно в виде 0 и 1

---

clickmaker   (2007-09-05 16:09:00) [5]

> его содержимое в виде бит?

именно бит? ноликов и единичек?

---

Германн   (2007-09-05 16:07:00) [6]

> Странник81 ©   (05.09.07 16:05)
>
> Есть текстовый файл.Как можно посмотреть(на экране) его
> содержимое в виде бит?
>

Total Commander тебе поможет.

---

Наверх