读淘宝商品描述页源码delphi版

淘宝的宝贝描述页是ajax异步载入的，所以直接idhttp读一下是弄不到它的源码的。用下面的方法就可以。

代码如下：

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    TabControl1: TTabControl;
    GO: TButton;
    Button1: TButton;
    Button2: TButton;
    Panel1: TPanel;
    RichEdit1: TRichEdit;
    Panel2: TPanel;
    WebBrowser1: TWebBrowser;
    Label2: TLabel;
    procedure GOClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TabControl1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  *******
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$APPTYPE CONSOLE}
uses mshtml;

function GetHtml(const WebBrowser:TWebBrowser): string;
var
  Doc: IHTMLDocument2;
begin
  Doc := WebBrowser.Document as IHTMLDocument2;
  if Assigned(Doc) and Assigned(Doc.body) then
    Result := Doc.body.OuterHtml; //也可以用innerHTML取得其HTML文本
end;

 

procedure TForm1.Button1Click(Sender: TObject);
begin
  //读商品描述页html
  form1.RichEdit1.Text:=GetHtml(form1.WebBrowser1);
  form1.TabControl1.TabIndex:=0;
  form1.Panel1.BringToFront;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  //显示控制
  form1.TabControl1.TabIndex:=0;
  form1.Panel1.BringToFront;
  form1.Button1.Enabled:=false;
  WebBrowser1.Silent := True; //禁脚本错误

end;

procedure TForm1.GOClick(Sender: TObject);
begin

  form1.TabControl1.TabIndex:=1;
  form1.Panel2.BringToFront;
  form1.WebBrowser1.Navigate(trim(form1.Edit1.Text));
  form1.Button1.Enabled:=true;
end;

procedure TForm1.TabControl1Change(Sender: TObject);
begin
  case TabControl1.TabIndex of
    0:begin
      form1.Panel1.BringToFront;
    end;
    1:begin
      form1.Panel2.BringToFront;
    end;
  end;
end;

end.

界面代码：

object Form1: TForm1
  Left = 229
  Top = 150
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #35835#28120#23453#21830#21697#25551#36848'  '#29482#24735#33021
  ClientHeight = 269
  ClientWidth = 330
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesigned
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 19
    Width = 23
    Height = 13
    Caption = 'URL:'
  end
  object Label2: TLabel
    Left = 15
    Top = 242
    Width = 156
    Height = 13
    Caption = #20808'go'#65292#31561#32593#39029#36733#20837#21518#20877#21462#28304#30721
    Color = clGradientActiveCaption
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Edit1: TEdit
    Left = 32
    Top = 16
    Width = 241
    Height = 21
    TabOrder = 0
    Text =
      'http://item.taobao.com/auction/item_detail-0db1-b65488f879057795' +
      '999a205b3ed15545.jhtml'
  end
  object TabControl1: TTabControl
    Left = 8
    Top = 48
    Width = 313
    Height = 177
    TabOrder = 1
    Tabs.Strings = (
      'Html'
      'View')
    TabIndex = 0
    OnChange = TabControl1Change
    object Panel1: TPanel
      Left = 8
      Top = 24
      Width = 297
      Height = 145
      Caption = 'Panel1'
      TabOrder = 0
      object RichEdit1: TRichEdit
        Left = 0
        Top = 0
        Width = 297
        Height = 145
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        Lines.Strings = (
          'RichEdit1')
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object Panel2: TPanel
      Left = 8
      Top = 24
      Width = 302
      Height = 150
      Caption = 'Panel2'
      TabOrder = 1
      object WebBrowser1: TWebBrowser
        Left = 0
        Top = 0
        Width = 297
        Height = 145
        TabOrder = 0
        ControlData = {
          4C000000B21E0000FC0E00000000000000000000000000000000000000000000
          000000004C000000000000000000000001000000E0D057007335CF11AE690800
          2B2E126208000000000000004C0000000114020000000000C000000000000046
          8000000000000000000000000000000000000000000000000000000000000000
          00000000000000000100000000000000000000000000000000000000}
      end
    end
  end
  object GO: TButton
    Left = 281
    Top = 21
    Width = 41
    Height = 21
    Caption = 'GO'
    TabOrder = 2
    OnClick = GOClick
  end
  object Button1: TButton
    Left = 192
    Top = 232
    Width = 57
    Height = 29
    Caption = #21462#28304#30721
    TabOrder = 3
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 265
    Top = 232
    Width = 57
    Height = 29
    Caption = #36864#20986
    TabOrder = 4
    OnClick = Button2Click
  end
end

源代码下载：http://www.rayfile.com/files/b844aba6-15d3-11df-95b8-0015c55db73d/