library testdll;
uses
  SysUtils,
  Classes,
  Unit1 in 'Unit1.pas' {Form2};
{$R *.res}
begin
  Form2 := TForm2.Create(Nil);
  try
    Form2.ShowModal;
  finally
  Form2.Free;
  end;
end.
——————————————————————————————————————
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw,activex;
type
  TForm2 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementation{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
  webbrowser1.Navigate('http://www.baidu.com');
  //以上一句出错
end;Initialization
CoInitialize(Nil);
Finalization
CoUnInitialize;
end.————————————————————
问题1
在exe中一个button下调用!
loadlibrary('testdll.dll');
这句就出错 webbrowser1.Navigate('http://www.baidu.com');
问题2
如何判断webbrowser中的网页下载完毕?(带frame的网页)
我想做成,
webbrowser1.Navigate('http://www.1.com');//完毕后
webbrowser1.Navigate('http://www.2.com');//这2个网页都是带多个frame的请大牛指教下!十分感谢!

解决方案 »

  1.   


    webbrowser1.Navigate('http://www.1.com');//完毕后 while WebBrowser1.ReadyState<>4 do
        Application.ProcessMessages;
    webbrowser1.Navigate('http://www.2.com');//这2个网页都是带多个frame的 
      

  2.   

    楼上的这个我试过, WebBrowser1.ReadyState  和webbrowser1.busy 这2个都是针对 不带框架的网页!
      

  3.   

    我用IDHTTP已经实现!  不知道为什么WEBBROWSER 在DLL中出错?