请问在一个有多个Frames的网页中,如何取得任何一个Frames中的TEXT的值??
最好有源码。
最好有源码。
解决方案 »
- 如何用webbrowser 想网站的文本输入框 自动填写数据?
- 怎样在已有access数据库中新建表并且自定义表的名称?
- 求sql语句
- 时间问题。
- 高手请进:关于sqlserver单个表的备份还原〉〉〉〉〉〉〉
- 利用循环来进行计时的时候,为什么只在最后一轮有效?
- 大家好,请问我下载了一套源码,编译的时候提示se_controls.dcu找不到!!!!!!!!!!
- 大家都来帮帮我做插件 不做给点资了也行 谢谢
- 请教各位啊~~~~~~~~delphi8的序列号~~~~~~~~知道的请告诉我~谢谢了~~~~~~~
- 如何向自己的程序发送功能键的press消息(例如:F8)?
- 菜鸟提问:DEPHII中如何像VB中一样创建控件数组
- 请教取cpu序列号问题????????
ActiveX; function TForm1.GetFrame(FrameNo: Integer): IWebbrowser2;
var
OleContainer: IOleContainer;
enum: IEnumUnknown;
unk: IUnknown;
Fetched: PLongint;
begin
while Webbrowser1.ReadyState <> READYSTATE_COMPLETE do
Application.ProcessMessages;
if Assigned(Webbrowser1.document) then
begin
Fetched := nil;
OleContainer := Webbrowser1.Document as IOleContainer;
OleContainer.EnumObjects(OLECONTF_EMBEDDINGS, Enum);
Enum.Skip(FrameNo);
Enum.Next(1, Unk, Fetched);
Result := Unk as IWebbrowser2;
end
else
Result := nil;
end; // Load sample page
// Testseite laden
procedure TForm1.Button1Click(Sender: TObject);
begin
Webbrowser1.Navigate('http://www.warebizprogramming.com/tutorials/html/framesEx1.htm');
end; // Save all frames in single files
// Alle Frameseiten in einzelne Dateien speichern
procedure TForm1.Button2Click(Sender: TObject);
var
IpStream: IPersistStreamInit;
AStream: TMemoryStream;
iw: IWebbrowser2;
i: Integer;
sl: TStringList;
begin
for i := 0 to Webbrowser1.OleObject.Document.frames.Length - 1 do
begin
iw := GetFrame(i);
AStream := TMemoryStream.Create;
try
IpStream := iw.document as IPersistStreamInit;
if Succeeded(IpStream.save(TStreamadapter.Create(AStream), True)) then
begin
AStream.Seek(0, 0);
sl := TStringList.Create;
sl.LoadFromStream(AStream);
sl.SaveToFile('c:\frame' + IntToStr(i) + '.txt');
// memo1.Lines.LoadFromStream(AStream);
sl.Free;
end;
except
end;
AStream.Free;
end;
end; end.
var
IEApp,Docs,oIFrame,ovElements: OLEVariant;
i: integer;
begin
IEApp := CreateOLEObject('InternetExplorer.Application');
IEApp.Visible := True;
IEApp.Navigate('http://www.xxx.com');
while IEApp.ReadyState < READYSTATE_COMPLETE do
Application.ProcessMessages; Docs := IEApp.Document;
oIFrame := Docs.Frames.item(0); //第一個Frame
//-- <input type="text" name=myName ID="myName"> //若有ID名
ovElements := oIFrame.Document.GetElementByID('myName');
Edit1.Text := ovElements.Value;
end;
我如何得到 'http://www.xxx.com' 这个网址呢?
我想做的是当把鼠标移到系统IE上时,能够得到上面TEXT的值。没有Frames的网页,我已经解决了,
可是有Frames的,该怎么取???