cGetFile32 Does not appear Network Driver (SOLVED)

[miragerr]

Hello, friends

the cGetFile32 or cGetDir32 function is not showing network mappings, which may be wrong.

occurs only on windows 10
in the winsows 7 this normal.

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

I'm standing by.

[karinha]

Muito estranho. Não é problema de permissões do windows 10?

Very strange. Is not Windows 10 permissions issue?

Regards, saludos.

[miragerr]

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.

TRADUKKA
Hello, good morning kapi


I think not, because the system does not present any other type of problem.
I think it should have changed something in the Windows API 10.

[miragerr]

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.

[karinha]

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

[karinha]

Code: Select all  Expand view  RUN

#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
 

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

[miragerr]

Ola, amigos bom dia

Realmente preciso de ajuda nestas funções apresentadas.
Fiz um teste em um cliente onde tem mais de 50 computadores e todos são Win 10, e mesmo usando a FASTREPORT para exportar, tambem nao aparece os drivers mapeados.

Fiz um teste em um software que é em java e quando vou importar um arquivo por ele, la aparecem os drivers mapeado.

Fico no aguardo.

**FROM TRADUKKA**
Hello, good morning friends

I really need help in these functions.
I did a test on a client where has more than 50 computers and all are Win 10, and even using the FASTREPORT for export, also not mapped drivers appears.

I did a test on a software that is in java and when I import a file for him, it appear the drivers mapped.

I'm standing by.

[tiaofw]

Bom dia.

Esse problema já aconteceu comigo também no Windows 8 ou superior!

Notei uma direrença, quando executo o exe como administrador os drives de rede mapeados não aparecem, mas quando executo sem essa opção o mapeamento aparece.

É uma pista.

Abraços.

[miragerr]

Ola, Bom dia Tiao

Você tem alguma pista de como fazer isso, pois notei que nos clientes realmente aparece um simbolo do escudo do administrador, mais não sei como tirar isso.

Fico no aguardo.

[tiaofw]

Ola, Bom dia Tiao

Você tem alguma pista de como fazer isso, pois notei que nos clientes realmente aparece um simbolo do escudo do administrador, mais não sei como tirar isso.

Fico no aguardo.

Bom dia!

No icone do executavel ou no proprio executavel click com o botão direito do mouse e acione a opção Executar como Administrador, ou vá em propriedades e mude a forma como o exe é acionado.

Mas no meu caso escolher uma opção ou outra trouxe efeitos colaterais no ambiente do cliente, hora as pastas da rede não apareciam, ora os arquivos txts que o sistema deveria ler não eram lidos.

Abraços.

[miragerr]

Ola, Bom dia amigos

A Solução encontrada foi a retirada as linhas abaixo no arquivo MANIFEST.

<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>

Ao retirar estas linhas tudo voltou ao normal, lembrando que foi uma alteração oferecida pelo nosso amigo Giovany Vecch

[tiaofw]

Boa tarde Jackson.

No meu .RES dentro da aba Manifest dentro do PellesC já não tenho essas linhas, no entanto o problema dos drives da rede desaparecerem é real, tem alguma informação com relação a isso?

Abraços

[miragerr]

Ola tiao

O meu MANIFEST ficou da seguinte forma, e resolveu o meu problema.

Code: Select all  Expand view  RUN

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">

  <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
      <application>
        <!--This Id value indicates the application supports Windows 10 functionality-->
          <supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}"/>
        <!--This Id value indicates the application supports Windows Vista functionality -->
          <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/>
        <!--This Id value indicates the application supports Windows 7 functionality-->
          <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>
        <!--This Id value indicates the application supports Windows 8 functionality-->
          <supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"/>
        <!--This Id value indicates the application supports Windows 8.1 functionality-->
          <supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>
      </application>
  </compatibility>

<assemblyIdentity
   version="1.0.0.0"
    processorArchitecture="*"
    name="WEstok"
    type="win32"
/>
<description>Your application description here.</description>
<dependency>
    <dependentAssembly>
        <assemblyIdentity
            type="win32"
            name="Microsoft.Windows.Common-Controls"
            version="6.0.0.0"
            processorArchitecture="X86"
            publicKeyToken="6595b64144ccf1df"
            language="*"
        />
    </dependentAssembly>
</dependency>
</assembly>
 

Espero ter ajudado.

[tiaofw]

Obrigado Jackson,

Vou testar no cliente e te informo.

Abraços.