testsharemem.dpr

delphi开发语言下的源代码分析

program TestShareMem;

{$APPTYPE CONSOLE}

uses
  QMemory,      // <-- Must be the first unit in the uses clause. Use in calling program only and NOT IN DLL!
                // <-- QMemory is 20% faster than Delphi's MemMgr
  ShareMemRep;

function AllocSpeedTest : LongWord;
  external 'TestDll.dll';
function SequentialAllocTest : LongWord;
  external 'TestDll.dll';
function ThreadAllocTest : LongWord;
  external 'TestDll.dll';

begin
  Writeln('Allocate 1000 random blocks of (4097 .. 10000) bytes 1000 times');
  Writeln('Time: ', AllocSpeedTest, ' ms, ok.');

  Writeln;
  Writeln('10 Threads Allocated');
  Writeln('Time: ', ThreadAllocTest, ' ms, ok.');
end.