请教 idHTTP接收网页源代码问题
procedure TForm1.Button14Click(Sender: TObject);var machs: IMatchCollection; Matchs: Match; submatch: ISubMatches; i: integer; url,url1:string;begin url:='http://www.cnblogs.com/del/archive/2007/12/21/1009482.html'; str :=idhttp1.get(url); RegExp1.Global := true; RegExp1.Pattern :='<img src=\"(.+?)\"'; RegExp1.IgnoreCase := true; machs := RegExp1.Execute(str) as IMatchCollection; for i := 0 to machs.Count - 1 do begin Matchs := machs.Item[i] as Match; submatch := Matchs.SubMatches as ISubMatches; memo4.Lines.Add(matchs.Value); end;end;