ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Просмотр PDF из Recources
18 сообщений из 18, страница 1 из 1
Просмотр PDF из Recources
    #39657038
FOGOT-BAstA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FOGOT-BAstA
Участник
Добрый день! Такая задачка: нужно по нажатию кнопки выводить PDF-файл для просмотра из ресурсов проекта. Для просмотра установил ActiveX Acrobat Reader. Пытался с помощью LoadFromResources - он в NativeUInt, а путь AcroPDF требует в WideString.
Помогите получить файл из ресурсов! Заранее спасибо.
...
Рейтинг: 0 / 0
07.06.2018, 08:52
| Ответить | Цитировать | Написать  
Просмотр PDF из Recources
    #39657050
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Зачем пихать PDF в ресурсы ?
...
Рейтинг: 0 / 0
07.06.2018, 09:14
| Ответить | Цитировать | Написать  
Просмотр PDF из Recources
    #39657059
ziv-2014
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ziv-2014
Участник
FOGOT-BAstAДобрый день! Такая задачка: нужно по нажатию кнопки выводить PDF-файл для просмотра из ресурсов проекта. Для просмотра установил ActiveX Acrobat Reader. Пытался с помощью LoadFromResources - он в NativeUInt, а путь AcroPDF требует в WideString.
Помогите получить файл из ресурсов! Заранее спасибо.
NativeUInt - Так ведь ему нужно хендл на ресурс закинуть.
...
Рейтинг: 0 / 0
07.06.2018, 09:30
| Ответить | Цитировать | Написать  
Просмотр PDF из Recources
    #39657235
FOGOT-BAstA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FOGOT-BAstA
Участник
DimaBrЗачем пихать PDF в ресурсы ?
Чтобы не привязываться к папке. Это будет справка на 3 страницы для формы.
Ziv-2014NativeUInt - Так ведь ему нужно хендл на ресурс закинуть.
Вообще в первый раз сталкиваюсь с этим и не знаю как работать с ним...
...
Рейтинг: 0 / 0
07.06.2018, 11:56
| Ответить | Цитировать | Написать  
Просмотр PDF из Recources
    #39657277
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
FOGOT-BAstAЭто будет справка на 3 страницы для формы.
Зачем PDF ?
...
Рейтинг: 0 / 0
07.06.2018, 12:25
| Ответить | Цитировать | Написать  
Просмотр PDF из Recources
    #39657286
Фотография Dimonka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimonka
Участник
DimaBrFOGOT-BAstAЭто будет справка на 3 страницы для формы.
Зачем PDF ? Зачем справка для формы? :-) Справка для приложения - и не в PDF, а в URL. В 21-ом веке-то живём!
Заодно рекламу свою повесишь, а может и чужую. :-)
...
Рейтинг: 0 / 0
07.06.2018, 12:32
| Ответить | Цитировать | Написать  
Просмотр PDF из Recources
    #39657295
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Dimonka Зачем справка для формы? :-) Справка для приложения - и не в PDF, а в URL. В 21-ом веке-то живём!
Заодно рекламу свою повесишь, а может и чужую. :-)
Ты с какой планеты ?
...
Рейтинг: 0 / 0
07.06.2018, 12:37
| Ответить | Цитировать | Написать  
Просмотр PDF из Recources
    #39657308
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
FOGOT-BAstAЧтобы не привязываться к папке.
Ты неспособен написать одну строчку кода, чтобы справка всегда открывалась из каталога
приложения где бы то ни было? Учись, пацан:
Код: sql
1.
Application.HelpFile := ExtractFilePath(Application.ExeName)+'MyAppHelp.chm';



FOGOT-BAstAЭто будет справка на 3 страницы для формы.

Штатный Html Help тебя чем не устраивает?
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
07.06.2018, 12:46
| Ответить | Цитировать | Написать  
Просмотр PDF из Recources
    #39657316
ziv-2014
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ziv-2014
Участник
FOGOT-BAstA,
Ну вот по аналогии с этим
...
Рейтинг: 0 / 0
07.06.2018, 12:58
| Ответить | Цитировать | Написать  
Просмотр PDF из Recources
    #39657332
Leonid Kudryavtsev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Leonid Kudryavtsev
Участник
AFAIK

