Sorry it' me again:
maybe there is problem with your inifile
[Options]
LoadPictures =1
means it will load the pictures
[Options]
LoadPictures =0
means it will not load the pictures
the following code works for me.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw, EmbeddedWB, inifiles;
type
TForm1 =
class(TForm)
EmbeddedWB1: TEmbeddedWB;
Button1: TButton;
CheckBox1: TCheckBox;
procedure Button1Click(Sender: TObject);
private
procedure ReadWBOptions(ABrowser:TEmbeddedWB);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ReadWBOptions(ABrowser:TEmbeddedWB);
var
ini : TiniFile;
begin
Ini := TIniFile.Create(ExtractFilePath(Paramstr(0)) + '
data.ini');
if Ini.ReadBool('
Options', '
LoadPictures', True)
then
ABrowser.DownloadOptions := [DLCTL_DLIMAGES];
ini.free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ReadWbOptions(EmbeddedWB1);
EmbeddedWb1.Go('
www.google.de');
end;
end.
May you want to check it.
Have fun
Klaus
[edit] ini.free added [/edit]