cGetFile32 e cGetDir32 Problemas

miragerr · September 9, 2017

Ola, amigos

Recentemente a função cGetFile32 ou cGetfile não esta mostrando os mapeamentos de rede, alguém esta passando por isso.

ocorre somente no Windows 10
no Windows 7 esta normal.

cGetFile32( "Arquivos XML FORNECEDOR (*.xml) | *.xml","Selecione um ARQUIVO" )

Fico no aguardo.

kapiaba · September 11, 2017

Veja se ajuda:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=32633&p=191799&hilit=cGetFile32#p191799

miragerr · September 11, 2017

Ola, bom dia Kapi

Ja havia verificado estes links que voce passou, o que ocorre é que de uns dias pra cá as função cGetFile32 ou cGetfile não esta mostrando os mapeamentos de rede, mostra somente os locais, mais se EU fizer um mapeamento quando eu executo uma das funções acima fica gravado para o PC que fez, não funcionando em outros PCs.

Essa anomalia esta ocorrendo somente no Windows 10 apos uma atualização do mesmo, ja no Windows 7 funciona de boa

Fico no aguardo.

kapiaba · September 11, 2017

Muito estranho. Não é problema de permissões do windows 10? Peça ao Alessandro que tem windows 10, para testar. Abs.

miragerr · September 11, 2017

Ola, Bom dia kapi

Creio que não, pois o sistema não apresenta nenhum outro tipo de anomalia.

Creio que deva ter mudado algo na API do Windows 10.

kapiaba · September 11, 2017

Teste assim para vermos o que ocorre:

#include "FiveWin.ch"
	#DEFINE GETF_ONLYSERVER                   0
#DEFINE GETF_OVERWRITEPROMPT              1
#DEFINE GETF_MULTISELECT                  2
#DEFINE GETF_NOCHANGEDIR                  4
#DEFINE GETF_LOCALFLOPPY                  8
#DEFINE GETF_LOCALHARD                   16
#DEFINE GETF_NETWORKDRIVE                32
#DEFINE GETF_SHAREAWARE                  64
#DEFINE GETF_RETDIRECTORY               128
  
