我想编一个浏览器,不止如何下手(讨论一下)

Question

delphi5\Demos\CoolStuf下有DELPHI自带的例子，可以参考

Answer 1

把ie接口研究透彻吧!
有名的:opera就是最早用ie接口作的浏览器
国内的东方网神也是!
不过挺复杂的,主要是接口太多,你导入一个ie类型库就得好多M,要知道这仅仅是接口和方法申明啊!

Answer 2

到这试试:
C:\Program Files\Borland\Delphi6\Demos\FastNet\Http

Answer 3

把那个web控件弄明白了，还有一堆wbexec等，还有很多的...

Answer 4

简单的倒还好做，比如做个能输入地址栏打开网页的那种。功能多的就不容易了。我记得DEV系列的ExpressBar当中有个例子，你可以看看，那种还简单的。

Answer 5

我觉得最难得是像腾讯那样的在pagecontronl里既增加一个webbrower还要加入一个page.虽然解决了可是最难的是如何在onnewwindows的事件里写入新webo2:=webbrower.create(form1)的方法！

Answer 6

我也在写一个
现在碰到的问题是不知道怎么为新建的webbrower写前进后退

Answer 7

webbrower.goback（返回）
webbrower.gohome(主页）.....看帮助吧！

Answer 8

使用WebBrowers组件，它是调用的ie的封装
前进后退好办，用
WebBrowers.goback
WebBrowers.goforward

Answer 9

使用THTML控件,和 Combobox组件,设置combobox的constraints属性的anchorhorz限制为akstretch.
    设置combobox的onclick事件
       if combobox1.text<>'' then
           thtml.requestdoc(combobox1.text);
        keypress事件中
       if key=char(vk_return) then begin
          key:=#0;
        if combobox.text='' then
            exit;
          comboboxclick(sender);
       end;
这样就编好了一个简易的web浏览器,你可以在添加很多的功能,但这是一个好的开始.
谢谢了,请给分吧!!

Answer 10

如delphiplayer()兄弟所言，
问题是当你用你这个程序打开一个网爷，当点击一个连接要弹出一个新的窗口来时，如何还是用你的程序打开，而不是系统默认的浏览器！
问题还远远没有解决！

Answer 11

可是最难的是如何在onnewwindows的事件里写入新webo2:=webbrower.create(form1)的方法！

Answer 12

这位大哥，请你先不要发怒；
听听我的一点意思可不可以？
如果你要是一名新手的话，我觉的你应该先再学一学，先看一看D如何同一些外部函数连接......，
当然，新手也可以做，书上有DEMO，作何一本书上也有，但是，如果如那些所言，有说是自己开发的有什么意义？
不是前进、后退、刷新、浏览.......
主要的应该是接口；
你应该先把它搞的很明白才算是自己编出来的东东；
//呵呵，不知所云，丢之

Answer 13

使用WebBrowser组件,或者是调用ActiveX控件。
WebBrowser的接口很简单，可以完成一些基本的功能。如以上兄弟所言。
但是在WebBrowser中打开一个网页或点击一个联接时，有可能会弹出一个新的窗口。如果不做一些工作，那么WebBrowser将调用一个系统默认的浏览器打开他。
我的解决方法：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, Menus, ExtCtrls, HTTPApp, HTTPProd, Psock,
  NMHttp;type
  TFrmIE = class(TForm)
    WebBrowser1: TWebBrowser;
    NMHTTP1: TNMHTTP;
    procedure WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
      var Cancel: WordBool);
    procedure FormShow(Sender: TObject);
    procedure WebBrowser1NavigateComplete2(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
  private
    { Private declarations }
  public
{ Public declarations }
  end;var
  FrmIE: TFrmIE;
  NewNavigation:string;
  New:boolean;
implementation
{$R *.dfm}procedure TFrmIE.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
NewForm:TFrmIE;
Q:integer;
begin
New:=true;
//Cancel:=true;
NewForm:=TFrmIE.Create(self);
    NewForm.Show;
ppDisp:=NewForm.WebBrowser1.Application;
//Cancel:=true;
end;procedure TFrmIE.FormShow(Sender: TObject);
begin
if not New then WebBrowser1.Navigate('http://www.csdn.net') else new:=false;
end;procedure TFrmIE.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
Caption:=WebBrowser1.LocationName;
end;end.

Answer 14

当然也可以调用ActiveX控件, 这就涉及老兄所说的接口问题。
如若老兄有一些思路的话，我愿一同探讨或洗耳恭听。