Carga do programa em memória

[09466261000176]

Olá a todos.

Estou com um problema que não consigo resolver.

Criei um programa que acessa o banco em local remoto. Uso MYSQL. Quando eu executo ele em acesso remoto, o bicho fica estranho. Observo que ele demora mais para acessar o banco. Até ai considero normal, uma vez que ele dependerá da velocidade da insternet. O estranho é que quando mando encerrar, ele fica pendurado na memória por um porrão de tempo até encerrar de vez. Andei observando pelo gerenciador de processos do windows, que quando ele é executado, carrega em segundo plano e depois de algum tempo (tempo demais) ele aparece em aplicativo na memoria. Para encerrar é o mesmo problema. Que diabo é isso?

[JoséQuintas]

Depende do que fez no programa.
compilou modo console em modo GUI? Se fez isso não vai ter tela.
Colocou pra abrir o servidor no início do programa? se colocou, vai tentar abrir até conseguir ou dar erro antes de continuar a execução e mostrar tela.
Dependendo do conector de MySql, demora mais.

[09466261000176]

Procedimento de execução.
T_IP_SERVER :='75.126.217.223'
T_BANCO_DAD := 'egrconsu_autoescolas4'
T_IP_SERVER := R_IniRead( "DBASES", "IP_SERVER", "", "C:\PROJETO_AUTOESCOLAS\DB_DADOS.INI", .T. )
T_BANCO_DAD := R_IniRead( "DBASES", "DB_BANCO" , "", "C:\PROJETO_AUTOESCOLAS\DB_DADOS.INI", .T. )
*--------------------------------------------------------------------------------------------------------------------------------
SQL CONNECT ON (TRIM(T_IP_SERVER));
PORT 3306;
DATABASE (TRIM(T_BANCO_DAD));
USER T_USER;
PASSWORD T_PASSWORD;
OPTIONS SQL_NO_WARNING;
LIB 'MySQL'
IF SQL_ErrorNO() > 0
MsgStop( "Não Foi Possível Conectar ao Banco de Dados! entre em Contato com o Suporete 12-3301-5094","CPMG Consultoria Em Sistemas")
QUIT
ENDIF

rddSetDefault('mysql') ->Assim que eu abro o banco

E dentro deste fonte eu implemento a tela de login e o menu principal de onde aciono as sub rotinas de acordo com o que for clicado

[fladimir]

Eu Harbour Console estou usando a lib hbmysql da contrib e não estou tendo esse tipo de problema, o q eu faço é após não precisar mais do objeto q carreguei com a conexão do Mysql mandar executar o método Destroy(), assim por exemplo:

Código: Selecionar todos

//-- No início chamo assim
   oServer := TMySQLServer():New( cServer, cUsuario, cSenha, nPorta )

...


//-- Depois no final assim:
   oServer:Destroy()

Agora no teu caso ai não seria algo semelhante, tipo liberar o objeto ou algo do tipo?

[]´s

[09466261000176]

Acredito que sim. Vou implementar! obrigado...

[09466261000176]

Sim de fato é procedente o que me disseste. Ainda neste passo, gostaria de tirar uma duvida...