Eduardo Bilato

Eu sou eu, o eco é o eco hauhauhau Trabalhamos juntos na mesma empresa e na mesma equipe

Win 10 64 bits - original Compilei e "subiu" instantaneamente

Não Aqui, independe da função chamada, vai levar 40 segundos pra aparecer... Imagine que o sistema não faça nada além de exibir uma msginfo('Teste') na função principal, sem vínculo nenhum com as funções do sistema. Ao chamar o sistema, a mensagem 'Teste' vai levar 40 segundos pra ser exibida. Por essa razão digo que não tem relação com o que estou fazendo na inicialização do sistema, mas sim com o tamanho do executável ou com número de funções que existem no sistema ou qualquer outra coisa.. não sei... O interessante é que no gerenciador de tarefas o sistema é carregado imediatamente, mas demora para exibir a primeira tela Em máquinas diferentes.

Caros, bom dia Tenho um sistema que atingiu o tamanho de 32mb. Ao chamar esse sistema, leva cerca de 40 segundos para exibir a tela de login. Cheguei a retirar todas as funções chamadas antes da tela de login pra verificar se era uma delas que interferia na inicialização, mas mesmo chamando somente a tela de login levou 40 segundos. Utilizei o UPX.exe pra compactar o executável e o tempo de aparição da tela de login continuou os mesmos 40 segundos. Alguém já passou por esse problema? Sabem alguma forma de diminuir esse tempo de inicialização?

Compilo meu executável com um arquivo.RC pra ficar com um visual de Win XP. Se eu não faço isso, meu executável fica com um visual do Win 98. O que eu quero é compilar com um arquivo.RC que o deixe com um visual do Win 10. Na verdade, o que gostaria que ficasse com a cara do win10 são os menus e as MDI.

Não tentei Rochinha Abri os os fontes e vi que usavam algumas funções não suportadas pelo meu FW/xHarbour Uso a versão 08.01 do FW por conta da libMySql.dll

Minha versão do FiveWin é a 08.01... existe alguma versão dessa FiveUI para essa versão do FiveWin?

Segue imagem: https://photos.app.goo.gl/jcnDggcFPvMcVtFw9

Me refiro à cor dos menus "Consultas" e "Cadastros" dessa imagem

mas que bósnia... e quanto ao foco do menu ficar na cor Amarelo/Alaranjado? Isso também não tem solução?

Não deu certo... continua com a mesma aparência ainda

O arquivo .RC que me refiro tem o mesmo conteúdo citado neste post:

Caros, boa tarde Eu uso um arquivo .RC, compilado junto ao sistema, para dar um visual de Windows XP às janelas, menus, etc. Alguém saberia como ou onde obter um arquivo RC para que o sistema fique com um visual do Windows 10? Desde já, muito obrigado

