v.2.0.27

I am trying to compile Net.mscorlib and the following code errors at the line: const MaxValue: Byte = 255; 

The error is the following:  [dcc32 Error] NET.mscorlib.pas(355): E2010 Incompatible types: 'Byte' and 'Integer'

How do I correct this?

Here is the full object.


Byte = class(TCTBaseObject)
  private
  protected
    class function CTFullTypeName: string; override;
  public
    const MaxValue: Byte = 255;
    const MinValue: Byte = 0;
    function CompareTo(
      const aValue: TCTObject): Int32; overload;
    function CompareTo(
      const aValue: Byte): Int32; overload;
    function Equals(
      const aObj: TCTObject): Boolean; reintroduce; overload;
    function Equals(
      const aObj: Byte): Boolean; reintroduce; overload;
    function GetHashCode: Int32; reintroduce; overload;
    class function Parse(
      const s: string): Byte; overload;
    class function Parse(
      const s: string;
      const aStyle: NumberStyles): Byte; overload;
    class function TryParse(
      const s: string;
      out aResult: Byte): Boolean; overload;
    function ToString: string; reintroduce; overload;
    function ToString(
      const aFormat: string): string; reintroduce; overload;
    function GetTypeCode: TypeCode; overload;
    function GetType: TypeNET; overload;

  end;

Hi guys,

There was a small but important memory leak introduced in the previous version. The leak has been fixed. Please update:

https://www.atozed.com/2020/08/intraweb-15-2-14/

How does Intraweb achieve the effect shown in the figure?

https://ant.design/components/tree-select-cn/

   

Don't get intimidated by version numbers  

https://www.atozed.com/2020/08/intraweb-15-2-13/


This update has an important fix for an issue introduced in previous version and a nice enhancement in TabOrder handling and rendering, along with more performance improvements in several areas.

PS: Unfortunately a memory leak was found a few hours after this version has been released. The issue is fixed in new build 15.2.14. 
Please download the latest build: https://www.atozed.com/2020/08/intraweb-15-2-14/

Using C++ Builder 10.3.2 / IW 15.2.12

Add controls to form then modify taborder.  After form is rendered, modified taborder is reset to the order of control creation.  15.2.11 works correctly.

Demo attached.

Attached Files

  IWTEST.zip (Size: 8.91 KB / Downloads: 1)

v15.2.12 is ok

procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
With IWModalWindow1 do
  begin
    Reset;
    Autosize := False;
    Title := 'Test';
    Draggable := False;
    Src := 'http://cdn07.foxitsoftware.cn/pub/foxit/manual/cPDF/zh_cn/FoxitConnectedPDF_Manual.pdf';
    OnAsyncClick := nil;
    Show;
  end;
end;

Delphi10.3.3
Intraweb v15.2.12

1.New / Other / Delphi / Intraweb / Intraweb Application Wizard
  StandAlone Application (Http.sys)
  Project Name: Test

2.program Test
  + ReportMemoryLeaksOnShutdown := True;

3.New / Other / Delphi / Intraweb / New Frame
unit Unit2;

interface

uses
  SysUtils, Classes, Controls, Forms, IWVCLBaseContainer, IWColor, IWContainer,
  IWRegion, IWHTMLContainer, IWHTML40Container;

type
  TIWFrame2 = class(TFrame)
    IWFrameRegion: TIWRegion;
    IWRegion1: TIWRegion;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

end.

4.Copy IWFrame2(Unit2.pas) to IWForm1(Unit1.pas)
unit Unit1;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, Vcl.Controls,
  Vcl.Forms, IWVCLBaseContainer, IWContainer, IWHTMLContainer, IWHTML40Container, Unit2;

type
  TIWForm1 = class(TIWAppForm)
    IWFrame2: TIWFrame2;
  public
  end;

implementation

{$R *.dfm}

initialization
  TIWForm1.SetAsMainForm;

end.

5.Run (F9)

6.Launch Firefox and execute application
  http://127.0.0.1:8888/

7.Shutdown
  AV...
  Memory Leak...

I am upgrading my version of Indy so I can get a more recent version of TLS. I started by removing all the the Indy directories and dclIndy* and Indy* files from the lib and bi directories.
I used Fulld_7 and it generated no errors. I then installed the two packages that were created in the D7 directory. However, when I try to compile one of my modules with Indy things in I get the following error

[Fatal Error] IndySystem70.dpk(43): Unit IdIDN was compiled with a different version of IdGlobal.TIdUnicodeString

I have some SA programs that have worked for years and am in the process of moving to a different host system which runs in a virtual machine. Some of my Intraweb 15 programs run fine but others crash every night on the VM, even though, to the best of my knowledge I designed them all the same way and they never did so on the old physical machine. Original code was developed in Intraweb 5 with changes where forced on me during compiling since then as I have moved to more recent versions of Intraweb.

I am wondering whether part of the issue may be due to the way I use TUserSession rather than TIWUserSession in many cases because I have multiple datamodules in each program.

What exactly is the purpose and difference between a UserSession and a IWUserSession. Recent examples in the Intraweb documentation use a UserSessionUnit which is mostly based on TIWUserSession and declare links to datamodules within this. Is it better to do things this way or should it not matter?

Any suggestions for ways to improve or implement a currently preferred way to do things would be appreciated. I have also noted in various documentation that since IW 14 one should declare the aSession as a descendent of TIWUserSession with (nil, aSession) but, since I use UserSessions, this does not compile.

My current general program structure is to have, say, two datamodules with definitions something like the following

unit datamodule1;
interface
uses
  various items listed here;
type
  Tdatamodule1 = class(TDataModule)
    various data components;
  private
  public
  published
  end;

function datamodule1: Tdatamodule1;

implementation

use
  various items here;

function datamodule1: Tdatamodule1;
  Result := TUserSession(WebApplication.data).datamodule1;
end;

various procedure here;

end.


In the ServerController unit I have:

unit ServerController;

interface
uses
  datamodule1name, datamodule2name,
  various other items listed here;
type
  TIWServerController = class(TIWServerControllerBase)
    procedure IWServerControllerBaseNewSession(aSession: TIWApplication);
    procedure IWServerControllerBaseGetMainForm(var vMainForm: TIWBaseForm);
    various data components;
  private
  public
  end;

  TUserSession = class(TComponent)
  public
    MainForm : TMainForm;
    datamodule1 : Tdatamodule1;
    datamodule2 : Tdatamodule2;
    various other usersession items defined here;
  end;

  function UserSession: TUserSession;
  function IWServerController: TIWServerController;

implementation

uses
   various items defined here;

function IWServerController: TIWServerController;
begin
  Result := TIWServerController(WebApplication.Data);
end;

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


procedure TIWServerController.IWServerControllerBaseGetMainForm(var vMainForm: TIWBaseForm);
begin
  vMainForm := TMainForm.Create(WebApplication);
end;

procedure TIWServerController.IWServerControllerBaseNewSession(aSession := TIWApplication);
begin
  aSession := TUserSession.Creat(nil);
end;


procedure TUserSession.Destroy;
begin
  various items get destroyed here;
  inherited Destroy;
end;

end.