Inhalt eines ID-Elementes in einem bestimmten Frame ändern

[marabu]

Hallo Tom,

die folgende Funktion verschafft dir über den Index Zugang zu einem Frame:

Delphi-Quellcode:

function GetFrameDoc(doc: IHTMLDocument2; v: OleVariant): IHTMLDocument2;
var
  win: IHTMLWindow2;
  u: IUnknown;
  ec: IHTMLElementCollection;
begin
  u := doc.frames.item(v);
  if Assigned(u)
  and Succeeded(u.QueryInterface(IHTMLWindow2, win))
    then Result := win.Document
    else Result := nil;
end;

Und ungefähr so könntest du es benutzen:

Delphi-Quellcode:

var
  doc, fdoc: IHTMLDocument2;
  e: IHTMLElement;
begin
  doc := web_cis.Document as IHTMLDocument2;
  fdoc := GetFrameDoc(doc, 2); // letzter von drei frames ?
  e := fdoc.all.item('str_Uhr', 0) as IHTMLElement;
  if Assigned(e) then
    e.innerText := TimeToStr(now)
end;

Grüße vom marabu