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的请大牛指教下!十分感谢!
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的请大牛指教下!十分感谢!
webbrowser1.Navigate('http://www.1.com');//完毕后 while WebBrowser1.ReadyState<>4 do
Application.ProcessMessages;
webbrowser1.Navigate('http://www.2.com');//这2个网页都是带多个frame的