Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.12.2014, 13:17   #1
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,899
Восклицание Загрузить TBB-файл в StringList

Доброго времени суток!
Есть файл MESSAGES.TBB от The Bat.
Загружаю его в StringList. В StringList загружается только фрагмент.
Изображения
Тип файла: png Безымянный.png (1.4 Кб, 82 просмотров)
Вложения
Тип файла: zip MESSAGES.zip (379 байт, 13 просмотров)
Shouldercannon вне форума Ответить с цитированием
Старый 30.12.2014, 13:25   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Двоичный файл в стринглист? Загружаются байты до первого встреченного двоичного нуля. Загружай в MemoryStream или FileStream и парсинг
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 30.12.2014, 21:09   #3
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,899
По умолчанию

Загрузил файл в FileStream
Код:
var
  FS: TFileStream;
begin
  FS := TFileStream.Create('MESSAGES.TBB', fmCreate or fmOpenWrite or fmShareDenyNone);
  FreeAndNil(FS);
end;
Каким образом/способом найти в FS какое-нибудь слово?

Последний раз редактировалось Shouldercannon; 30.12.2014 в 21:12.
Shouldercannon вне форума Ответить с цитированием
Старый 30.12.2014, 21:36   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Для начала открыть его в каком-то двоичном редакторе. Изучить устройство. Возможно есть описание структуры tbb файлов, попытаться найти её. Если удастся, то прочитать текстовые строки из конца файла согласно описания этой самой структуры. Если нет то хаккерским путем, в общем-то нет ни каких проблем конкретно из этого файла их выдернуть. Там всего-то
Код:
Date: Fri, 26 Dec 2014 11:40:58 +0300
Message-Id: 
From: 
To: 
Subject: Welcome to The Bat!
Content-Type: text/plain; charset="us-ascii"

The Bat! - email as it's meant to be
А из другого может быть не так, понятия не имею об принципах его устройства
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 30.12.2014, 21:37   #5
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,434
По умолчанию

С чего вы взяли, что это текстовый файл? Может он типизированный?
Человек_Борща вне форума Ответить с цитированием
Старый 30.12.2014, 22:28   #6
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,899
По умолчанию

Всё возможно
Shouldercannon вне форума Ответить с цитированием
Старый 30.12.2014, 22:47   #7
kropotkina-alice
Форумчанин
 
Аватар для kropotkina-alice
 
Регистрация: 27.10.2014
Сообщений: 594
По умолчанию

Цитата:
Сообщение от Shouldercannon Посмотреть сообщение
Доброго времени суток!
Есть файл MESSAGES.TBB от The Bat.
Загружаю его в StringList. В StringList загружается только фрагмент.
Нужна предварительная обработка файла - убрать все NUL.
Потом можете грузить в StringList, ибо там останется текст. Либо простой текст, либо HTML.
Вот для примера скопировала вам кусочек (до удаления NUL-ов):
Цитата:
p0NULNULNULйµPЊx6NULNULNULNULNULNULReturn-Path: <sender@ambar.mail.ru>
Received: from be1.int.pochta.ru ([unix socket])
by be1.int.pochta.ru (Cyrus v2.2.5) with LMTPA;
Thu, 16 Dec 2004 17:17:25 +0300
X-Sieve: CMU Sieve 2.2
Received: from mx3.pochta.ru (mx3.int.pochta.ru [192.168.1.53])
by be1.int.pochta.ru (8.13.1/8.13.1) with ESMTP id iBGEGYKi007191;
Ну, а дальше парсить, это вы умеете... Белиберду отбросите, а нужное заберёте.
С наступающим!

Последний раз редактировалось kropotkina-alice; 30.12.2014 в 22:51.
kropotkina-alice вне форума Ответить с цитированием
Старый 30.12.2014, 23:11   #8
Vapaamies
Просветитель
Участник клуба
 
Аватар для Vapaamies
 
Регистрация: 26.12.2012
Сообщений: 1,844
По умолчанию

Файл базы The Bat! -- однозначно двоичный, в нем хранятся сами сообщения, а индекс -- в отдельном файле. Формат не очень сложный, теоретически можно разобраться и самому. The Bat! на Delphi написан, а все дельфисты мыслят примерно одинаково.
В разработке: воспроизводственный контур ИТ
Vapaamies вне форума Ответить с цитированием
Старый 30.12.2014, 23:15   #9
kropotkina-alice
Форумчанин
 
Аватар для kropotkina-alice
 
Регистрация: 27.10.2014
Сообщений: 594
По умолчанию

Цитата:
Сообщение от Vapaamies Посмотреть сообщение
Файл базы The Bat! -- однозначно двоичный, в нем хранятся сами сообщения, а индекс -- в отдельном файле
Я и привела кусок из реального MESSAGES.TBB одного из моих ящиков.
За исключением массива NUL-ов в начале файла...
kropotkina-alice вне форума Ответить с цитированием
Старый 31.12.2014, 08:00   #10
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Я и привела кусок из реального MESSAGES.TBB одного из моих ящиков.
И подтвердила что это бинарный файл а не текстовый )
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск и удаление строк в StringList из другово stringlist SmoK777 Общие вопросы Delphi 3 06.08.2012 08:21
Загрузить из файла в массивы/StringList'ы Cocker Общие вопросы Delphi 3 22.01.2011 22:45
WinInet загрузить файл во временной файл , использовать, потом удалить Человек_Борща Работа с сетью в Delphi 5 03.08.2010 13:46
Загрузить файл utf8! SkAndrew Общие вопросы Delphi 4 22.04.2010 17:43
Сохранение содержимого StringList в файл rainbow Общие вопросы Delphi 1 19.11.2008 10:34