Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите урезать байты в файле, Нужно срочно 
:(
    Опции темы
GWE
Дата 17.6.2007, 19:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Вообщем мне надо урезать байты из файла(если это в HEX-редакторе смотреть,то это от оффсета 47080730 и до конца)вот и немогу найти как,прошу кому если не сложно написать функцию эту,заранее спасибо
PM MAIL   Вверх
GWE
Дата 17.6.2007, 20:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
срочно нужна помощь,товарищи хелп smile:
PM MAIL   Вверх
Yanis
Дата 17.6.2007, 20:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 6
Всего: 111
Советую глянуть тут.


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
GWE
Дата 17.6.2007, 20:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

так это же и эта тема есть
PM MAIL   Вверх
Yanis
Дата 17.6.2007, 20:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 6
Всего: 111
Цитата(GWE @  17.6.2007,  21:42 Найти цитируемый пост)
так это же и эта тема есть 

Попробую по другому smile
Посмотри темы приведённые внизу страницы.


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
GWE
Дата 17.6.2007, 20:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

неа,тама нету такого :( 
PM MAIL   Вверх
Alexeis
Дата 17.6.2007, 22:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
Да вот на коленке накатал
Код

var
  F : TFileStream;
Begin
  F := TFileStream.Create('file.bin', fmReadWrite);
  F.SetSize(47080730);
  F.free;



--------------------
Vit вечная память.

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

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Yanis
Дата 17.6.2007, 22:30 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 6
Всего: 111
Alexeis
Ну ты же знаешь какой будет следующий вопрос smile


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
GWE
Дата 18.6.2007, 13:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Alexeis, 
что-то видать не так,компилятор ругается на fmReadWrite и SetSize

Это сообщение отредактировал(а) GWE - 18.6.2007, 13:22
PM MAIL   Вверх
Alexeis
Дата 18.6.2007, 13:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
Ага точно, нуна так smile
Код

procedure TForm1.Button4Click(Sender: TObject);
var
  F : TFileStream;
Begin
  F := TFileStream.Create('file.bin', fmOpenReadWrite);
  F.Size := 47080730;
  F.free;
 end;


Цитата(Yanis @  17.6.2007,  22:30 Найти цитируемый пост)
Ну ты же знаешь какой будет следующий вопрос

Какой? Как теперь урезать до 47080729 байт? Или как урезать 'my.txt'. Не, врядли...

Это сообщение отредактировал(а) Alexeis - 18.6.2007, 13:55


--------------------
Vit вечная память.

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

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
GWE
Дата 18.6.2007, 14:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

+1 smile ,но есть еще 2 вопроса:
1.Мне надо заменить байты в файле,какой функцией?
2.А вот получилось удалить,но можно ли сделать так,чтобы на удаленное место сели байты,скопированные с другого файла?
PM MAIL   Вверх
aktuba
Дата 18.6.2007, 14:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

1.Мне надо заменить байты в файле,какой функцией?
2.А вот получилось удалить,но можно ли сделать так,чтобы на удаленное место сели байты,скопированные с другого файла? 


Открываем книжку (на край - поиск) и ищем раздел работы с потоками (TStream/TFileStream...)


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Yanis
Дата 18.6.2007, 22:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 6
Всего: 111
Цитата(Alexeis @  18.6.2007,  14:54 Найти цитируемый пост)
Какой? Как теперь урезать до 47080729 байт? Или как урезать 'my.txt'. Не, врядли...

Как вырезать часть файла)))


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0833 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.