Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Разное > Исходники и статьи
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 07.04.2012, 13:22
Аватар для Admin
Admin Admin вне форума
Администратор
 
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,560
Версия Delphi: Delphi 7
Репутация: выкл
По умолчанию [ Статья ] - Просмотр DJVU файлов средствами Delphi

Автор: mahab-22
E-mail: mahab-22@mail.ru

Цитата:
На момент написания статьи, компонентов работы с файлами DJVU для Delphi мною найдено не было. Есть официальный ресурс владельца, который предлагает SDK с исходными кодами на языке СИ, но в этом случае необходимо было бы потратить уйму времени на трансляцию исходников на Паскаль, чтобы решить всего лишь одну маленькую задачку. Нет мы пойдем более простым путем.
На компьютере установлена windows seven максимальная. Используется IDE Delphi 7.

Версия плагина DJVU для браузера - Lizardtech 6.1 (Его можно взять по адресу http://djvu-info.ru/prog/DJVUCNTL_61_EN.EXE).

1) Устанавливаем плагин обычным способом, следуя инструкциям программы-установщика.
2) Запускаем Internet Explorer, через меню «файл» открываем любой DJVU файл и убеждаемся в том, что плагин работает.
3) Запускаем IDE, кладем на форму компоненты: Twebbrouser,2 компонета Tbutton и TOpenDialog.
4) Переходим в инспектор объектов компонента TOpenDialog, и в поле «Filter» пишем: «Файлы DJVU|*.djvu».
5) Создаем обработчик события нажатия кнопки Button1 и пишем в нем:
If not OpenDialog1.Execute then exit;
WebBrowser1.Navigate(OpenDialog1.FileName);
6) В обработчике нажатия Button2 :
WebBrowser1.Navigate('about:blank');

Это очистит компонент TWebBrowser.

Удачи!
Ответить с цитированием
  #2  
Старый 07.04.2012, 15:29
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Оригинально...
Ответить с цитированием
  #3  
Старый 07.04.2012, 16:15
Аватар для Admin
Admin Admin вне форума
Администратор
 
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,560
Версия Delphi: Delphi 7
Репутация: выкл
По умолчанию

Цитата:
Сообщение от M.A.D.M.A.N.
Оригинально...
С другой стороны лучше чем ничего.
Ответить с цитированием
  #4  
Старый 07.04.2012, 19:44
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,003
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Цитата:
Сообщение от Admin
С другой стороны лучше чем ничего.

Мдя... нет пределов... извращений.
Не думаю, что DJVU такой уж сложный формат. Нет что бы просто разобрать его. Хотя тут может ситуация как с неуловимым Джо?..
Ответить с цитированием
  #5  
Старый 07.04.2012, 22:23
Аватар для Vayrus
Vayrus Vayrus вне форума
Исполняемый Ретровирус
 
Регистрация: 09.08.2008
Адрес: Umbrella Corporation
Сообщения: 743
Репутация: 1293
По умолчанию

Цитата:
Сообщение от Admin
С другой стороны лучше чем ничего.

Уже "двести" лет так делаю, странно что это умозаключение назвали "статьей", неужели никто не догадывался...
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 13:13.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter