delphi 分析抓取html,delphi网页数据抓取

简单:

IdHttp:TIdHttp;

Params:TStrings;

Begin

Params:=TStrinList.Create;

IdHttp:=TIdHttp.Create(Nil);

//提交网页的参数

Params.Add('参数1=XXX');

Params.Add('参数2=YYY');

Try

IdHttp.Get('你要的网址',Params);

Memo1.Text:=

Finlly

Params.Free;

IdHttp.Free;

end;

{你分析Memo1中的数据}

{将数据保存至数据库}

end;

function TLisReport.DownloadFile(const remoteurl: string; Stream: TStream;

DownloadTitle: string): Boolean;

var

NetHandle: HINTERNET;

UrlHandle: HINTERNET;

BytesRead: DWORD;

Buffer: array[1..8192] of Char;

HaveRead: DWORD;

lpdwlen, lpdwidx, lpdword: DWord;

begin

Result := false;

NetHandle := InternetOpen(

'htmlcopy for Lis',

INTERNET_OPEN_TYPE_D