Форум: "Сети";
Текущий архив: 2002.06.17;
Скачать: [xml.tar.bz2];
ВнизУважаемые мастера помогите с TWebBrowser. Найти похожие ветки
← →
daos (2002-04-02 05:15) [0]Вот код, но в
Doc.write(buf)
вылазит ошибка run-time, пожалуйста помогите понять, что не так.
Файл я читаю по строкам чтоб его расшифровать, а потом передать в TWebBrowser.
procedure TForm1.Button1Click(Sender: TObject);
Или подскажите другой способ зашиты html файлов. Т.е. в моей прогге стоит TWebBrowser и в нем должны отображаться файлы html, идущие в комплекте, но надо чтоб их некто не смог выдрать и открыть в IE или вставить в свою прогу.
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;
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c