TWebBrawser не загружается страница

[Lum]

Здравствуйте!

Задача: Форма, на форме компонент TWebBrawser, который должен показать страницу http://translate.google.ru/

Появляется форма с белым прямоугольником, но страница не грузится. Чего не хватает в коде?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, XPMan, ImgList;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  WebBrowser1: TWebBrowser;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.google.ru');
end;
end.

[Пепел Феникса]

это что у вас такое в var разделе?уберите.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, XPMan, ImgList;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.google.ru');
end;

end.

[Stilet]

В коде все норм. Это антивирус или брандмауер блокирует подключения. Попусти его и страница откроется

[Lum]

Спасибо! Пакость из var убрала. Антивирус ни при чем. Брандмауер сейчас методично буду бить!))

Побила - не помогло( Не он( Другие самописные браузеры пускает без ругани.

Хм... Может в Delphi 2010 вся загвоздка...

[Stilet]

Может в Delphi 2010 вся загвоздка...

Не могу подтвердить, ибо у меня все норм и на Д6 и на Д2010. Ессно когда я файерволл попустил (или вернее он у меня спросил что делать - я жмакнул на "разрешить"). ТАк что думаю тебе нужно наладить взаимопонимание с огнестенкой своей

[Lum]

Наладила все) Сейчас на виртуалку Д7 поставлю и все должно заработать. Не первый косяк уже( Видимо версия Д10 либо неудачная либо неудачно крякнутая( Там на всех этапах ругань)

Все проверила: антивирус и брандмауер реабилитированы, версия delphi не виновата. Ни черта не понимаю оО Браузер есть, страницы нет(

19:05 Итак, при добавлении Combobox полет нормальный. Значит дело в коде...

[Lum]

оООО Сама в шоке, но дело решилось более чем просто. Новичкам, таким же как и я может помочь.

Выбираем форму, смотрим вкладку ObjectInspector (это справа) Events. Выбираем OnCreate щелкаем два раза и вписываем

WebBrowser1.Navigate('http://www.google.ru');

Вот что получится в целом

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.google.ru');
end;

end.

Так и не поняла почему, но если вводить не вручную, то все работает

[Stilet]

но если вводить не вручную, то все работает

А-а-а... Хехе... Все потому что ты не связала обработчик FormCreate с формой.
Нужно было открыть DFM файл в блокноте и посмотреть какие события описаны. Конечно оно просто не выполнялось, потому как не было привязано к форме. Для этого во многих средах программирования есть окно свитков свойств и событий, где удобнее описывать то или иное событие.
Вручную ты прописывая код просто забыла (или не знала) что это не все что должен содержать проект - это лишь описание действий но не схема построения проекта.

[Lum]

Сообщение от Stilet

Вручную ты прописывая код просто забыла (или не знала) что это не все что должен содержать проект - это лишь описание действий но не схема построения проекта.

И то и другое)) Первый и последний раз связывалась с Delphi год назад. Ну ничего так, начинаю вспоминать потихонечку...