Текущий архив: 2002.06.17;
Скачать: CL | DM;

Вниз

Уважаемые мастера помогите с TWebBrowser.   Найти похожие ветки 

← →
daos   (2002-04-02 05:15) [0]

Вот код, но в 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 или вставить в свою прогу.

---

← →
DimNK   (2002-04-02 08:59) [1]

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

---

← →
daos   (2002-04-04 11:15) [2]

> DimNK ©

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

---

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

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

---

← →
kig   (2002-04-05 17:18) [4]

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

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

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

---

← →
daos   (2002-04-07 07:26) [5]

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

---

Страницы: 1 вся ветка

Текущий архив: 2002.06.17;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.005 c