Clipper On Line • Ver Tópico - Sistema Abortando

Sistema Abortando

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Sistema Abortando

Mensagempor Mario Mesquita » 28 Dez 2009 12:25

Olá e bom ano novo a todos.

Meu problema: Acabei de desenvolver o meu primeiro programa em HMG. A medida que criava um modulo, testava e passava ao proximo (é uma migração de um programa em Clipper). Agora, quando uso alguns módulos, o programa apenas fecha, sem mensagem ou aviso. Será que preciso configurar o computador para executar o sistema? O sistema está com 2236KB. Estou usando a versão 2.8.6f da minigui e xDev 0.70. Os pontos onde ocorre esse erro, por exemplo, são em duas buscas de arquivo usando getfile(). Mas no demo do getfile da pasta SAMPLES da HMG, ele roda. Parece algo como memoria insuficiente, sei lá...

Desde já, agradeço a ajuda de vocês.
Avatar de usuário

Mario Mesquita
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 557
Data de registro: 08 Dez 2009 12:47
Cidade/Estado: Rio de Janeiro
Curtiu: 73 vezes
Mens.Curtidas: 13 vezes

Re: Sistema Abortando

Mensagempor sygecom » 31 Jan 2010 12:47

Seja bem vindo Mario,
De qual exemplo você se refere ?
Está usando qual compilar do mesmo que acompanha a Minigui ?
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 7017
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 133 vezes

Re: Sistema Abortando

Mensagempor JAIR RANGEL » 02 Fev 2010 17:44

Olá a Todos !

Verifique os arquivos de índices de suas tabelas. Principalmente as primeiras tabelas abertas pelo seu programa.
Isto ocorre com o meu sistema quando algum índice CDX está corrompido. O programa fecha na hora em que vai abrir a tabela que tem referência ao CDX bichado.
Basta excluir o CDX e gerar um novo.
Dai volta ao normal.

Jair Rangel.
MINIGUI + HARBOUR + BRMAKE + CDX
CLIPPER 5.2E + VISUALLIB 2 + BLINKER
Avatar de usuário

JAIR RANGEL
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 177
Data de registro: 19 Jul 2005 16:01
Cidade/Estado: RIO DE JANEIRO
Curtiu: 1 vez
Mens.Curtidas: 2 vezes

Re: Sistema Abortando

Mensagempor luiz antonio da silva » 05 Fev 2010 18:47

de uma olhada no arquivo error.log ou errorlog.htm que foi criado na pasta do seu aplicativo, nele vc vai saber exatamente o que aconteceu de erro...

blz.
HMG 3.4.4 - SQL SERVER - ORACLE
luiz antonio da silva
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 161
Data de registro: 21 Nov 2006 21:12
Cidade/Estado: serrana-sp
Curtiu: 13 vezes
Mens.Curtidas: 10 vezes

Re: Sistema Abortando

Mensagempor Mario Mesquita » 05 Abr 2010 10:22

Olá a todos e boa páscoa (mesmo atrasado).

Em primeiro lugar, obrigado a todos pelas dicas, foram úteis. Fiquei um tempo sem mexer com a MiniGui, por estar com muito trabalho e retomei o meu projetinho há poucos dias. O que descobri é que todos os problemas estavam relacionados, acreditem, ao "OnGotFocus" nos formulários que apresentaram o problema de abortar. Como aconteceu?

A cada form que abro para uma determinada tarefa, abro as tabelas que vou usar nesse form/programa. Ao sair, executo uma função para fechar essas tabelas. E a apontei no OnGotFocus, que executa uma função ao tirar o foco do form. Aí se dava a falha. Ao repor o "NIL" no evento, tudo voltou ao normal. Agora, fiquei com um pepino: Como fechar as tabelas na saída do form? Dá pra desabilitar o botão de fechar o form ( "X" ) para forçar o uso de um botão "Sair"? Não me agrada a idéia de deixar as tabelas abertas o tempo todo e/ou desnecessariamente.

Qualquer dica, agradeço desde já.
Avatar de usuário

Mario Mesquita
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 557
Data de registro: 08 Dez 2009 12:47
Cidade/Estado: Rio de Janeiro
Curtiu: 73 vezes
Mens.Curtidas: 13 vezes

Re: Sistema Abortando

Mensagempor asimoes » 05 Abr 2010 19:05

Olá,

Ficaria assim:

DEFINE WINDOW fTeste ;
AT 0,0 ;
WIDTH 455 ;
HEIGHT 445 ;
TITLE "JANELA TESTE" ;
ICON "ICON_CLOCK";
MODAL;
NOSYSMENU; // Aqui você inibi os botões do form.
NOSIZE;
ON INIT {||Bandeja()};
ON RELEASE Fechar() // Aqui você pode fechar as tabelas.

[]S
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Re: Sistema Abortando

Mensagempor Mario Mesquita » 06 Abr 2010 09:16

Bom dia.

Asimoes, deu certo. Obrigado, valeu mesmo.
Avatar de usuário

Mario Mesquita
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 557
Data de registro: 08 Dez 2009 12:47
Cidade/Estado: Rio de Janeiro
Curtiu: 73 vezes
Mens.Curtidas: 13 vezes

Re: Sistema Abortando

Mensagempor alxsts » 06 Abr 2010 12:06

Olá!
Mario Mesquita escreveu:Dá pra desabilitar o botão de fechar o form ( "X" ) para forçar o uso de um botão "Sair"?

Desculpem a intromissão pois não conheço a matéria. É que achei drástica a opção de desabilitar o botão fechar do form.

Fiquei curioso para saber se nessa biblioteca não tem como determinar o modo em que o form foi fechado. No Visual Basic, por exemplo, existe o evento Form_QueryUnload(Cancel As Integer, UnloadMode As Integer). O parâmetro UnloadMode indica esse modo.

Não seria possível detectar isso através do ON_RELEASE?
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2945
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes

Re: Sistema Abortando

Mensagempor Mario Mesquita » 07 Abr 2010 10:38

Bom dia a todos!

AlxSts tem razão! O burrinho aqui usou o evento "OnGotFocus" e deu meleca. No meu caso, para o "OnRelease", tive que dividir a função de saida, pois pela função ativada pelo botão "Sair", já tinha um "Release" explícito do Form, causando um erro de execução, imagino devido a um tipo de redundância. Então fiz a função com Release pro botão "Sair" e uma sem Release para o "X" do Form. Fiz apenas em um Form, vou testar os outros, se der zebra, aviso aqui.

Fica aí a luz do Alx. Valeu!

OBS: Asimoes tinha desenhado isso na sua amostra de código, mas eu não tinha "pescado". Valeu, de novo!
Avatar de usuário

Mario Mesquita
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 557
Data de registro: 08 Dez 2009 12:47
Cidade/Estado: Rio de Janeiro
Curtiu: 73 vezes
Mens.Curtidas: 13 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 2 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro