| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Уважаемые мастера ;помогите с ;TWebBrowser. [D6, WinME, WinXP]

daos ©   (2002-04-02 05:15:00) 

Вот код, но в Doc.write(buf)вылазит ошибка run-time, пожалуйста помогите понять, что не так.
Файл я читаю по строкам чтоб его расшифровать, а потом передать в TWebBrowser.
procedure TForm1.Button1Click(Sender: TObject);
var
s,buf:string;
f:textFile;
Doc : Variant;
begin
assignfile(f,text.txt");
reset(f);
while not eof(f) do
begin
readln(f,s);
buf:=buf+s;
end;
Doc := WebBrowser1.Document;
Doc.write(buf);
end;Или подскажите другой способ зашиты html файлов. Т.е. в моей прогге стоит TWebBrowser и в нем должны отображаться файлы html, идущие в комплекте, но надо чтоб их некто не смог выдрать и открыть в IE или вставить в свою прогу.

---

daos   (2002-04-07 07:26:00) [1]

Все работает с http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1017982578&n=0
СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!СПАСИБО!

---

kig   (2002-04-05 17:18:00) [2]

daos же написал - сначала надо инициализировать WebBrowser - иначе WebBrowser1.Document будет возвращать nil.

Сходите сюда. Прям специально для Вас :)))

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1017982578&n=0

---

daos   (2002-04-05 04:51:00) [3]

Мастера, помогите !!!!!!!!!

---

daos   (2002-04-04 11:15:00) [4]

> DimNK ©

Вылазит ошибка что
> doc.body.innertext
не подерживается.

---

DimNK   (2002-04-02 08:59:00) [5]

Вместо Doc.write(buf)
doc.body.innertext
но сначала надо загрузить документ,например navigate

---

Наверх