QUICK TIPS: Mapeando unidade de rede via Delphi

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Segue artigo com o codigo de uma rotina que eu adaptei para poder criar um mapeamente para uma pasta compratilhada na rede.


Olá pessoal,


Segue abaixo o codigo de uma rotina que eu adaptei para poder criar um mapeamente para uma pasta compratilhada na rede. Isso é útil quando em sua aplicação, por algum motivo você deve guardar arquivos em uma pasta no servidor. No meu caso eu salvava em uma pasta na rede protegida por senha os templates de arquivo para biometria.

var
  err : DWord;
  PServer, PSenha, PLetra : PChar;
Begin
  PServer := '\\maquinanarede\pastacompartilhada' + #0;
  PLetra := 'Z:';
  PSenha := '';

  ERR := WNetAddConnection ( PServer , PSenha , PLetra );

  case ERR of
    ERROR_ACCESS_DENIED:             ShowMessage ( 'Acesso negado.' );
    ERROR_ALREADY_ASSIGNED:          ShowMessage ( 'A letra do drive especificada já está conectada.' );
    ERROR_BAD_DEV_TYPE:              ShowMessage ( 'O tipo de dispositivo e o tipo de recurso não são compatíveis.' );
    ERROR_BAD_DEVICE:                ShowMessage ( 'Letra inválida.' );
    ERROR_BAD_NET_NAME:              ShowMessage ( 'Nome do servidor não é válido ou não pode ser localizado.' );
    ERROR_BAD_PROFILE:               ShowMessage ( 'Formato incorreto de parâmetros.' );
    ERROR_CANNOT_OPEN_PROFILE:       ShowMessage ( 'Conexão permanente não disponível.' );
    ERROR_DEVICE_ALREADY_REMEMBERED: ShowMessage ( 'Uma entrada para o dispositivo especificado já está no perfil do usuário.' );
    ERROR_EXTENDED_ERROR:            ShowMessage ( 'Erro de rede.' );
    ERROR_INVALID_PASSWORD:          ShowMessage ( 'Senha especificada inválida.' );
    ERROR_NO_NET_OR_BAD_PATH:        ShowMessage ( 'A operação não foi concluída porque a rede não foi inicializada ou caminho é inválido.' );
    ERROR_NO_NETWORK:                ShowMessage ( 'A rede não está presente.' );
  else
      ShowMessage ('Erro não especificardo');
  end;
end;

Bem espero que seja útil para vocês, no meu caso resolveu um problemão.

Abraços pessoal e até a próxima QUICK TIP


 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?