[TYMON]

Всем добрый день. Создаю приложение с использованием технологии IntraWeb. При компиляции ошибок нет, делаю команду Execute на сервере, открывается страница, а нанесенных на форму элементов нет. В чем может быть причина? Использую Delphi XE3.

В Мозилле страница абсолютно пустая, в Internet Explorer ошибка HTTP 500. В исходном коде страниц ничего нет. В строке адреса страницы: http://127.0.0.1:2878/$/

Брандмауэр и антивирус отключал.

Код проекта

Код:

program acz;

uses
  Forms,
  IWStart,
  UTF8ContentParser,
  vhod in 'vhod.pas' {IWForm1: TIWAppForm},
  ServerController in 'ServerController.pas' {IWServerController: TIWServerControllerBase},
  UserSessionUnit in 'UserSessionUnit.pas' {IWUserSession: TIWUserSessionBase};

{$R *.res}

begin
  TIWStart.Execute(True);

end.

Код формы:

Код:

unit vhod;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, Vcl.Controls,
  IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompGrids,
  IWDBGrids, Data.DB, Data.Win.ADODB, IWCompEdit, IWCompButton;

type
  TIWForm1 = class(TIWAppForm)
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    ADOTable1FIO_specialist: TWideStringField;
    ADOTable1login: TWideStringField;
    ADOTable1password: TWideStringField;
    ADOTable1otdel: TWideStringField;
    ADOConnection1: TADOConnection;
    IWEdit1: TIWEdit;
    IWDBGrid1: TIWDBGrid;
    IWButton1: TIWButton;
    procedure IWAppFormCreate(Sender: TObject);
    procedure IWAppFormDestroy(Sender: TObject);
  public
  end;

implementation

{$R *.dfm}


procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
Adotable1.Active:=True;
end;

procedure TIWForm1.IWAppFormDestroy(Sender: TObject);
begin
Adotable1.Active:=False;
end;

initialization
  TIWForm1.SetAsMainForm;

end.