Problem with TEmbeddedWB

[Klaus01]

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]