5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
取昵称麻烦 2013-05-26
- 打赏
- 举报
原来是该网页设计了多层框架结构，问题解决了.
取昵称麻烦 2013-05-25
- 打赏
- 举报
procedure TForm1.FormCreate(Sender: TObject);
begin
wb1.Navigate('http://oa1.sihaigroup.cn:81/');
end;
procedure TForm1.btnCalcClick(Sender: TObject);
var
doc,framedoc : IHTMLDocument2;
frame_dispatch: IDispatch;
o,ole_index,oleObj: OleVariant;
i,j: Integer;
begin
doc := wb1.Document as IHTMLDocument2;
if doc = nil then Exit;
for i := 0 to doc.frames.length - 1 do
begin
ole_index := i;
frame_dispatch := doc.frames.item(ole_index);
if frame_dispatch = nil then Continue;
framedoc := (frame_dispatch as IHTMLWindow2).document;
o :=wb1.oleobject.document.documentelement.document.frames.item(i).document.all.item('DATA_1',0);
if VarIsEmpty(o) then
Continue
else
o.value:='test';
end;
end;
到o.value:='test';这句就弹内存访问错误。求解
取昵称麻烦 2013-05-24
- 打赏
- 举报
我有个思路“先取出对应frame的document，再取想要的元素”
但是不知道怎么写，求帮助。
