VPF::Не разберусь во вставкой кода в TWebBrowsr

eViperEA

Дата 12.6.2008, 08:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 13.3.2008

Репутация: нет
Всего: нет

Всем привет!
Не могу разобраться со вставкой HTML кода в TWebBrowser
вот то что я пишу ...

Код


procedure TForm2.Button1Click(Sender: TObject);
var
  v: OleVariant;
  HTMLDocument: IHTMLDocument2;
  HTMLString : string;
begin
 HTMLString := 'Html'+'<BODY>'
                //Здесь код...

                 +'</BODY></Html>';
  HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
  v := VarArrayCreate([0, 0], varVariant);
  v[0] := HTMLString;
  HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
  HTMLDocument.Close;

end;

Сверился с DRKB 3.. вроде все так написал... только все равно программа не хочет работать...
в чем может быть проблема?
Delphi 2007 ... упорно указывает на строчку HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
вот то что прописано в uses
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw, MSHTML, activeX;

Это сообщение отредактировал(а) eViperEA - 13.6.2008, 20:31

December

Дата 12.6.2008, 10:42 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 12
Всего: 57

1. HTMLString := 'Html'+'<BODY>' - чё хтмл просто текстом, а не тэгом?
2. Не хочет работать или не хочет компилироваться? Детали в студию.

--------------------

Для друзей с винграда - скидки на разработку сайтов

eViperEA

Дата 13.6.2008, 11:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 13.3.2008

Репутация: нет
Всего: нет

1. ой) Извиняюсь..)
Просто дописывал в браузере... там <html> должно быть)
2. Запускаю программу в тестовом режиме...(с Debugger'ом) , когда пытаюсь совершить данную выше процедуру то дебагер пишет ошибку и подсвечивает красным строчку HTMLDocument.Write(PSafeArray(TVarData(v).VArray));. Даже не представлю что ему может в ней не нравиться )

December

Дата 13.6.2008, 13:16 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 12
Всего: 57

Цитата(eViperEA @ 13.6.2008, 11:06)

когда пытаюсь совершить данную выше процедуру то дебагер пишет ошибку

Текст ошибки?

--------------------

Для друзей с винграда - скидки на разработку сайтов

eViperEA

Дата 13.6.2008, 13:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 13.3.2008

Репутация: нет
Всего: нет

Project Project2.exe raised excention class EAccassViolation with message 'Access violation at address 0046841E in module 'Project2.exe'. Read of address 00000000'.
Это всплывает в окошке showmessage
First chance exception at $75F9F35F. Exception class EAccessViolation with message 'Access violation at address 0046841E in module 'Project2.exe'. Read of address 00000000'. Process Project2.exe (9440)
это пишет мне Debugger.

MetalFan

Дата 13.6.2008, 20:01 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 3
Всего: 128

HTMLDocument <> nil ?

Добавлено через 14 минут и 13 секунд
кстати, у меня на D2007 прекрасно данный код отрабатывает. правда если сначала сделать Navigate('about:blank');

--------------------

There are always someone smarter than you...

eViperEA

Дата 13.6.2008, 20:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 13.3.2008

Репутация: нет
Всего: нет

Спасибо большое !!
добавил Navigate('about:blank') перед кодом и все заработало..

MetalFan

Дата 13.6.2008, 22:33 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 3
Всего: 128

а почему не работало, понял?

--------------------

There are always someone smarter than you...

eViperEA

Дата 14.6.2008, 06:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 13.3.2008

Репутация: нет
Всего: нет

Ну могу предположить что сей текст не вставлялся из за того что Twebbrawser (даже не знаю как выразиться) был неактивен... А эта функция вставляет код в него.. следовательно если некуда вставлять то появляется ошибка... Так я понял... smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »