在我的webbrowser控件内部有个静态的网页,其中有个“查询资料”为超级连接,请问,在同一个webbrowser中,我怎么才能实现用这个超级连接来打开我写的另外的一个“过程”。
解决方案 »
- delphi2009资源文件的释放,总提示找不到文件
- adoquery中查询出数据后,希望打印显示在dbgrid中的全部数据,希望高手指点
- Delphi 的问题
- 同一段代码,当窗体设置为mdichild时不执行,不知何解?
- 各位大哥delphi9.0什么时候出来呀?
- 如何把dbmemo中的字符写入sql server中?
- 我的D,E盘莫名其妙的不见了,只看到C盘,重装98,还是找不到?
- 有关combobox的问题
- 如何用delphi来实现在word中实现用鼠标画画 然后嵌入在word中就可以了
- 谁有文档加密方面的源码(就是只能在本机打开,文档拷贝到其它机器打不开),想购买...
- 还是DBGird的问题
- 请教一个关于API的问题,高手请进!高分奉上!在线等啊!急!急!急!急!急!急!急!急!急!急!急!急!
var
i: Integer;
begin
for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do
Listbox1.Items.Add(Webbrowser1.OleObject.Document.Links.Item(i));
end;
{*****************}{ if there are frames }procedure TForm1.Button2Click(Sender: TObject);
var
u : variant;
v : IDispatch;
s : string; procedure RecurseLinks(htmlDoc: variant);
var
BodyElement : variant;
ElementCo: variant;
HTMLFrames: variant;
HTMLWnd : variant;
j, i : integer;
begin
if VarIsEmpty(htmlDoc) then
exit;
BodyElement := htmlDoc.body;
if BodyElement.tagName = 'BODY' then
begin
ElementCo := htmlDoc.links;
j := ElementCo.Length - 1;
for i := 0 to j do
begin
u := ElementCo.item(i);
s := u.href;
listLinks.Items.Add(s);
end;
end;
HTMLFrames := htmlDoc.Frames;
j := HTMLFrames.length - 1;
for i := 0 to j do
begin
HTMLWnd := HTMLFrames.Item(i);
RecurseLinks(HTMLWnd.Document);
end;
end; // RecurseLinks
begin
v := WebBrowser1.document;
listLinks.Clear;
RecurseLinks(v);
end;用上面的方法找到對應的 link --- '/MyCGI.exe/', 再和原來的link組合, 就可以成新的