Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]


Groups > comp.programming > #4455

AWE was updated to version 1.3

From aminer <aminer@toto.net>
Newsgroups comp.programming
Subject AWE was updated to version 1.3
Date 2014-05-26 18:12 -0700
Organization albasani.net
Message-ID <lm0e72$hdl$1@news.albasani.net> (permalink)

Show all headers | View raw


Hello,


AWE was updated to version 1.3

Author: Amine Moulay Ramdane


Description:

Why the 2 GB limitation on the Win 32bits systems ?

My AWE object pascal module is here, it allows your application to use 
up to 64GB of RAM.


You can download my AWE version 1.3 from:

https://sites.google.com/site/aminer68/windows-awe


And here is the public interfaces of TAWEMem and TAWEStream classes, i 
have implemented the following methods:



TAWEStream = class

public

Memory:pointer;
allocated:boolean;
Size:longword;
position:longint;
PageSize:integer;

constructor Create(ulBytes: longint);
destructor Destroy(); override;

function HowManyPagesAllocated(): ulong;
function Seek(Offset: longint; Origin: Word): longint;
function CopyFrom(in_stream:TStream;count:longint):longint;
function CopyTo(out_stream:TStream;count:longint):longint;
function Read(var Buffer;count:longint):longint;
function Write(const Buffer;count:longint):longint;
procedure LoadFromStream(in_stream: TStream);
procedure LoadFromFile(const FileName: string);
function ToString:string;

published

property TotalMem:int64 read gettotalmem;
property AvailMem:int64 read getavailmem;
property MemLoad:int64 read getmemload;

end;

TAWEMem = class

public

memory:pointer;
allocated:boolean;
Size:lonword;
PageSize:integer;

constructor Create(ulBytes: ULONG);
destructor Destroy(); override;
function HowManyPagesAllocated(): ULONG;

end;

Note: To be able to use AWE you have to set the user rights correctly, 
so, go to:

Control Panel -> Administrative tools -> Local Security Policy -> User 
Rights Assignment and give 'Lock pages in memory' right to the user that 
wants to use AWE and reboot the system..

Every TAWEMem object can go up to 2GB of memory and every TAWEStream can 
go up to 2GB of memory, and you can go up to 64GB of memory !


And please look at the test examples 'test.pas' and 'test1.pas' inside 
the zipfile - compile and execute them... -


Language: FPC Pascal v2.2.0+ / Delphi 7+: http://www.freepascal.org/

Operating Systems: Windows 2000 and up (x86).

Required FPC switches: -O3 -Sd -dFPC -dWin32 -dFreePascal

-Sd for delphi mode....

Required Delphi switches: -DMSWINDOWS -$H+

For Delphi use -DDelphi



Thank you,
Amine Moulay Ramdane.

Back to comp.programming | Previous | Next — Next in thread | Find similar | Unroll thread


Thread

AWE was updated to version 1.3 aminer <aminer@toto.net> - 2014-05-26 18:12 -0700
  Re: AWE was updated to version 1.3 aminer <aminer@toto.net> - 2014-05-26 18:16 -0700
  Re: AWE was updated to version 1.3 aminer <aminer@toto.net> - 2014-05-26 18:35 -0700
  Re: AWE was updated to version 1.3 aminer <aminer@toto.net> - 2014-05-26 18:40 -0700
  Re: AWE was updated to version 1.3 aminer <aminer@toto.net> - 2014-05-26 18:54 -0700

csiph-web