Компонент TWebBrowser в Delphi и работа с ресурами

[bibika]

Проблема в том что не могу разобраться с использованием ресурсов. В TWebBrowser отображаются страницы с папки на диске, этих страниц много, все они между собой связанные ссылками. Очень не хотелось бы давать пользователям доступ к html страничкам, поэтому засунуть их в rc файлы как мне кажется было бы хорошим решением. Как их засунуть понятно, но как их отобразить совсем не понятно. Подскажите уважаемые что делать, желательно с простыми примерами.

Спасибо

[Stilet]

Очень не хотелось бы давать пользователям доступ к html страничкам

Тоесть? А закрыть папку с ХТМЛшками безопасностью операционки (я так дела раньше) не хочешь? Да и потом я не понимаю как пользователь допрет откуда ХТМЛшки загружаются? ты что ему показываешь путь или они тупо лежат рядом с прогой?

[bibika]

ты что ему показываешь путь или они тупо лежат рядом с прогой?

Файлы тупо лежат в отдельной папке.
То есть такая структура:
program_name.exe
/sources/index.html и тд

А закрыть папку с ХТМЛшками безопасностью операционки

А как я закрою папку на чужом компе?

[Stilet]

А как я закрою папку на чужом компе?

А-а-а. Вот это уже совсем другое дело.
Были примеры вытаскивания из ресурсов типа

var res:TResourceStream;
begin
 try
   res:=TResourceStream.Create(HInstance,'Страница такая-то',RT_RCDATA);
    res.SaveToFile(uf);
   res.Free;
   WebBrowser.nafigate(uf);
 except

 end;
end;

Не ручаюсь за мегаправильность, но я именно так из ресурсов вытаскиваю.

[bibika]

Были примеры вытаскивания из ресурсов типа

Спасибо поищу примеры на сайте.

Я тут подумал, а есть возможность засунуть все в один exe файл, что б не плодить кучу rc файлов ? На просторах интернета встречал программу что-то типа Web Exe которая все пихает в 1 файл. Полученый файл определяется как проект Дельфи.

[bibika]

Я тут подумал, а есть возможность засунуть все в один exe файл, что б не плодить кучу rc файлов ? На просторах интернета встречал программу что-то типа Web Exe которая все пихает в 1 файл. Полученый файл определяется как проект Дельфи.

[Stilet]

Ну да. Засунуть в ресурсы можно что угодно, но подумай сам - вся эта клоака будет загружаться в память полностью. Прикинь теперь у тебя мегасайт на 2000 страниц где-то под 100Мб общим весом - и вся эта океания польется в память.
Так никто не делает. Уж лучше кинуть в BLOB поля базы данной и загружать из нее.

[bibika]

Да Вы правы. Будем думать.

[bibika]

Уважаемые, продолжаю спрашивать помогите советом. Хочу подключить файл ресурсов по этой инструкции:

Вопрос: Как можно использовать протокол "res:"?

Ответ: Протокол "res:" позволяет просмотреть HTML файл, сохранённый как ресурс. Более подробная информация доступна на Microsoft site:

procedure TForm1.LoadHTMLResource;
var
Flags, TargetFrameName, PostData, Headers: OleVariant;
begin
WebBrowser1.Navigate('res://' + Application.ExeName + '/myhtml',
Flags, TargetFrameName, PostData, Headers)
end;

Создайте файл ресурса (*.rc) со следующими строками и откомпилируйте его при помощи brcc32.exe:

MYHTML 23 ".\html\myhtml.htm"

MOREHTML 23 ".\html\morehtml.htm"

Отредактируйте файл проекта, чтобы он выглядел примерно так:

{$R *.RES}
{$R HTML.RES} //где html.rc будет скомпилирован в html.res

Не могу понять что такое Application.ExeName, и вот это Flags, TargetFrameName, PostData, Headers.

Создал файл res. Вот его структура:

1HTML 23 ".\source\1.htm"
2HTML 23 ".\source\2.htm"

и в коде прописываю так

procedure TForm1.btn1Click(Sender: TObject);
var
Flags, TargetFrameName, PostData, Headers: OleVariant;

begin
WebBrowser.Navigate(('res://' + 'Project2' + '/1HTML',
                               Flags, TargetFrameName, PostData, Headers)
);
end;

Компилятор бросается ошибками:

[Error] test2.pas(86): ')' expected but ',' found
[Error] test2.pas(87): There is no overloaded version of 'Navigate' that can be called with these arguments

подскажите что не так сделано, где моя ошибка.

Спасибо