Camaradas,
Vou falar um pouco sobre o projeto Benchmark que está disponível no fórum da DevPartners.
Para que serve o projeto Benchmark?
-
O projeto começou de uma brincadeira entre amigos para desenvolver o algoritmo mais rápido de criação de arranjos, então surgiu a necessidade de termos um sistema de quantificação de tempo utilizado, um benchmark, foi ai que eu comecei a escrever o projeto Benchamark.
Um Benchmark serve para medir uma grandeza matemática que servirá para comparação ou avaliação.
Exemplo:
Frames por segundo em um jogo de computador, a grande maioria dos benchmarks são feitos para comparar o desempenho entre duas ou mais placas de vídeo.
O projeto Benchmark servirá no meu aplicativo?
-
Claro, o projeto Benchmark foi feito para não ser dependente de nada, é só colocar no seu projeto e utilizar quando necessário.
Como faço para fazer um Benchmark de uma processo dentro do meu aplicativo?
-
Primeiro você deve baixar o código-fonte do projeto Benchmark para sua máquina, acessando o fórum do projeto, http://devpartners.projects.pro.br/forum/?board=4.
Uma pequena ajuda foi escrita para você que não conhece bem o Subversion:
Como baixar um projeto pelo Subversion.
Logo que tiver o código do Benchmark na sua máquina, acesse a pasta do Benchmark e copie o arquivo pasBenchmark.pas ( Benchmark\source\ ) para o diretorio de Lib do seu Delphi ( essa dica é para facilitar a implementação em outros projetos também, se você entende um pouco mais do esquema de diretórios do Delphi você poderá adicionar a Unit como uma biblioteca ), o diretório Lib do Delphi 7 é o:
C:\Arquivos de programas\Borland\Delphi7\Lib
Feito isso, você deve editar seu projeto em apenas 2 partes:
Exemplo:
| Delphi | | copy code | | ? |
| 01 | |
| 02 | unit Unit1; |
| 03 | { ... } |
| 04 | |
| 05 | var |
| 06 | Form1: TForm1; |
| 07 | |
| 08 | implementation |
| 09 | |
| 10 | uses pasBenchmark; |
| 11 |
| Delphi | | copy code | | ? |
| 01 | procedure TForm1.ConnectToServer; |
| 02 | begin |
| 03 | { ... processo que conecta em um servidor de dados ... } |
| 04 | end; |
| 05 | |
| 06 | procedure TForm1.btnRunClick(Sender: TObject); |
| 07 | begin |
| 08 | Benchmark.StartBenchmarking('Benchmark de conexão com o servidor'); |
| 09 | try |
| 10 | ConnectToServer; |
| 11 | except |
| 12 | end; |
| 13 | Benchmark.EndBenchmarking; |
| 14 | end; |
Ao executar o aplicativo e executar o processo, você verá que uma janela abrirá, exibindo as informações do Benchmark, com um resultado semelhante ao exemplificado abaixo:
1º Benchmark de conexão com o servidor
Benchmark start at : 26/07/2008 11:54:26
\___ runned under 550.587,964276 ms
O que nos informa que a conexão com o servidor de dados demorou 550.587 milisegundos, algo en torno de 0,5 segundos.
Aonde posso obter mais exemplos de como usar?
-
Logo que você copiar os arquivos do projeto para sua máquina atravez do Subversion, você poderá acessar as demonstrações que acompanham o projeto na pasta Benchmark\demos
Espero que o projeto ajude mais gente como já me ajudou algumas vezes.
Abraço a todos
Tags: Benchmark, Delphi, EndBenchmarking, StartBenchmarking