Ошибка скрипта, который должен переходить по ссылке

[BoNaPaRtD]

Сообщение от Alex11223

Для начала узнать где nil.
Такая ошибка ("Access vioation... Read of address 0000...") скорее всего говорит о том, что вы где-то попытались обратиться к объекту по указателю, в котором в этот момент лежит nil.

Как я понял nil в delphi значит отсутствие значения и как же найти его?

[Alex11223]

Сообщение от BoNaPaRtD

Как я понял nil в delphi значит отсутствие значения

https://ru.wikipedia.org/wiki/%D0%A3...D%D1%8B%D1%85)

Сообщение от BoNaPaRtD

как же найти его

Смотреть значения того, к чему вы обращаетесь в этом месте.
WebBrowser1, WebBrowser1.OleObject, WebBrowser1.OleObject.Document, ...

[BoNaPaRtD]

Сообщение от Alex11223

https://ru.wikipedia.org/wiki/%D0%A3...D%D1%8B%D1%85)


Смотреть значения того, к чему вы обращаетесь в этом месте.
WebBrowser1, WebBrowser1.OleObject, WebBrowser1.OleObject.Document, ...

А как посмотреть значения того, к чему я обращаюсь в этом месте?

[Alex11223]

Ну в отладчике же можно как-то. После остановки по брекпоинту либо курсор навести, либо где-то есть кнопка типа "Получить значение выражения" (или в Watch добавить).

Или просто добавить вывод типа

if ... = nil then
  ShowMessage("....."); // или Assert, или raise Exception.Create(".....")

[BoNaPaRtD]

Сообщение от Alex11223

Ну в отладчике же можно как-то. После остановки по брекпоинту либо курсор навести, либо где-то есть кнопка типа "Получить значение выражения" (или в Watch добавить).

Или просто добавить вывод типа

if ... = nil then
  ShowMessage("....."); // или Assert, или raise Exception.Create(".....")

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('www.seosprint.net');

end;

procedure TForm1.Button2Click(Sender: TObject);
var
log:integer;
html_tag:variant;
begin
 html_tag:=WebBrowser1.OleObject.Document.forms.item(0).elements;
 for log :=0 to (html_tag.length-1) do
 begin
   if html_tag.item(log).id='mnu302' then
   html_tag.item(log).click;
   if Assert = nil then
  ShowMessage('Assert'); // или Assert, или raise Exception.Create(".....")

 end;

end;

end.

Вот код, добавил вывод типа, но почему то стало выдавать ошибки и программа вообще не запускается

[Alex11223]

Фигню какую-то добавили, перечитывайте ссылки и сообщения )

[BoNaPaRtD]

Сообщение от Alex11223

Фигню какую-то добавили, перечитывайте ссылки и сообщения )

if ... = nil then
  ShowMessage("....."); // или Assert, или raise Exception.Create(".....")

Куда тогда это вставлять?

[BoNaPaRtD]

Мне кто то будет помогать? Я уже перечитал все эти статьи, нигде нет информации почему возникает такая ошибка. Я уже понял что nill это что то нулевое, которое указывает на указатель и при этом имеет значение 0. А указатель это переменная которая хранит в себе адреса данных. Но решение ошибки где?

[Alex11223]

Так ответил уже, но вы не поняли. Вроде бы ничего сложного или требующего каких-то сверхзнаний в ответах не было.

↓↓↓↓↓↓↓

Сообщение от Alex11223

Смотреть значения того, к чему вы обращаетесь в этом месте.
WebBrowser1, WebBrowser1.OleObject, WebBrowser1.OleObject.Document, ...

Сообщение от Alex11223

Ну в отладчике же можно как-то. После остановки по брекпоинту либо курсор навести, либо где-то есть кнопка типа "Получить значение выражения" (или в Watch добавить).

Или просто добавить вывод типа

if ... = nil then
  ShowMessage("....."); // или Assert, или raise Exception.Create(".....")

Под ... там имелось в виду то, что в предыдущем сообщении.
Для непонятных слов (Assert) есть гугл/документация.

И да, вам никто не обязан помогать )

[BoNaPaRtD]

Сообщение от Alex11223

Так ответил уже, но вы не поняли. Вроде бы ничего сложного или требующего каких-то сверхзнаний в ответах не было.

↓↓↓↓↓↓↓


Под ... там имелось в виду то, что в предыдущем сообщении.
Для непонятных слов (Assert) есть гугл/документация.

И да, вам никто не обязан помогать )

Assert сделан для проверки истинности выражения