Компиляция HTML в exe-файл

[jungle]

Встречали, наверное, электронные книги в формате .exe?
Так вот, как это делают разные проги (которые еще и не бесплатны), может кто знает?

[russian-stalker]

Ну дык есть компонент - TWebBrowser и в него можно загрузить текст.

[jungle]

Вот у меня 50 .htm файлов, я могу их загружать в прогу с TWebBrowser, а как сделать один .exe файл?

[Alex Cones]

Можно динамически создавать столько браузеров, сколько у тебя файлов + даже еще один для вывода списков файлов или содержания, при выборе пункта - либо грузить из памяти текст страницы и вставлять в тот же WEBBr либо просто поменять координаты или видимость компонента, на который будет ссылаться данная ссылка. Перед упаковкой в exe напиши алгоритм, который будет pos`ить все ссылки с адресов в htm и если существует файл с таким именем на локальном компьютере (в папке с htm) - то он будет создавать для него страницу.

[*PB*]

А что дельфи не позволяет сохранять произвольные файлы внутри исполняемого файла?
Что браузер дельфи не позволяет загружать Html не из файла, а из памяти?

Если это возможно, то в чём проблема? Просто помещаем странички в исполняемый файл и отлавливаем клики по ссылкам в браузере, анализируем ссылку и исходя из этого берём страничку из исполняемого файла, получаем из неё Html код и загружаем в браузер. В этом случае нет необходимости сохранять страничу на диск и "скармливать" её браузеру - можно через память загружать.

Дельфи незнаю, поэтому привозу пример на бейсике Думаю что если на бейсике это делается без напряга, то в дельфях тоже возможно.

Вот код на бейсике

; Пример электронного учебника.
; Компилятор PureBasic

Procedure NavigationCallback(Gadget, Url$) ; В этой процедуре перехватываем клики в браузере-навигаторе.
  If Url$<>""
    Url$=LCase(Url$)
    pos=FindString(Url$, "about:blank",1)
    If pos>0
      Url$=Right(Url$,Len(Url$)-pos-10)
    EndIf
    
    Select Url$ ; Узнаём какую страничку загрузить из памяти в браузер
        Case "ch1.html"
           SetGadgetItemText(1,#PB_Web_HtmlCode,PeekS(?ch1, ?ch1End-?ch1))
        Case "ch2.html"
           SetGadgetItemText(1,#PB_Web_HtmlCode,PeekS(?ch2, ?ch2End-?ch2))
        Case "ch3.html"
           SetGadgetItemText(1,#PB_Web_HtmlCode,PeekS(?ch3, ?ch3End-?ch3))
        Case "ch4.html"
           SetGadgetItemText(1,#PB_Web_HtmlCode,PeekS(?ch4, ?ch4End-?ch4))
        Case "ch5.html"
           SetGadgetItemText(1,#PB_Web_HtmlCode,PeekS(?ch5, ?ch5End-?ch5))
        Case "ch6.html"
           SetGadgetItemText(1,#PB_Web_HtmlCode,PeekS(?ch6, ?ch6End-?ch6))
    EndSelect
    
  EndIf
  ProcedureReturn 0 ; Запрет открытия ссылки браузером
EndProcedure
  
  ; Открываем окно
 If OpenWindow(0, 0, 0, 800, 500, "WebGadget", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered|#PB_Window_Invisible)
    WebGadget(0, 10, 10, 150, 480, "")    ; Браузер-навигатор
    SetGadgetItemText(0,#PB_Web_HtmlCode,PeekS(?h, ?hEnd-?h))  ; Загрузка из памяти странички навигации
    SetGadgetAttribute(0,#PB_Web_NavigationCallback,@NavigationCallback()) ; Установка процедуры-перехватчика кликов по ссылкам
    WebGadget(1, 180, 10, 780-180, 480, "") ; Браузер, отображающий выбираемые странички
    SetGadgetItemText(1,#PB_Web_HtmlCode,PeekS(?ch1, ?ch1End-?ch1)) ; Загрузка из памяти начальной странички
    HideWindow(0,0) ; Отображение окна
    
    Repeat ; Это главный цикл прогаммы - обработчик событий. Мы отслеживаем только закрытие окна
    Until WaitWindowEvent() = #PB_Event_CloseWindow
 
  EndIf
End ; Типа всё, программа завершает работу
  
  
 ; Вот этот код при компиляции загружает файлы в исполняемый файл.
 ; Доступ к файлам как к памяти получаем с помощью меток
 DataSection
  h:
    IncludeBinary "h.html"
  hEnd:
  
  ch1:
    IncludeBinary "ch1.html"
  ch1End:
  
  ch2:
    IncludeBinary "ch2.html"
  ch2End:
  
  ch3:
    IncludeBinary "ch3.html"
  ch3End:
  
  ch4:
    IncludeBinary "ch4.html"
  ch4End:
 
  ch5:
    IncludeBinary "ch5.html"
  ch5End:
  
  ch6:
    IncludeBinary "ch6.html"
  ch6End:
 EndDataSection

[Пепел Феникса]

все это делается без проблем, вот статья которая поможет http://www.delphiworld.narod.ru/base...elphi_app.html
(уже который раз кидаю её)

[GIO]

А как сделать конвертор из группы html-страниц в exe-шник?
Как программно добавить в ресурс html-страницу не имея утилиты для создания RES-файлов.

[apromix]

Может лучше все завернуть в MoleBox?

[Swarog]

у меня вот есть один примерчик, косяков в нем много, бросил не стал доделавать так как пропала актуальность.

программа состоит из сборщика всех файлов из определенной папки в один файл, после чего это файл цепляется к концу просмотрщика, при этом файлы еще шифруются (хреновенько но сойдет)

просмотрщик использует компонент THTMLViewer (на просторах интернета можно найти), при загрузке смотрит что к нему сзади прицеплено, если архив то начинает читать и вроде загружает страницу index.html, ну а дальше по требованию загружаем остальные страницы, используются только потоки в памяти, на диск ни чего не сбрасывается. При чтении происходит расшифровка.

[GIO]

То apromix: это че такое? компонент?