读淘宝商品描述页源码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/