1. Если PDF хранить НЕ как чистый PDF-файл, а как OLE Object то проблем создать объект из набора байт (без записи на диск), быть особых не должно.

2. Насколько помню, Adobe ActiveX так же поддерживает IStream ( https://msdn.microsoft.com/en-us/library/windows/desktop/aa380034(v=vs.85).aspx) т.ч. можно IUnknown преобразовать в IStream и попытаться через него сохранять/загружать (не помню, сохраняет ли при этом ActiveX сам документ, тут шансы 50% vs 50%, аналогично встречи динозавра на улице)

В общем, сделать то можно, но стоит ли оно таких усилий ?
...
Рейтинг: 0 / 0
07.06.2018, 13:19
| Ответить | Цитировать | Написать  
Просмотр PDF из Recources
    #39657403
Фотография JayDi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JayDi
Участник
Сохранить файл во временный и оттуда уже грузить.
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
uses
  SysUtils, Classes, Windows;

var
  res: TResourceStream;
begin
  res := TResourceStream.Create(HInstance, PChar('PDF_FILE'), RT_RCDATA);
  try
    res.SaveToFile('temp file');
  finally
    FreeAndNil(res);
  end;
end;



export.rc
Код: pascal
1.
PDF_FILE RCDATA "res\PDF_FILE.pdf"



command line
Код: pascal
1.
cgrc.exe "export.rc"



project.dpr
Код: pascal
1.
{$R export.RES}
...
Рейтинг: 0 / 0
07.06.2018, 14:22
| Ответить | Цитировать | Написать  
Просмотр PDF из Recources
    #39657410
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
JaDiСохранить файл во временный

У тебя получился не временный.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
07.06.2018, 14:26
| Ответить | Цитировать | Написать  
Просмотр PDF из Recources
    #39657416
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
1. Сначала нужно создать PDF
2. Потом запихнуть в ресурсы
3. Потом программа будет извлекать (куда-то)
4. Потом нужно как то это показать

И всё это ради трёх страниц справки. Может проще ОТЧЁТ в Фасте ???
...
Рейтинг: 0 / 0
07.06.2018, 14:31
| Ответить | Цитировать | Написать  
Просмотр PDF из Recources
    #39657417
Фотография JayDi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JayDi
Участник
Dimitry Sibiryakov,

Код: pascal
1.
2.
3.
4.
uses
  IOUtils;

tempFile := TPath.GetTempFileName + '.pdf';
...
Рейтинг: 0 / 0
07.06.2018, 14:34
| Ответить | Цитировать | Написать  
Просмотр PDF из Recources
    #39657434
под ван
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
под ван
Гость
Dim aBr
Dim onka
Dim itry Sibiryakov

Меня терзают смутные сомнения...
...
Рейтинг: 0 / 0
07.06.2018, 14:47
| Ответить | Цитировать | Написать  
Просмотр PDF из Recources
    #39657470
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
JaDitempFile := TPath.GetTempFileName +'.pdf';

Ага, а автоматически удалять при закрытии и максимально кэшировать в памяти - излишества,
чайникам недоступные.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
07.06.2018, 15:23
| Ответить | Цитировать | Написать  
Просмотр PDF из Recources
    #39657855
Фотография JayDi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JayDi
Участник
Dimitry SibiryakovJaDitempFile := TPath.GetTempFileName +'.pdf';

Ага, а автоматически удалять при закрытии и максимально кэшировать в памяти - излишества,
чайникам недоступные.

Старперы любят усложнять в разы свои программы, даже когда в этом нет необходимости.
...
Рейтинг: 0 / 0
07.06.2018, 19:16
| Ответить | Цитировать | Написать  
Просмотр PDF из Recources
    #39657865
чччД__
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чччД__
Гость
JaDiDimitry Sibiryakov,

Код: pascal
1.
2.
3.
4.
uses
  IOUtils;

tempFile := TPath.GetTempFileName + '.pdf';


И с хера ли файл будет "временным"? Или ты собственную терминологию сочиняешь?
...
Рейтинг: 0 / 0
07.06.2018, 19:21
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Просмотр PDF из Recources
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39657295&tid=2040788]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 176ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 217ms
total:  486ms
созд. / загр.: 486ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]