HTML Seite auslesen ???

[marabu]

Hi Gigant,

hier ein paar Anregungen für deine weiteren Forschungen:

Delphi-Quellcode:

const
  imgFolder = 'c:\daten\images';

function UrlToFileName(url: string): string;
var
  i: integer;
begin
  i := Pos('/', url);
  while i > 0 do begin
    Delete(url, 1, i);
    i := Pos('/', url);
  end;
  Result := IncludeTrailingPathDelimiter(imgFolder) + url;
end;

procedure TWebForm.SaveImgToFile(url, fileName: string);
var
  s: TStream;
begin
  s := TFileStream.Create(fileName, fmCreate);
  idHTTP.Get(url, s);
  s.Free;
end;

procedure TWebForm.ImgButtonClick(Sender: TObject);
var
  doc: IHTMLDocument2;
  ec: IHTMLElementCollection;
  img: IHTMLImgElement;
  i: integer;
  vi: OleVariant;
begin
  doc := WebBrowser.Document as IHTMLDocument2;
  ec := doc.images;
  for i := 0 to ec.length - 1 do begin
    vi := i;
    img := ec.item(vi, null) as IHTMLImgElement;
    SaveImgToFile(img.href, UrlToFileName(img.href));
  end;
end;

Grüße vom marabu