Olá a todos. Gostaria de saber se alguém ainda consegue, hoje em 2018, utilizar o CobreBem para envio de boleto POR EMAIL. Vi vários exemplos na internet, converti, testei, etc, mas não gera erro e nem envia e-mail. Tentei com contas do Google, Microsoft e e-mail interno, mas nada funcionou. Vi várias postagens mais antigas, coisa de 2010, que funcionava muito bem essa funcionalidade, mas estou tentando pôr no sistema isso hoje, mas não tive sucesso. Detalhe: Tenho um programa específico para envio de e-mail, e utilizo minha conta Google com a porta 465, mas se utilizo essa mesma conta no CobreBem com a porta 465, gera erro no método EnviaBoletosPorEmail(). Se eu uso a porta 587, não gera erro, mas também não envia o e-mail. Segue abaixo o código que estou usando: * * * ECO 04/04/2018 * FUNCTION Teste(nNRBC,cCART) LOCAL cSQL LOCAL cDll := '\DLL\CobreBemX.dll' LOCAL cCNPJ LOCAL cArqLicenca LOCAL aSQL LOCAL hOldDll LOCAL hDll LOCAL oCbx LOCAL oBoleto LOCAL oEmailSacado LOCAL lErro:=.F. IF EMPTY(nNRBC) .OR. EMPTY(cCART) RETURN ENDIF IF !FILE(cDll) MSGSTOP('A DLL '+cDll+' não foi encontrada. Não é possível gerar preview do boleto...','ATENÇÃO') RETURN ENDIF hOldDll:=GetResources() hDll :=LoadLib32(cDll) ************** BEGIN SEQUENCE ************** IF hDll <= 32 MSGSTOP('Não foi possível inicializar a DLL '+cDll+'. Não é possível gerar preview do boleto...','ATENÇÃO') BREAK ENDIF cSQL:='SELECT CNPJ DO CLIENTE' aSQL:=sqlArray(cSQL) IF EMPTY(aSQL) MSGALERT('Erro ao obter dados da empresa logada, verifique !','ATENÇÃO') BREAK ENDIF cCNPJ:=STRZERO(VAL(aSQL[01,01]),14) cArqLicenca:='\Licenca\' + cCNPJ + '-' + STRZERO(nNRBC,3) + '-' + ALLTRIM(cCART)+'.conf' IF !FILE(cArqLicenca) MSGALERT("Arquivo de Licença para a carteira '"+ALLTRIM(cCART)+"' do banco '"+STRZERO(nNRBC,3)+"' não foi encontrado!","ATENÇÃO") BREAK ENDIF oCbx:=TOleAuto():New('CobreBemX.ContaCorrente') IF VALTYPE(oCbx) != 'O' MSGINFO('Erro ao tentar inicializar componente.','ATENÇÃO') BREAK ENDIF oCbx:ArquivoLicenca:=cArqLicenca oCbx:PadroesBoleto:PadroesBoletoImpresso:CaminhoImagensCodigoBarras := '\VSIS\'+SIGLC+'\COBREBEM\Imagens\' oCbx:PadroesBoleto:PadroesBoletoImpresso:LayoutBoleto:='Padrao' oCbx:PadroesBoleto:Demonstrativo := "DEMONSTRATIVO TESTE" oCbx:LocalPagamento := 'LOCAL DE PAGAMENTO' oBoleto:=oCbx:DocumentosCobranca:Add() oBoleto:DataDocumento := DTOC(DATE_SYS()) oBoleto:DataVencimento := DTOC(DATE_SYS()+30) oBoleto:NumeroDocumento := '12345' oBoleto:ValorDocumento := 19.00 oBoleto:TipoDocumentoCobranca := 'DMI' oBoleto:NossoNumero := '10000000' oBoleto:CNPJSacado := ALLTRIM(DSP(99999999999999,"C","J")) oBoleto:NomeSacado := "NOME DO SACADO" oBoleto:EnderecoSacado := "ENDERECO DO SACADO" oBoleto:BairroSacado := "BAIRRO DO SACADO" oBoleto:CidadeSacado := "CIDADE DO SACADO" oBoleto:EstadoSacado := "UF" oBoleto:CepSacado := 99999999 oBoleto:SacadorAvalista := "SACADOR/AVALISTA" oBoleto:PadroesBoleto:InstrucoesCaixa = "<br><br>Não cobrar juros e multa após o vencimento" oCbx:PadroesBoleto:PadroesBoletoEmail:LayoutBoletoEmail:='PadraoImpressao' oCbx:PadroesBoleto:PadroesBoletoEmail:URLLogotipo:='http://www.cobrebem.com/imagenscbe/341.jpg' oCbx:PadroesBoleto:PadroesBoletoEmail:URLImagensCodigoBarras:='http://www.cobrebem.com/imagenscbe/' oCbx:PadroesBoleto:PadroesBoletoEmail:PadroesEmail:CopiaFrom:=.T. oCbx:PadroesBoleto:PadroesBoletoEmail:PadroesEmail:CopiaReply:=.F. oCbx:PadroesBoleto:PadroesBoletoEmail:PadroesEmail:FormaEnvio:=1//feeSMTPBoletoHTML $00000000 oCbx:PadroesBoleto:PadroesBoletoEmail:PadroesEmail:Mensagem:='Corpo do e-mail' oCbx:PadroesBoleto:PadroesBoletoEmail:PadroesEmail:Assunto:='Assunto' oCbx:PadroesBoleto:PadroesBoletoEmail:PadroesEmail:EmailFrom:Endereco:='email@email.com' oCbx:PadroesBoleto:PadroesBoletoEmail:SMTP:Servidor:='smtp.gmail.com' oCbx:PadroesBoleto:PadroesBoletoEmail:SMTP:Porta:=465//465 oCbx:PadroesBoleto:PadroesBoletoEmail:SMTP:Usuario:='email@email.com' oCbx:PadroesBoleto:PadroesBoletoEmail:SMTP:Senha:='senha' oEmailSacado:=oBoleto:EnderecosEmailSacado:Add() oEmailSacado:Nome:='Zé' oEmailSacado:Endereco:='destino@gmail.com' lErro:=.F. *** TRY *** oCbx:EnviaBoletosPorEmail() ********** CATCH oErr ********** //F_ERRO(oErr,.T.) lErro:=.T. ********** END ********** IF lErro ?'Erro' ELSE ?'Sucesso' ENDIF ************ END SEQUENCE ************ FreeLib32(hDll) SetResources(hOldDll) RETURN

Theotokos, boa tarde Chegou a verificar se o cliente está usando o tema clássico do windows ? Tive problema com isso recentemente em que uma tela transparente ficava perfeita no Win 10 e no XP ficava um retângulo preto... ao verificar, constatei que o tema clássico desabilita algumas propriedades gráficas e interfere no bPaint da tela