Uso de WinGetOpenFileName() fechando o sistema

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Avatar do usuário
ANDRIL
Usuário Nível 5
Usuário Nível 5
Mensagens: 1297
Registrado em: 06 Jul 2004 00:44
Contato:

Uso de WinGetOpenFileName() fechando o sistema

Mensagem por ANDRIL »

Estou tendo um problema no uso da função WINGETOPENFILENAME() utilizada para escolher um arquivo.

O problema foi notado uns 3 dias atrás quando no GET chamo a função para selecionar um arquivo, o sistema é fechado pelo Windows com a mensagem que parou de funcionar. Isso esta ocorrendo apenas no meu PC de desenvolvimento, nos demais está funcionando corretamente.
Nome do Evento de Problema: APPCRASH
Nome do Aplicativo: mak2.exe
Versão do Aplicativo: 0.0.0.0
Carimbo de Data/Hora do Aplicativo: 64077c02
Nome do Módulo de Falhas: ntdll.dll
Versão do Módulo de Falhas: 6.1.7601.24168
Carimbo de Data/Hora do Módulo de Falhas: 5b1aa758
Código de Exceção: c0000005
Deslocamento de Exceção: 00031d26
Versão do sistema operacional: 6.1.7601.2.1.0.256.1
Identificação da Localidade: 1046
Informações Adicionais 1: 561d
Informações Adicionais 2: 561d4f698198feee33110047eba8e71d
Informações Adicionais 3: c169
Informações Adicionais 4: c169f2e484727b9a463abb8d7425b661
Suspeito de uma queda de energia que ocorreu, porem meus pontos de restaurações do sistema Windows, são mais recentes que a data da queda .
Não foi nenhuma alteração feita no sistema (ainda bem) comprovei rodando versão de 1 ano atrás no PC e causando o mesmo problema.

Notei que não só esta função mais também outra que utilizo para selecionar PASTA dá o mesmo erro, é algo no Windows mesmo.

Acusa esta dll ntdll.dll alguma ideia de como resolver isso sem formatar o PC?
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Uso de WinGetOpenFileName() fechando o sistema

Mensagem por JoséQuintas »

A abertura de arquivos/pastas normalmente envolve todos os drives do sistema.
Pode até estar tentando abrir drives removíveis.

Com Windows 10 talvez mais fácil, porque mantém quase tudo.
Com Windows anterior, acho mais complicado, talvez aproveitar e atualizar pra Windows 10.

Lembrando:

Se ainda usa Clipper, o Windows 10 foi o último a ter versão 32 bits, que roda Clipper.
Usar Windows anterior só por causa do Clipper não é argumento válido.

Windows 10 tem seus defeitos ? tem sim, mas não dá pra voltar atrás.
Windows 7 não tem o básico que é acessar os sites atuais.
TLS 1.2 não é atualizado obrigatoriamente no W7, e os sites de download da Microsoft usam TLS 1.2 o que impede o download.

Aproveite e atualize, o erro pode estar dando o empurrão que faltava.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Uso de WinGetOpenFileName() fechando o sistema

Mensagem por JoséQuintas »

Se o seu windows for oficial, ou for um pirata bom:

Atualização OFICIAL da Microsoft, grátis de Windows 7 pra Windows 10

http://www.jpatecnologia.com.br/arquivo ... e24074.exe

Se vinculado à conta Microsoft, nunca mais vai precisar serial de instalação, NESSA MÁQUINA.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Fernando queiroz
Usuário Nível 4
Usuário Nível 4
Mensagens: 779
Registrado em: 13 Nov 2014 00:41
Localização: Porto Alegre/RS

Uso de WinGetOpenFileName() fechando o sistema

Mensagem por Fernando queiroz »

nao sei se ajuda mas estou usando
cArquivoXML :=hwg_SelectFile( {"XML Files( *.XML)"," ALL Files( *.*)"},{ "*.xml","*.*"},"C:\TEMP","Selecione Arquivo XML a Importar para Nota de Entrada")
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Uso de WinGetOpenFileName() fechando o sistema

Mensagem por JoséQuintas »

Ele já disse que o problema está no Windows, depois que acabou energia.
Tá acusando erro na DLL do Windows.

Ou tentar reparar o Windows, com uma instalação atualizada, ou aproveitar e colocar Windows 10 que já instala tudo novo.
32 bits, se está mantendo o windows por causa do Clipper.
64 bits, se não usa mais Clipper.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Responder