gibaf Posted March 20, 2012 Report Share Posted March 20, 2012 Joao Santos ??? Primeiramente, obrigado pela ajuda/dica. Segundamente, o "senhor" o carai...kkkkk Terceiramente, ate posso enviar o .prg, mas acho q vai ser dificel, ja q te mais de 13200 linhas, alem de precisar de outras funcoes do sistema. mas, obrigado mesmo !!! Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 20, 2012 Report Share Posted March 20, 2012 citação:Joao Santos ??? Primeiramente, obrigado pela ajuda/dica. Segundamente, o "senhor" o carai...kkkkk Terceiramente, ate posso enviar o .prg, mas acho q vai ser dificel, ja q te mais de 13200 linhas, alem de precisar de outras funcoes do sistema. mas, obrigado mesmo !!! Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) id=quote>id=quote>Então, lamento não posso ajudá-lo muito. Como sou desconfiado por natureza e sempe acho que a "falha" é do programador, vou ficar achando que o erro é seu. Mas, verifique todos os: WHILE... SYSREFRESH() // COLOQUE ENDDO Ao sair de todos os DIALOGOS, feche fontes e brushs se tiver. oFnt:End() oFont:End() obrush:End() e de um RELEASE ALL para ver se melhora o desempenho. Abs, na saida do programa principal: FUNCTION FECHAR_TUDO() DbCloseAll() FreeResources() Release All Memory(-1) PostQuitMessage( 0 ) SysRefresh() /*limpia arreglo y llama al colecor de basura de xharbour*/ //-> Lixeira hb_gcAll() __QUIT() RETUN NIL id=code>id=code> João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
gibaf Posted March 21, 2012 Report Share Posted March 21, 2012 Joao Santos ??? Obrigado pelas dicas e compreencao... Quando eh saido da App uso os comandos do FECHAR_TUDO()... Mas, o problema q esta acontencendo (usando o TS) eh sempre ao adicionar um novo item na nota fiscal de entrada. Mas detalhe, sempre quando a nota tem tipo, 50 itens ou mais. []'s Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 21, 2012 Report Share Posted March 21, 2012 citação:Joao Santos ??? Obrigado pelas dicas e compreencao... Quando eh saido da App uso os comandos do FECHAR_TUDO()... Mas, o problema q esta acontencendo (usando o TS) eh sempre ao adicionar um novo item na nota fiscal de entrada. Mas detalhe, sempre quando a nota tem tipo, 50 itens ou mais. []'s Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) id=quote>id=quote>Estranho, já analisou a rotina?? Como é a lógica? João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
gibaf Posted March 21, 2012 Report Share Posted March 21, 2012 Joao ??? tem um e-mail q posso te mandar o fonte ? Obrigado Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 21, 2012 Report Share Posted March 21, 2012 citação:Joao ??? tem um e-mail q posso te mandar o fonte ? Obrigado Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) id=quote>id=quote>Joao@pleno.com.br Mande zipado, pois o windows live não aceita .prg João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196 FWH 2.7 - xHARBOUR WorkShop.Exe Editado por - kapiaba on 21/03/2012 08:56:48 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 21, 2012 Report Share Posted March 21, 2012 Gilberto, foi pra conta... leia com calma. abraços. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
netspeed Posted March 23, 2012 Report Share Posted March 23, 2012 Olá Amigos, A única solução que encontrei foi em dot.net utilizando uma função kernel32 do windows chamada SetProcessWorkingSetSize. O consumo de memória é baixado drasticamente. Não sei como utilizar esta função em xHarbour. Ederson Araujo de Souza NETSPEED Informática (17) 3237.1184 www.netspeed.com.br FWH 9.04/XHARBOUR 1.2.1/xDev 7.0/PELLESC 6.0/RPV REPORT 5.3.8 Quote Link to comment Share on other sites More sharing options...
gilmer Posted March 23, 2012 Report Share Posted March 23, 2012 Boa Tarde, Documentação da MSDN http://msdn.microsoft.com/en-us/library/windows/desktop/ms686234(v=vs.85).aspx É facilmente declarado em C ou com chamada da DLL, porem, esta função apenas limita o mÃnimo e máximo. Abraços e-mail: gilmer@fivewin.com.br msn: fivewinbrasil@hotmail.com Quote Link to comment Share on other sites More sharing options...
netspeed Posted March 23, 2012 Report Share Posted March 23, 2012 Olá Gilmer. Estou passando -1 nos dois parâmetros. O consumo de memória baixou e a aplicação continuou funcionando normalmente. Ederson Araujo de Souza NETSPEED Informática (17) 3237.1184 www.netspeed.com.br FWH 9.04/XHARBOUR 1.2.1/xDev 7.0/PELLESC 6.0/RPV REPORT 5.3.8 Quote Link to comment Share on other sites More sharing options...
vagner Posted March 23, 2012 Report Share Posted March 23, 2012 citação:Olá Gilmer. Estou passando -1 nos dois parâmetros. O consumo de memória baixou e a aplicação continuou funcionando normalmente. Ederson Araujo de Souza NETSPEED Informática (17) 3237.1184 www.netspeed.com.br FWH 9.04/XHARBOUR 1.2.1/xDev 7.0/PELLESC 6.0/RPV REPORT 5.3.8 id=quote>id=quote>Olá Ederson, Como vc usou, para eu não adiantou nada Vagner Wirts "Ele não sabendo que era impossÃvel, foi lá e fez" Quote Link to comment Share on other sites More sharing options...
netspeed Posted March 25, 2012 Report Share Posted March 25, 2012 Olá Vagner. A sintaxe em dot.net é esta que está abaixo. Fiz um timer e estou executando uma função de uma dll dot.net que desenvolvi. SetProcessWorkingSetSize(Process.GetCurrentProcess().Handle, -1, -1) Testei um código existente no forum internacional utilizando a mesma função do kernel32 mas não funcionou. Creio que o problema está na função que captura o handle do processo atual. Ederson Araujo de Souza NETSPEED Informática (17) 3237.1184 www.netspeed.com.br FWH 9.04/XHARBOUR 1.2.1/xDev 7.0/PELLESC 6.0/RPV REPORT 5.3.8 Quote Link to comment Share on other sites More sharing options...
lecojales Posted March 26, 2012 Report Share Posted March 26, 2012 citação:Continuamos com o problema, após fechar uma dialog nao esta liberando na memoria, e sim ficando acumulado. Este problema vem de longa data, mas agora com este monte de coisas novas do FW, passa a preocupar. "Não faça para o proximo o que não quer para sà mesmo!" id=quote>id=quote> Olá S.A.Oliveira, bom dia. Não sei se isso pode lhe ajudar, mas depois de muito brigar com isso, eu cheguei a conclusão, que este problema não é nas fariações, ou seja, hwgui, wvwtools ou fivewim. Pois já escutei reclamações, de todos os usuario, em eu particular uso wvwtools e hwgui. Nossos amigos tem razão em dizer que isso não acontece, mas eu digo, isso não acontece com eles. Eu cheguei a filmar a tela do sistema trabalhando. Cara é inacreditável, após uma hora de uso fica insuportável, de lento. Sai do sistema entra novamente rica rápido. Eu acredito que é algo que estou fazendo de errado, só não sei o que? Estou na luta. Desisti de fazer algo neste momento, estou correndo atrás de outras coisas. Mas se eu puder ajudar, estou a disposição. Leco Jales Five PPC Harbour 1.0.1 - 1999-2008 Quote Link to comment Share on other sites More sharing options...
trufelli Posted April 9, 2012 Report Share Posted April 9, 2012 citação:Olá Vagner. A sintaxe em dot.net é esta que está abaixo. Fiz um timer e estou executando uma função de uma dll dot.net que desenvolvi. SetProcessWorkingSetSize(Process.GetCurrentProcess().Handle, -1, -1) Testei um código existente no forum internacional utilizando a mesma função do kernel32 mas não funcionou. Creio que o problema está na função que captura o handle do processo atual. Ederson Araujo de Souza NETSPEED Informática (17) 3237.1184 www.netspeed.com.br FWH 9.04/XHARBOUR 1.2.1/xDev 7.0/PELLESC 6.0/RPV REPORT 5.3.8 id=quote>id=quote>Olá Ederson Você poderia explicar o que exatamente vc fez nessa função Process.GetCurrentProcess().Handle e em que local do sistema voce usou a SetProcessWorkingSetSize() Obrigado Antenor FW 10.09 / [xHarbour] 0.99 / BCC582 xDev 0.65 Quote Link to comment Share on other sites More sharing options...
qiinfo Posted April 9, 2012 Report Share Posted April 9, 2012 Olá pessoal, Vejam se isto resolve algo pra vocês: function MAIN ... SetProcessP( -1, -1, -1 ) ... return NIL DLL32 Function SetProcessP( hWnd As LONG, nMinWorkingSpace As LONG, nMaxWorkingSpace As LONG ) ; As LONG PASCAL From "SetProcessWorkingSetSize" Lib "Kernel32.dll" id=code>id=code>Abraços, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour Editado por - qiinfo on 09/04/2012 22:53:50 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.