36 |
|
procedure WriteDBInfo(DBInfo: IDBInformation); |
37 |
|
procedure WriteBytes(Bytes: TByteArray); |
38 |
|
procedure WriteOperationCounts(Category: string; ops: TDBOperationCounts); |
39 |
+ |
procedure WritePerfStats(stats: TPerfCounters); |
40 |
|
procedure CheckActivity(Attachment: IAttachment); overload; |
41 |
|
procedure CheckActivity(Transaction: ITransaction); overload; |
42 |
|
public |
560 |
|
WriteOperationCounts('Sequential Table Scans',getOperationCounts); |
561 |
|
isc_info_update_count: |
562 |
|
WriteOperationCounts('Update Count',getOperationCounts); |
563 |
+ |
isc_info_db_SQL_Dialect: |
564 |
+ |
writeln(OutFile,'SQL Dialect = ',getAsInteger); |
565 |
|
else |
566 |
|
writeln(OutFile,'Unknown Response ',getItemType); |
567 |
|
end; |
588 |
|
writeln(OutFile); |
589 |
|
end; |
590 |
|
|
591 |
+ |
procedure TTestBase.WritePerfStats(stats: TPerfCounters); |
592 |
+ |
begin |
593 |
+ |
writeln(OutFile,'Current memory = ', stats[psCurrentMemory]); |
594 |
+ |
writeln(OutFile,'Delta memory = ', stats[psDeltaMemory]); |
595 |
+ |
writeln(OutFile,'Max memory = ', stats[psMaxMemory]); |
596 |
+ |
writeln(OutFile,'Elapsed time= ', FormatFloat('#0.000',stats[psRealTime]/1000),' sec'); |
597 |
+ |
writeln(OutFile,'Cpu = ', FormatFloat('#0.000',stats[psUserTime]/1000),' sec'); |
598 |
+ |
writeln(OutFile,'Buffers = ', stats[psBuffers]); |
599 |
+ |
writeln(OutFile,'Reads = ', stats[psReads]); |
600 |
+ |
writeln(OutFile,'Writes = ', stats[psWrites]); |
601 |
+ |
writeln(OutFile,'Fetches = ', stats[psFetches]); |
602 |
+ |
end; |
603 |
+ |
|
604 |
|
procedure TTestBase.CheckActivity(Attachment: IAttachment); |
605 |
|
begin |
606 |
|
writeln(OutFile,'Database Activity = ',Attachment.HasActivity) |