Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#4

Re: wie benutze ich regular expressions?

  Alt 1. Jun 2009, 17:55
Ein HTML Parser ist z.B. IEParser von bsalsa.com
Damit kann man ganz einfach Bilder etc aus einer URL herausfiltern.

Delphi-Quellcode:
uses
 {...}IEParser, MSHTML_EWB;

procedure TForm1.IEParser1OnImage(Sender: TObject; Source: String;
  ImgElement: IHTMLImgElement; Element: TElementInfo);
begin
  Memo1.Lines.Add(ImgElement.href);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  IEParser: TIEParser;
begin
  IEParser := TIEParser.Create(Self);
  try
    IEParser.OnImage := IEParser1OnImage;
    IEParser.Parse('http://delphipraxis.net');
  finally
    IEParser.Free;
  end;
end;
Thomas
  Mit Zitat antworten Zitat