Показать сообщение отдельно
  #1  
Старый 07.04.2012, 13:22
Аватар для Admin
Admin Admin вне форума
Администратор
 
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,564
Версия 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.

Удачи!
Ответить с цитированием