Парсинг или часть странички в webbrowser? Как лучше?

[Fahman]

Проблемка только когда я создаю такой же код в form2 Вроде кнопка есть все есть а ошибка такая
[Error] Unit2.pas(44): Undeclared identifier: 'ASender'

Вот сам код

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw;

type
  TForm2 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure WebBrowser1BeforeNavigate2(Sender: TObject;
      const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
      Headers: OleVariant; var Cancel: WordBool);
    procedure WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure WebBrowser1NavigateComplete2(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  CurDispatch: IDispatch;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin
  WebBrowser1.Navigate('http://finviz.com/insidertrading.ashx?tc=2');
end;

procedure TForm2.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin (ASender as TWebBrowser)
  .hide;
end;
end;

procedure TForm2.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  DocA: IHTMLElementCollection;
  doc: IHTMLDocument2;
  Element: IHTMLElement;
  i: integer;
  fl: boolean;
begin
  if (pDisp = CurDispatch) then
  begin
    doc := ((pDisp as IWebBrowser).Document as IHTMLDocument2);
    DocA := doc.body.all as IHTMLElementCollection;
    i := 0;
    fl := true;
    while (i < DocA.length) and fl do
    begin
      Element := DocA.item(i, 0) as IHTMLElement;
      if Element.className = 'body-table' then
      begin
        doc.body.innerHTML :=
          '<span class="time-text" id="time"></span>' + Element.outerHTML;
        fl := false;
      end;
      inc(i);
    end; (ASender as TWebBrowser)
    .show;
    CurDispatch := nil;
  end;
end;
end;

procedure TForm2.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
if CurDispatch = nil then
    CurDispatch := pDisp;
end;

end.

Думаю если кто нить ответит) То это будет счастье) и я уже не стану задавать много вопросов)

[Stilet]

Во-первых: Читаем правила форума по поводу оформления кода в постах. Для этого есть спецтег формируемый кнопкой # в панели инструментов поста.

Во-вторых: Очепятка. не ASender а Sender нужно писать. Вот тебе для прочистки моска: http://www.delphi-manual.ru/sender.php

[Fahman]

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

Во-первых: Читаем правила форума по поводу оформления кода в постах. Для этого есть спецтег формируемый кнопкой # в панели инструментов поста.

Во-вторых: Очепятка. не ASender а Sender нужно писать. Вот тебе для прочистки моска: http://www.delphi-manual.ru/sender.php

Хорошо, спасибо.....

Не знал)