Парсер для результатов запроса

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw, jsWebbrowser;
 
type
  TForm1 = class(TForm)
    web: TWebBrowser;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    Button2: TButton;
    ListBox1: TListBox;
    Label2: TLabel;
    Label3: TLabel;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure webBeforeNavigate2(ASender: TObject;
      const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
      Headers: OleVariant; var Cancel: WordBool);
    procedure webDocumentComplete(ASender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    s1: TStringList;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  memo1.Clear;
  web.tag:=0; // состояние 0
  web.Navigate('http://www.transtekhnika.by/raspisanie/version2/raspisanie.aspx');
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  // поиск
  if web.tag<>0 then exit;
  web.tag:=1;
  web.getElementById('input','TextBox1').setAttribute('value',Edit1.Text,0);
  web.getElementById('input','TextBox2').setAttribute('value',Edit2.Text,0);
  web.getElementById('input','Button1').click;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  s1:=TStringList.Create;
end;
 
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  if ListBox1.ItemIndex<0 then exit;
  web.tag:=2;
  web.RunJS(s1[ListBox1.ItemIndex]);
end;
 
procedure TForm1.webBeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  Button1.Enabled:=false;
end;
 
procedure TForm1.webDocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  Button1.Enabled:=true;
  Memo1.Lines.Add(URL);
  // состояния браузера
  case web.tag of
    0: begin
      // главная страница
      exit;
    end;
    1: begin
      // получаем данные
      web.JqueryLoad; // подключаем Jquery 1.3
      web.RunJS(
        'var mass = []; var mass2 = [];'+
        '$("table#GridView1 tr").each(function(i){ ' +
        '  if (i==0) { return true; } '+
        '  mass.push(String($(this).find("a").eq(0).attr("href")).replace(/javascript:/i,"")); '+
        '  mass2.push($(this).find("td").eq(1).text()); '+
        '});'
      );
      web.getJsStrings('mass',s1);
      web.getJsStrings('mass2',ListBox1.Items);
    end;
    2: begin
      // показываем в списке
      web.JqueryLoad; // подключаем Jquery 1.3
      web.RunJS('$("table#GridView1 tr").eq(0).remove();');
      Memo2.Text:=web.getElementById('table','GridView1').innerText;
      web.Tag:=1;
      web.GoBack;
      exit;
    end;
  end;
  //web.tag:=-1;
end;
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw, jsWebbrowser, Grids, ExtCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    ListBox1: TListBox;
    Label2: TLabel;
    Label5: TLabel;
    Panel1: TPanel;
    web: TWebBrowser;
    ProgressBar1: TProgressBar;
    StringGrid2: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure webBeforeNavigate2(ASender: TObject;
      const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
      Headers: OleVariant; var Cancel: WordBool);
    procedure webDocumentComplete(ASender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure webProgressChange(ASender: TObject; Progress,
      ProgressMax: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
    s1: TStringList;
    function stringLine(const s:string):string;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  web.tag:=0; // состояние 0
  web.Navigate('http://www.transtekhnika.by/raspisanie/version2/raspisanie.aspx');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  // поиск
  if web.tag<>0 then exit;
  web.tag:=1;
  web.getElementById('input','TextBox1').setAttribute('value',Edit1.Text,0);
  web.getElementById('input','TextBox2').setAttribute('value',Edit2.Text,0);
  web.getElementById('input','Button1').click;
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  s1:=TStringList.Create;
end;
 
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  if not Button1.Enabled then exit;
  if ListBox1.ItemIndex<0 then exit;
  web.tag:=2;
  web.RunJS(s1[ListBox1.ItemIndex]);
end;
 
function TForm1.stringLine(const s: string): string;
begin
  result:=StringReplace(s,#13,' ',[rfReplaceAll]);
  result:=StringReplace(result,#10,'',[rfReplaceAll]);
end;
 
procedure TForm1.webBeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  Button1.Enabled:=false;
  Button2.Enabled:=false;
end;
 
procedure TForm1.webDocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var trs,tds: helems; i,j:integer;
begin
  Button1.Enabled:=true;
  Button2.Enabled:=true;
  // состояния браузера
  case web.tag of
    0: begin
      // главная страница
      exit;
    end;
    1: begin
      // получаем данные
      web.JqueryLoad; // подключаем Jquery 1.3
      web.RunJS(
        'var mass = []; var mass2 = [];'+
        '$("table#GridView1 tr").each(function(i){ ' +
        '  if (i==0) { return true; } '+
        '  mass.push(String($(this).find("a").eq(0).attr("href")).replace(/javascript:/i,"")); '+
        '  mass2.push($(this).find("td").eq(1).text()); '+
        '});'
      );
      web.getJsStrings('mass',s1);
      web.getJsStrings('mass2',ListBox1.Items);
    end;
    2: begin
      // показываем в списке
      web.getElementsByTagName('tr',trs);
      StringGrid2.RowCount:=length(trs);
      for i := 0 to high(trs)-1 do begin
        web.getElementChildren(trs[i],tds);
        if StringGrid2.ColCount < Length(tds) then StringGrid2.ColCount := Length(tds);
        for j := 0 to high(tds) do
          StringGrid2.Cells[j,i]:=stringLine(tds[j].innerText);
      end;
      web.tag:=0;
      web.GoBack;
    end;
  end;
  //web.tag:=-1;
end;
 
procedure TForm1.webProgressChange(ASender: TObject; Progress,
  ProgressMax: Integer);
begin
  ProgressBar1.Max:=ProgressMax;
  ProgressBar1.Position:=Progress;
end;
 
end.

if pos('checked',tds[j].innerHTML)>0 then StringGrid2.Cells[j,i]:='+';