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