Function GetFile1()
	   Local cTargetDir
 
   cTargetDir := cGetFile( '*.txt' , 'Textos (TXT)', 1, 'C:\', .F., nOR( GETF_LOCALHARD, GETF_LOCALFLOPPY, GETF_RETDIRECTORY ),.T., .T. )
 
   Alert( cTargetDir )
 
Return Nil

kapiaba · September 11, 2017

/***
* _________________________________________________________
* cGetFile(<ExpC1>,<ExpC2>,<ExpN1>,<ExpC3>,<ExpL1>,<ExpN2>)
* ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
* <ExpC1> - Expressao de filtro
* <ExpC2> - Titulo da janela
* <ExpN1> - Numero de mascara default 1 para *.Exe
* <ExpC3> - Diretório inicial se necessário
* <ExpL1> - .F. botão salvar - .T. botão abrir
* <ExpN2> - Mascara de bits para escolher as opções de visualização do objeto (prconst.ch)
*/
	/*
Configurações para a Função cGetFile, encontradas no Arquivo PrConst.Ch
*/
	#include "FiveWin.ch"
	#DEFINE GETF_ONLYSERVER                   0
#DEFINE GETF_OVERWRITEPROMPT              1
#DEFINE GETF_MULTISELECT                  2
#DEFINE GETF_NOCHANGEDIR                  4
#DEFINE GETF_LOCALFLOPPY                  8
#DEFINE GETF_LOCALHARD                   16
#DEFINE GETF_NETWORKDRIVE                32
#DEFINE GETF_SHAREAWARE                  64
#DEFINE GETF_RETDIRECTORY               128
	Function GetFile3()
	   LOCAL _cExtens, _cRet
	   _cExtens   := "Arquivo Texto ( *.TXT ) |*.TXT|"
	   _cRet := cGetFile( _cExtens, "Selecione o Arquivo",,, .F., GETF_NETWORKDRIVE + GETF_LOCALFLOPPY + GETF_LOCALHARD + GETF_RETDIRECTORY )
	   _cRet := ALLTRIM( _cRet )
	Return( _cRet )

kapiaba · September 11, 2017

Divirta-se: kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk

#include "FiveWin.ch"
	#DEFINE GETF_ONLYSERVER                   0
#DEFINE GETF_OVERWRITEPROMPT              1
#DEFINE GETF_MULTISELECT                  2
#DEFINE GETF_NOCHANGEDIR                  4
#DEFINE GETF_LOCALFLOPPY                  8
#DEFINE GETF_LOCALHARD                   16
#DEFINE GETF_NETWORKDRIVE                32
#DEFINE GETF_SHAREAWARE                  64
#DEFINE GETF_RETDIRECTORY               128
 
Function GetFile2()
	    Local cMascara  := "Todos os arquivos|."
    Local cTitulo   := "Escolha o arquivo"
    Local nMascpad  := 0
    Local cDirini   := "\"
    Local lSalvar   := .F. /*.F. = Salva || .T. = Abre*/
    Local nOpcoes   := GETF_LOCALHARD
    Local lArvore   := .T. /*.T. = apresenta o árvore do servidor || .F. = não apresenta*/
    Local resourceName:= "olga.png"
    Local path := "C:\FWH1701\bitmaps\"
    Local fileName:= path + resourceName
    Local ctargetDir
    Local sucess
 
    cTargetDir := cGetFile( cMascara, cTitulo, nMascpad, cDirIni, lSalvar, nOpcoes, lArvore )
	Return Nil

miragerr · September 11, 2017

Ola, Kapi

Tentei de varias formas até colocando assim

#DEFINE GETF_ONLYSERVER                   0
#DEFINE GETF_OVERWRITEPROMPT              1
#DEFINE GETF_MULTISELECT                  2
#DEFINE GETF_NOCHANGEDIR                  4
#DEFINE GETF_LOCALFLOPPY                  8
#DEFINE GETF_LOCALHARD                   16
#DEFINE GETF_NETWORKDRIVE                32
#DEFINE GETF_SHAREAWARE                  64
#DEFINE GETF_RETDIRECTORY               128

#DEFINE GETF_ALL 1 + 2 + 4 + 8 + 16 + 32 + 64 + 128

cFile := cGetFile( "Arquivo NFe (*.xml) | *.xml", "Selecione um Arquivo",,, .F., GETF_ALL )

Analisando os fontes da função, tem a seguinte chamada

nRet := WinExec( "rundlg32 " + If( lSave, "2", "1" ) )

Não encontrei esse **rundlg32**

Fico no aguardo.

kapiaba · September 11, 2017

se não me falha a memória, Rundlg32 era para FiveWin 16 Bits. Isto não vai funcionar caríssimo.

kapiaba · September 11, 2017

Mira acá:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=23713&p=127536&hilit=rundlg32#p127536

miragerr · September 11, 2017

Concordo com você, mais mesmo executando **cGetFile** que é em .C tanto para 32 ou 64 bits não esta funcionando... como lhe disse, isso começou a pouco tempo

em Windows 7 vai de boa

Estou usando FWH 12.09 e de uns dias pra cá isso aconteceu...

kapiaba · September 11, 2017

#include "FiveWin.ch"
	//----------------------------------------------------------------------------//
	function Dlg64Test()
	   local oDlg, oBtn1, oBtn2
   local cFilter := "All files (*.*)|*.*|" + ;
                    "Dbf files (*.dbf)|*.dbf|"
	   DEFINE DIALOG oDlg TITLE "WinDlg64 sample Fivewin 32 Bits"
	   @ 2,4 BUTTON "Get File" ;
         ACTION Msginfo( cGetFile( cFilter, "Select File" ) ) ;
         SIZE 100,15
	   @ 3.5,4 BUTTON "Get Directory" ;
           ACTION Msginfo( cGetDir( "Select Folder" ) ) ;
           SIZE 100,15
	   ACTIVATE DIALOG oDlg CENTERED
	return nil

miragerr · September 11, 2017

Vai não... nenhuma das 2 funções mostra os mapeamentos, isso somente no Windows 10.

kapiaba · September 11, 2017

Compile diretamente na máquina com windows 10, ou ligue a compatibilidade do windows 10 para 32 bits. abs.

miragerr · September 12, 2017

Ola, Bom dia kapi

Amigo, não esta funcionando nenhuma das alternativas apresentadas por voce, até mesmo usando a FASTREPOR para exportar para PDF por exemplo o driveres mapeados nao aparecem.

Um fato curioso é que se eu usar o programa do SPED FISCAL/CONTRIBUIÇÕES para importar um arquivo, os driveres mapeados estão lá... isso esta me deixando maluco, pois não mudei nada no meu sistema, absolutamente nada, simplesmente não funciona com o Windows 10.

Fico no aguardo de qualquer ajuda possível.

kapiaba · September 12, 2017

Chamei mais gente aqui:

https://www.facebook.com/groups/112382682270253/

Vamos esperar. abs.

kapiaba · September 12, 2017

Matheus Farias Não to lembrando meu login mas Uso o win 10 a mais de 2 anos para desenvolver e uso as duas funcoes para fazer diversas rotinas no sistema. Inclusive a parte de retorno de boletos, que é bastante usada.
Acredito que o executavel dele pode ter sido aberto como administrador e as unidades foram mapeadas no usuario corrente. Desse modo realmente nao aparece nada.

https://www.facebook.com/groups/112382682270253/

aferra · September 12, 2017

a minha percepção foi que fica no acesso rápido, bem acima, diferente do que estamos acostumados. pode procurar. vai estar lá

miragerr · September 12, 2017

Ola, boa noite meu jovem

É não... ele aparece logo abaixo das unidades locais... geralmente eu faço o mapeamento pelo IP do servidor e fica com as letras X: Y: Z: não nescessariamente nesta ordem, mais como falei, isso veio a acontecer a pouco tempo, estava tudo normal.

Ainda na busca de uma solução.

Fico no aguardo.

kapiaba · September 13, 2017

[16:49:46] Matheus Henrique De Oliveira Farias Chaves: Joao aquele cara do post deve ter adicionado o manifest que antonio linhares postou no forum internacional um dia desse sobre o Windows 10 nele ja esta as propriedades para ja abrir o exe como administrador,
[16:49:47] Matheus Henrique De Oliveira Farias Chaves: http://forums.fivetechsupport.com/viewtopic.php?f=3&t=34483
[16:50:05] Matheus Henrique De Oliveira Farias Chaves: Ele teria que remover esse trecho do manifest
[16:50:06] Matheus Henrique De Oliveira Farias Chaves:

<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
    <security>
      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
        <requestedExecutionLevel  level="highestAvailable" uiAccess="false" />  
       </requestedPrivileges>
    </security>
  </trustInfo>

[16:54:07] João Santos: blz. vou postar no forum.

miragerr · September 13, 2017

Ola, boa tarde kapi

Isso mesmo, foi só tirar isso que resolveu o problema...

Não ia imaginar nunca que seria isso, de qualquer forma, obrigado por solicitar os universitários, agora ficou 1000%

kapiaba · September 13, 2017

Very good. Eu tinha certeza que era "tonhice" sua. kkkkkkkkkkkkkkkkkkkkkkkkk

Quem tem amigos, tem tudo. Já agradeci a ele pelo especial favor.

Matheus Farias é show() de bola.

miragerr · September 13, 2017

kapi my friend

Discordo da "tonhice" pois, apenas segui o que o nosso guru ANTONIO LINARES postou como uma correção do manifest, agora, eu ia adivinhar que ia acontecer uma situação dessas

De qualquer forma, realmente o Matheus Farias "Farias nada, ele Fez" :lol: , ele é SHOW() DE BOLA.

Obrigado pela ajuda

kapiaba · September 14, 2017

Jackosn, brincadeiras à parte, poste a solução no forum inter, para que os demais saibam a causa e o efeito. E tem que pegar o Giovanni Vecchi de jeito... kkkkkkkkkkkkkkkkkkkkkkkkkkkkk

cGetFile32 e cGetDir32 Problemas

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation