VPF::[Delphi]Чтение файла,поиск нужных символов и заме.

shoker

Дата 23.7.2012, 23:24 (ссылка)

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

Загрузка ...

Новичок

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

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

добрый день:),в delphi я новичок,вот столкнулся с такой проблемой:
нужно загрузить файл в память (filestream если я правильно понял)вот,найти в нем символы ffff0000,и заменить их на символы ffff1111 из едит,но,файл имеет расширение *.class,он не текстовый,в этом собственно и проблема:)

заранее спасибо за ответ:)

bems

Дата 26.7.2012, 02:38 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

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

Репутация: 18
Всего: 88

TFileStream это не загрузка целиком в память. Целиком в память это TMemoryStream.
Для твоих целей может подойти TStringStream. Грузишь в него методом LoadFromFile и потом ищешь в строке DataString нужную последовательность символов. Если конечно в нетекстовом файле нужные данные лежат именно в текстовом виде.
Может быть нужно найти именно шестнадцатеричное значение, а не его текстовое представление?

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

Обижено школьников: 8

shoker

Дата 26.7.2012, 13:45 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(bems @ 26.7.2012, 02:38)

да,скорре ты всего прав.....нужно шестнадцатеричное значение найти

Это сообщение отредактировал(а) shoker - 26.7.2012, 13:49

bems

Дата 26.7.2012, 18:22 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 18
Всего: 88

Код


procedure TForm10.FormClick(Sender: TObject);
const
  FileName = '......';
var
  Ms: TMemoryStream;
  pDw: PDWORD;
  Found: Boolean;
begin
  Found := False;

  Ms := TMemoryStream.Create;
  try
    Ms.LoadFromFile(FileName);

    pDw := Ms.Memory;
    while ULONG_PTR(pDw) + SizeOf(pDw^) <= ULONG_PTR(Ms.Memory) + Ms.Size do
      if pDw^ = $FFFF0000
         then begin
              Found := True;
              pDw^ := $FFFF1111;
              Inc(pDw)
              end
         else Inc(PByte(pDw))

    if Found then Ms.SaveToFile(FileName);
  finally
    FreeAndNil(Ms)
  end;
end;

Это сообщение отредактировал(а) bems - 26.7.2012, 18:26

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

Обижено школьников: 8

shoker

Дата 27.7.2012, 18:15 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(bems @ 26.7.2012, 18:22)

Код


procedure TForm10.FormClick(Sender: TObject);
const
  FileName = '......';
var
  Ms: TMemoryStream;
  pDw: PDWORD;
  Found: Boolean;
begin
  Found := False;

  Ms := TMemoryStream.Create;
  try
    Ms.LoadFromFile(FileName);

    pDw := Ms.Memory;
    while ULONG_PTR(pDw) + SizeOf(pDw^) <= ULONG_PTR(Ms.Memory) + Ms.Size do
      if pDw^ = $FFFF0000
         then begin
              Found := True;
              pDw^ := $FFFF1111;
              Inc(pDw)
              end
         else Inc(PByte(pDw))

    if Found then Ms.SaveToFile(FileName);
  finally
    FreeAndNil(Ms)
  end;
end;

спасибо,попробую компилировать

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