太初级的问题。
请指点
请指点
解决方案 »
- 如何获取IE的前进后退按钮中的URL?
- 线程请教
- 请问if和case语句如何在表达式成立的时候什么也不做?
- 我想导入sql server中的的一些库并象sql server一样编辑各表,并保存?
- 又一个新问题,还是关于ADOQuery查询的,请大家进来!~
- 求delphi中16进制byte数组与中文的互换,请帖出详细代码
- 想实现这样的功能,像WORD一样,显示第X页/共X页
- ---====WWW.7-8-9.NET程序源Delphi版期待着您的加盟====---
- 还有个问题!
- 我在客户端SQL查到想要的数据集显示在TDBgrid里, 现在想保存在本地的数据库ACCESS文件里,要速度快,最好有什么象PB管道的控件就好.偶是新新手
- 怎么才能得到快捷方式指向的文件和目录阿?
- 我是新来的,问几个问题,请多多关照!!!
var
Document: IHtmlDocument2;
Link: IHTMLElement; StrLinks: string;
i: integer;
begin
Document := WebBrowser1.Document as IHTMlDocument2;
if myLst.Count > 0 then myLst.Clear;
for i := 0 to Document.Links.Length - 1 do
begin
Link := Document.Links.Item(i, 0) as IHTMLElement;
StrLinks := Link.toString;
if Pos('http://www.5460.net/txl/liuyan/liuyanSql.pl', StrLinks) > 0
then
begin
urlLiao := StrLinks;
myLst.Add(urlLiao);
edit1.Text := urlLiao;
isFind := True;
// Application.ProcessMessages;
// WebBrowser1.Navigate(edit1.Text);
// Memo1.Lines.Add('success at ' + DateTimeToStr(now));
//Exit;
end;
end;
try
for I := 0 to myLst.Count - 1 do
begin
WebBrowser1.Navigate(myLst.Strings[I]);
AddMsg('link to ' + myLst.Strings[I]);
Delay(5000);
end;
except
On e:Exception do AddMsg(E.Message);
end;
end;
在interface中加入mshtml就可以了
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppdisp:=webbrowser2.DefaultDispatch;
end;
不是很管用
aiirii(ari) 的方法是对的.