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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 31.10.2016, 14:07   #1
Arthasmenetil
Пользователь
 
Регистрация: 31.10.2016
Сообщений: 17
По умолчанию открыть не известный бинарный файл

Как открыть не известный бинарный файл? чтобы

отобразить на экране

в delphi

Последний раз редактировалось Alex11223; 31.10.2016 в 14:18.
Arthasmenetil вне форума
Старый 31.10.2016, 14:20   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

отобразить как набор байт?
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума
Старый 31.10.2016, 14:22   #3
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,499
По умолчанию

Цитата:
Сообщение от Пепел Феникса Посмотреть сообщение
отобразить как набор байт?
.. или как набор кракозябр ?
Изображения
Тип файла: jpg krakozar.jpg (95.9 Кб, 148 просмотров)
type_Oleg вне форума
Старый 31.10.2016, 14:22   #4
Replicant
Форумчанин
 
Аватар для Replicant
 
Регистрация: 17.08.2009
Сообщений: 139
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
const
  Fn = 'file.dat';
var
  F : File;
  S, FileName : String;
  Len : Integer;
begin
  //Предположим, файл лежит в той же папке, где расположена программа.
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
  AssignFile(F, FileName);
  Reset(F, 1);  
  Len := FileSize(F);
  SetLength(S, Len);
  BlockRead(F, Pointer(S)^, Len);  
  CloseFile(F); 
  Memo1.Lines.Add(S);
end;

Последний раз редактировалось Replicant; 31.10.2016 в 14:24.
Replicant вне форума
Старый 31.10.2016, 14:52   #5
Arthasmenetil
Пользователь
 
Регистрация: 31.10.2016
Сообщений: 17
По умолчанию

Arthasmenetil вне форума
Старый 31.10.2016, 14:57   #6
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

ну так почитайте что такое ParamStr хоть.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума
Старый 31.10.2016, 15:04   #7
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Сообщение от Пепел Феникса
ну так почитайте что такое ParamStr хоть.
это не поможет.
ибо у него просто напросто нет файла с именем 'file.dat', который расположен в том же каталоге, что и программа.
хотя об этом в комментариях написано:
Цитата:
Код:
 //Предположим, файл лежит в той же папке, где расположена программа.
Serge_Bliznykov вне форума
Старый 31.10.2016, 15:16   #8
Arthasmenetil
Пользователь
 
Регистрация: 31.10.2016
Сообщений: 17
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
это не поможет.
ибо у него просто напросто нет файла с именем 'file.dat', который расположен в том же каталоге, что и программа.
хотя об этом в комментариях написано:
у меня действительно нет этого файла file.dat но константу я изменил в соответствии с тем файлом который нужен.
Arthasmenetil вне форума
Старый 31.10.2016, 15:28   #9
Arthasmenetil
Пользователь
 
Регистрация: 31.10.2016
Сообщений: 17
По умолчанию Как открыть бинарный файл который содержит таблицы и текст?

Как открыть бинарный файл который содержит таблицы и текст в Delphi 10 Seattle?
вот что получается если открывать akelpad:
Изображения
Тип файла: jpg 2.jpg (34.8 Кб, 146 просмотров)

Последний раз редактировалось Arthasmenetil; 31.10.2016 в 15:44.
Arthasmenetil вне форума
Старый 31.10.2016, 15:42   #10
Replicant
Форумчанин
 
Аватар для Replicant
 
Регистрация: 17.08.2009
Сообщений: 139
По умолчанию

Цитата:
Сообщение от Arthasmenetil Посмотреть сообщение
у меня действительно нет этого файла file.dat но константу я изменил в соответствии с тем файлом который нужен.
file.dat - это файл который вам надо прочесть, либо назовите свой фал file.dat, либо в коде вместо file.dat напишите имя своего файла.
Replicant вне форума
Закрытая тема


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Бинарный файл lelik346 Софт 7 04.12.2014 09:13
C++, задача на бинарный файл (Бинарный файл состоит из записей по 5 бит) zaitsevmishka Помощь студентам 3 16.05.2014 21:39
Открыть файл, разделить ячейку на 1000, сохранить файл, закрыть файл. Как? Ник Харди Microsoft Office Excel 7 30.01.2012 18:47
Бинарный файл nXs Общие вопросы Delphi 4 26.03.2011 11:40