testsharemem.dpr

来自「Sharemem replacement for Delphi. Fast, 」· DPR 代码 · 共 32 行

program TestShareMem;

{$APPTYPE CONSOLE}

uses
  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('Sequentially Allocate 10 times. IsMultiThread: ', IsMultiThread);
  Writeln('Time: ', SequentialAllocTest, ' ms, ok.');
  Writeln;

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

  Writeln('Sequentially Allocate 10 times. IsMultiThread: ', IsMultiThread);
  Writeln('Time: ', SequentialAllocTest, ' ms, ok.');

end.