Ir para conteúdo
MarcosPeixoto

Delphi Berlim - Lentidão na Compilação Debug

Recommended Posts

Olá, 

 

De um tempo para cá, ao compilar o sistema em modo debug, passou a demorar bastante para abrir a aplicação, o que torna bastante improdutivo quando existe a necessidade de depurar processos. 

 

Utilizo o Delphi Berlim, Update 1, instalei o IDE Fix e FastDCC64 que teoricamente corrige bugs e otimiza carregamento do delphi. 
Utilizo componentes de terceiros como ACBr, FastReports, GExperts, JEDI, TMS, ActiveQueryBuilder, etc... 
O Sistema Operacional é Win 10, atualizado com versão 1803, Core i5, 8Gb, HD SSD. 
Minha estrutura é multicamadas, e no caso o servidor já está levantado. 

 

Monitorando no "Event Log" do delphi ao compilar, são apresentadas várias mensagens de carregamento de recursos de dlls e é nesse ponto que há uma lentidão enorme. 
São apresentadas mensagens "Module Load: " + nome da dll + " No Debug Info". Segue algumas linhas que são apresentadas como exemplo: 

 

Citar

 

Thread Start: Thread ID: 10400. Process NomeDaAplicacao.exe (6444) 
... 
Module Load: ntdll.dll. No Debug Info. Base Address: $77B00000. Process NomeDaAplicacao.exe (6444) 
Module Load: KERNEL32.dll. No Debug Info. Base Address: $76E10000. Process NomeDaAplicacao.exe (6444) 
Module Load: OLEAUT32.dll. No Debug Info. Base Address: $77970000. Process NomeDaAplicacao.exe (6444) 
... 
Thread Start: Thread ID: 1476. Process NomeDaAplicacao.exe (6444) 
Module Load: combase.dll. No Debug Info. Base Address: $76B40000. Process NomeDaAplicacao.exe (6444) 
Module Load: ClienteTek.dll. No Debug Info. Base Address: $0B6A0000. Process NomeDaAplicacao.exe (6444) 
Module Unload: ClienteTek.dll. Process NomeDaAplicacao.exe (6444) 
Module Load: ClienteTek.dll. No Debug Info. Base Address: $0B6A0000. Process NomeDaAplicacao.exe (6444) 
Module Unload: ClienteTek.dll. Process NomeDaAplicacao.exe (6444) 
... 

 

 

Notei que algumas dessa dlls são apresentadas mais de uma vez, me parecendo fazer carregamento das mesmas coisas repetidas vezes, suponho ser uma anormalidade. 

Para se ter uma idéia, para um dos meus menores módulos, o executável compilado em debug fica com cerca de 100Mb e leva aproximadamente 6 minutos para ser gerado. 
O mesmo executável compilado em modo release, fica com 8.8Mb, e leva menos de 1 minuto para ser gerado. 

 

Não consegui identificar ainda as causas disso. Alguém passou por essa situação ou tem alguma sugestão? 

 

Marcos

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

  • Conteúdo Similar

    • Por felk_fel@hotmail.com
      Boa tarde a todos!

      De vez em quando, acontece isso comigo, o Delphi compila a aplicação mas ela não roda ou fecha sozinha...Para resolver eu estou sempre tendo que fechar o delphi e criar uma nova aplicação. Alguém poderia me ajudar conforme o vídeo abaixo?

      https://www.youtube.com/watch?v=cFBJSS5yTN8

      Agradeço pela atenção.
    • Por Felipe Garciax
      Ola,
       
      Estou com o seguinte problema, no formulario principal do meu projeto tenho um SplitView e um Image em AlClient com uma imagem em 193 kb, ao abrir e fechar o SplitView em execucao a imagem PISCA, ja usei no OBJECT INSPECTOR o DoubleBuffered em TRUE tanto para o form quanto para o SplitView e o problema persiste, ja fiz o teste no codigo tanto para o EVENTO OnShow e OnCreat:
      DoubleBuffered :=True;  e nenhum resultado... Help Me
    • Por Flávio Marquim
      Meu notebook demora vários minutos para inicializar e durante o uso os navegadores também apresentam lentidão excessiva. Peço ajuda para solucionar.
       
      Seguem abaixo os logs para análise.
       
      Obrigado
       
       https://www.cjoint.com/c/IBguDIwjcgw
       
      https://www.cjoint.com/c/IBguELHUJZw
       
       
       
       
    • Por ericborrero
      Boa Noite a todos ....
       
      aguem pode me ajudar com esse código.... preciso que ele procure o menor valor e não o maior como esta aqui
       
       
       
      Procedure TfrmAvaliacao.PiorTempo;
      var
        ArrayString: Array [1 .. 5] of string;
        PiorTempo: string;
        i: Integer;
      begin
        ArrayString[1] := dbtext2.Caption;
        ArrayString[2] := dbtext4.Caption;
        ArrayString[3] := dbtext6.Caption;
        ArrayString[4] := dbtext8.Caption;
        ArrayString[5] := dbtext10.Caption;
        PiorTempo := EmptyStr;
          for i := low(ArrayString) to high(ArrayString) - 1 do
          if PiorTempo < ArrayString then
            PiorTempo := ArrayString;

        Label210.Caption := PiorTempo;
       
      end;
       
    • Por Remeling
      Ola pessoal,
      Estou fazendo um sistema web em Delphi xe8 Intraweb, coloco os objetos no form e quando vou compilar o sistema, aparece somente a pagina em branco, o que estou fazendo errado.
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.