insertAdjacentHTML - Общие вопросы Delphi

WennY · 31.07.2011, 21:35

Выадет Acces violation при попытке подредактить контент. Что не так сделал?

PHP код:


			
unit proga;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, OleCtrls, SHDocVw, Buttons, StdCtrls, HTTPApp, MSHTML;



type

  TForm1 = class(TForm)

    WebBrowser1: TWebBrowser;

    BitBtn1: TBitBtn;



    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;





var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);

var

  Element: IHTMLElement;



begin



  WebBrowser1.Navigate('about:<html><body>test</body></html>');

  Element.insertAdjacentHTML('BeforeBegin', 'test');



end;



end.

буду очень благодарен, спасибо

volod3000 · 31.07.2011, 21:53

Почему возникает ошибка Access Violation

WennY · 31.07.2011, 21:55

А не могли бы вы мне подсказать конкретно по моему вопросу? Я знаю примерно, что означает эта ошибка, но чет не могу понять, что я сделал не так в примере.. Что я там не объявил?

mss · 31.07.2011, 23:19

Цитата:

Что я там не объявил?

Element.insertAdjacentHTML('BeforeB egin', 'test'); // чему, по-твоему, равно значение переменной Element на момент выполнения этой строки ?

WennY · 31.07.2011, 23:26

А хз =) А чо тада надо засунуть?

volod3000 · 31.07.2011, 23:38

Вот почитайте, думаю всё поймете :

http://bvv36.ya.ru/replies.xml?item_no=105

WennY · 31.07.2011, 23:43

Читал, подставляю - та же ошибка

volod3000 · 01.08.2011, 00:00

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
    DocA: HTMLDocument;
    Element: HTMLBody;

begin

        DocA:= WebBrowser1.Document as HTMLDocument;
        Element:= DocA.body as HTMLBody;
        Element.insertAdjacentHTML('beforeEnd', 'Hello ');

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
     WebBrowser1.Navigate('about:<html><body>test</body></html>');
end;

afterBegin – вставляет строку text/html после открывающего тега элемента;
beforeBegin – вставляет строку text/html перед открывающим тегом элемента;
afterEnd - вставляет строку text/html после закрывающего тега элемента;
beforeEnd - вставляет строку text/html перед закрывающим тегом элемента;

WennY · 01.08.2011, 00:45

P.S. Это далеко не первый мой язык, я уже этот элемент долбаный объявлял как мог, и из примеров из всех вытаскивал, одна и та же херь в итоге: ошибко.

volod3000, спасибо большое, поковыряюсь

volod3000 · 01.08.2011, 01:32

WennY

Вы попробовали, код выше (рабочий на 100%, проверил на Delphi XE)

31.07.2011, 21:35	#1
WennY Форумчанин Регистрация: 17.01.2008 Сообщений: 236	insertAdjacentHTML Выадет Acces violation при попытке подредактить контент. Что не так сделал? PHP код: unit proga; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, Buttons, StdCtrls, HTTPApp, MSHTML; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; BitBtn1: TBitBtn; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R .dfm} procedure TForm1.FormCreate(Sender: TObject); var Element: IHTMLElement; begin WebBrowser1.Navigate('about:<html><body>test</body></html>'); Element.insertAdjacentHTML('BeforeBegin', 'test'); end; end. буду очень благодарен, спасибо Последний раз редактировалось WennY; 31.07.2011 в 21:38.*

31.07.2011, 21:53	#2
volod3000 Форумчанин Регистрация: 18.12.2008 Сообщений: 266	Почему возникает ошибка Access Violation Мало открыть человеку глаза, большинство еще просит указать дорогу и ждет волшебного пенделя.

31.07.2011, 23:38	#6
volod3000 Форумчанин Регистрация: 18.12.2008 Сообщений: 266	Вот почитайте, думаю всё поймете : http://bvv36.ya.ru/replies.xml?item_no=105 Мало открыть человеку глаза, большинство еще просит указать дорогу и ждет волшебного пенделя.

01.08.2011, 00:00	#8
volod3000 Форумчанин Регистрация: 18.12.2008 Сообщений: 266	Код: `procedure TForm1.Button1Click(Sender: TObject); var DocA: HTMLDocument; Element: HTMLBody; begin DocA:= WebBrowser1.Document as HTMLDocument; Element:= DocA.body as HTMLBody; Element.insertAdjacentHTML('beforeEnd', 'Hello '); end; procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate('about:<html><body>test</body></html>'); end;` afterBegin – вставляет строку text/html после открывающего тега элемента; beforeBegin – вставляет строку text/html перед открывающим тегом элемента; afterEnd - вставляет строку text/html после закрывающего тега элемента; beforeEnd - вставляет строку text/html перед закрывающим тегом элемента; Мало открыть человеку глаза, большинство еще просит указать дорогу и ждет волшебного пенделя.

01.08.2011, 00:45	#9
WennY Форумчанин Регистрация: 17.01.2008 Сообщений: 236	P.S. Это далеко не первый мой язык, я уже этот элемент долбаный объявлял как мог, и из примеров из всех вытаскивал, одна и та же херь в итоге: ошибко. volod3000, спасибо большое, поковыряюсь Последний раз редактировалось dr.Chas; 01.08.2011 в 08:29.

31.07.2011, 21:55	#3
WennY Форумчанин Регистрация: 17.01.2008 Сообщений: 236	А не могли бы вы мне подсказать конкретно по моему вопросу? Я знаю примерно, что означает эта ошибка, но чет не могу понять, что я сделал не так в примере.. Что я там не объявил?

31.07.2011, 23:26	#5
WennY Форумчанин Регистрация: 17.01.2008 Сообщений: 236	А хз =) А чо тада надо засунуть?

31.07.2011, 23:43	#7
WennY Форумчанин Регистрация: 17.01.2008 Сообщений: 236	Читал, подставляю - та же ошибка

01.08.2011, 01:32	#10
volod3000 Форумчанин Регистрация: 18.12.2008 Сообщений: 266	WennY Вы попробовали, код выше (рабочий на 100%, проверил на Delphi XE) Мало открыть человеку глаза, большинство еще просит указать дорогу и ждет волшебного пенделя.