SET SQL DIALECT 3;

SET NAMES UTF8;

CREATE DATABASE 'DB.fdb'
USER 'SYSDBA'
PAGE_SIZE 16384
DEFAULT CHARACTER SET UTF8 COLLATION UTF8;

SET TERM ^ ;

CREATE OR ALTER PROCEDURE SP (
    P_TIME TIMESTAMP,
    P_DATA VARCHAR(32000) CHARACTER SET OCTETS)
AS
BEGIN
  EXIT;
END^

SET TERM ; ^

const
  TransParamsRW = 'wait;write;read_committed;rec_version';
{<<specific}
  SQL = 'EXECUTE PROCEDURE SP(:P_TIME, :P_DATA)';
  DataLength = 6000;
var
  RandomData: TBytes;
{specific>>}

implementation

{$R *.dfm}

{<<specific}
procedure TForm1.Init;
var i: Integer;
begin
  IBSQL.SQL.Text := SQL;
  SetLength(RandomData, DataLength);
  for i := Low(RandomData) to High(RandomData) do
    RandomData[i] := Random(High(Byte));
end;

procedure FillParams(IBSQL: TIBSQL);
begin
  IBSQL.ParamByName('P_TIME').Value := Now;
  IBSQL.ParamByName('P_DATA').AsBytes := RandomData;
end;
{specific>>}

procedure TForm1.btnStartClick(Sender: TObject);
var
  ReqsPerTx, ReqCount, Interval: Integer;
  StartTick, EndTick: Cardinal;
begin
  if IBDatabase.DatabaseName <> eDB.Text then
    IBDatabase.Connected := False;

  if not IBDatabase.Connected then
  begin
    IBTransaction.Params.Delimiter := ';';
    IBTransaction.Params.DelimitedText := TransParamsRW;
    IBDatabase.DatabaseName := eDB.Text;
    IBDatabase.Params.Values['user_name'] := Copy(eLogin.Text, 0, Pos(':', eLogin.Text) - 1);
    IBDatabase.Params.Values['password'] := Copy(eLogin.Text, Pos(':', eLogin.Text) + 1, MaxInt);
    IBDatabase.Params.Values['sql_role_name'] := eRole.Text;
    Init;
    IBDatabase.Connected := True;
  end;
  ReqsPerTx := StrToInt(eReqPerTx.Text);
  Interval := StrToInt(eInterval.Text);
  Cancel := False;
  IBSQL.Transaction.StartTransaction;
  Log('== Start with ReqPerTx ' + eReqPerTx.Text);
  while not Cancel do
  begin
    StartTick := GetTickCount;
    ReqCount := 0;
    repeat
      FillParams(IBSQL);
      IBSQL.ExecQuery;
      Inc(ReqCount);
      if ReqCount mod ReqsPerTx = 0 then
      begin
        IBSQL.Transaction.Commit;
        IBSQL.Transaction.StartTransaction;
      end;
      EndTick := GetTickCount;
    until EndTick - StartTick > Interval;
    Log(Format('Req: %d, ReqPerSec: %.2f', [ReqCount, ReqCount*MSecsPerSec / (EndTick - StartTick)]));
    Application.ProcessMessages;
  end;
  IBSQL.Transaction.Commit;
  Log('== Finish');
end;