VPF::Программа и байты - Форум программистов

SoWa

Дата 1.2.2005, 15:02 (ссылка)

(нет голосов)

Загрузка ...

Харекришна

Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 2
Всего: 74

Скажите пожалуйста, может ли работающая программа разобрать саму себя по байтам и сохранить их, например в текстовый документ? Если возможно, то подскажите код smile

--------------------

Всем добра smile

Snowy

Дата 1.2.2005, 16:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Открывай файл программы на чтение и читай... А потом байтики превращай в текст.
Читай через TFileStream.

Bes

Дата 1.2.2005, 16:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 806
Регистрация: 8.12.2004

Репутация: 5
Всего: 7

Ага, у меня так получилось.

procedure TForm1.Button1Click(Sender: TObject);
Var
F1,T1:TFileStream;
begin
F1:=TFileStream.Create(Application.ExeName,fmShareDenyNone);
T1:=TFileStream.Create('C:\mySelf.txt',fmCreate);

T1.CopyFrom(F1,F1.Size);

F1.Free;
T1.Free;
end;

Это сообщение отредактировал(а) Bes - 1.2.2005, 16:24

Snowy

Дата 1.2.2005, 16:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код


procedure FileToHex(fn:string);
const
  hex: string='0123456789ABCDEF';
var
  f: TFileStream;
  m: array[0..15] of byte;
  l: string;
  i,n: integer;
begin
  Form1.Memo1.Clear;
  if not FileExists(fn) then exit;
  f:=TFileStream.Create(fn,fmShareDenyWrite);
  repeat
    n:=f.Read(m,16);
    l:=''; if n>0 then begin
      for i:=0 to n-1 do begin
        l:=l+copy(hex,m[i] div 16 +1,1)+
           copy(hex,m[i] mod 16 +1,1)+' ';
      end;
      Form1.Memo1.Lines.Add(l);
    end;
  until (n = 0);
  f.Free;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  FileToHex(ParamStr(0));
end;

SoWa

Дата 3.2.2005, 12:14 (ссылка)

(нет голосов)

Загрузка ...

Харекришна

Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 2
Всего: 74

Круто! Очень благодарен!

--------------------

Всем добра smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »