Помогите при написании WebBrowser

[kuzmich]

Я написал программу, KuzmichExplorer. Она у меня запускается а неработает. В чем причина?
Вот исходный код:

unit explorer;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, ComCtrls, ToolWin, Menus;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    ToolBar1: TToolBar;
    ToolBar2: TToolBar;
    StatusBar1: TStatusBar;
    Label1: TLabel;
    Edit1: TEdit;
    OpenDialog1: TOpenDialog;
    WebBrowser1: TWebBrowser;
    procedure FileButtonClick(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure ToolBar1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FileButtonClick(Sender: TObject);
begin
  If OpenDialog1.Execute then
   WebBrowser1.navigate(WideString(OpenDialog1.FileName));
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key=#13 then
  WebBrowser1.Navigate(WideString(Edit1.Text));
end;

procedure TForm1.ToolBar1Click(Sender: TObject);
begin

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

Помагите пожалуйста!


1. Читаем правила оформления тем (жирное выделение запрещено)
2. Код оформляем с использованием тегов. Кнопка #.
Пока устное предупреждение. // Alex21

[KORN]

procedure TForm1.FileButtonClick(Sender: TObject);
begin
If OpenDialog1.Execute then
WebBrowser1.navigate(WideString(OpenDialog1.FileNa me));
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
WebBrowser1.Navigate(WideString(Edit1.Text));
end;

можно делать просто

procedure TForm1.FileButtonClick(Sender: TObject);
begin
If OpenDialog1.Execute then
WebBrowser1.navigate(OpenDialog1.FileName);
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
WebBrowser1.Navigate(Edit1.Text);
end;

[AlDelta]

procedure TForm1.FileButtonClick(Sender: TObject);
begin
If OpenDialog1.Execute then
WebBrowser1.navigate(WideString(OpenDialog1.FileNa me));//Без  WideString, 
//FileNa me - без пробела (FileName)
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
WebBrowser1.Navigate(WideString(Edit1.Text));//Без  WideString
end;

[kuzmich]

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

procedure TForm1.FileButtonClick(Sender: TObject);
begin
If OpenDialog1.Execute then
WebBrowser1.navigate(WideString(Ope nDialog1.FileNa me));
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
WebBrowser1.Navigate(WideString(Edi t1.Text));
end;

можно делать просто

procedure TForm1.FileButtonClick(Sender: TObject);
begin
If OpenDialog1.Execute then
WebBrowser1.navigate(OpenDialog1.Fi leName);
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
WebBrowser1.Navigate(Edit1.Text);
end;

у меня все равно не открывается! при нажатие <ENTER> у меня выдает звук, что не хочет открывать......

[AlDelta]

Какой текст получает Edit1?

[kuzmich]

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

Какой текст получает Edit1?

адрес сайта

[mihali4]

А файрвол в режиме обучения?
Я опробовал приведенный вами код безо всяких изменений. Как и ожидалось, все спокойно работает. Только файрвол при запуске программы поинтересовался - разрешить соединение этой проге или нет...
Так что смотрите, чем вы там так усердно защищаетесь от хакеров...

[kuzmich]

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

А файрвол в режиме обучения?
Я опробовал приведенный вами код безо всяких изменений. Как и ожидалось, все спокойно работает. Только файрвол при запуске программы поинтересовался - разрешить соединение этой проге или нет...
Так что смотрите, чем вы там так усердно защищаетесь от хакеров...

знаите, у меня все равно не работает, я и файрвол отключал, и разрешал доступ а моя программа все равно не работает

[mihali4]

а моя программа все равно не работает

Вы, извините, как блондинка на СТОА - "она почему-то не едет..."
Мы дождемся, наконец, подробного описания "она не работает" или скриншота ошибки?
Или так и будем сидеть и гадать на кофейной гуще?

З.Ы. Надеюсь, кавычки в эдите не используете?

[Alex21]

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

адрес сайта

Приведите пример того, что содержит Edit1