Program z Kompendium/rozdział 19/Intraweb - błędy po uruchomieniu aplikacji

akar8

2012-08-29T22:44:05+02:00

Rejestracja: dni
Ostatnio: dni
Postów: 2

Witam
Jestem nowy i laik w delphi, więc wszystko co robie ma charakter edukacyjny.

Proszę więc o wyrozumiałość.

Wykonywałem zadania zgodnie z kompendium/rozdział 19 Intraweb .
Już na początku przy próbie wyświetlenia w wyszukiwarce, otrzymałem błąd informacyjny że potrzebuję do wyświetlenia IE versji 5 lub wyższy.A mam zainstalowany IE 8. Następnie po próbie (" Run " F9 ) uruchomienia aplikacji
wyswietla się błąd

"Project IWProject.exe raised exception class EOSError with message"System Error.Code:5. Odmowa dostępu'.Proces stopped.Use Step or Run to continue."

Czy możecie mi pomóc? byłbym wdzięczny.
Jaki to błąd?

Z pozdrowieniami

dodanie znacznika <quote> dla treści błędu - fp

abrakadaber

2012-08-29T23:32:29+02:00

Rejestracja: dni
Ostatnio: dni
Postów: 6610

http://4programmers.net/Delphi/Artykuły/Debugowanie

akar8

2012-08-29T23:42:20+02:00

Rejestracja: dni
Ostatnio: dni
Postów: 2

Podajęwięc kolejno kod.
dla projektu nic nie wstawiłem jeszcze , wszystko z automatu.

Kopiuj

program IWProject;

{PUBDIST}

uses
  IWInitStandAlone,
  ServerController in 'ServerController.pas' {IWServerController: TDataModule},
  IWUnit1 in 'IWUnit1.pas' {formMain: TIWForm1};

{$R *.res}

begin
  IWRun(TFormMain, TIWServerController);

end.

dla unit .pas

Kopiuj

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes;

type
  TformMain = class(TIWAppForm)
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController;

end.

i drugi

Kopiuj

unit ServerController;
{PUBDIST}

interface

uses
  SysUtils, Classes, IWServerControllerBase,
  // For OnNewSession Event
  IWApplication, IWAppForm;

type
  TIWServerController = class(TIWServerControllerBase)
    procedure IWServerControllerBaseNewSession(ASession: TIWApplication;
      var VMainForm: TIWAppForm);
  private
  public
  end;

  // This is a class which you can add variables to that are specific to the user. Add variables
  // to this class instead of creating global variables. This object can references by using:
  //   UserSession
  // So if a variable named UserName of type string is added, it can be referenced by using:
  //   UserSession.UserName
  // Such variables are similar to globals in a normal application, however these variables are
  // specific to each user.
  //
  // See the IntraWeb Manual for more details.
  TUserSession = class
  public
  end;

// Procs
  function UserSession: TUserSession;

implementation
{$R *.dfm}

uses
  IWInit;

function UserSession: TUserSession;
begin
  Result := TUserSession(RWebApplication.Data);
end;

procedure TIWServerController.IWServerControllerBaseNewSession(
  ASession: TIWApplication; var VMainForm: TIWAppForm);
begin
  ASession.Data := TUserSession.Create;
end;

end.

dodanie znaczników <code class="delphi"> - fp