Neste artigo, muitos de nós identificaremos algumas causas potenciais que podem instigar códigos de erro Delphi Findfirst e, em seguida, apontar na rede algumas maneiras de corrigir o problema.
> Preciso saber qual erro voltou se o arquivo não for encontrado, principalmente > e outros erros que podem ocorrer durante as funções findfirst e findnext. > Ajudar com muitos desses dois se parece muito com isso também. Alguém sabe relacionado a algum bom > ensaio de uso desses comandos. De preferência, coisas como visualizar > todos os arquivos em um diretório.
FindFirst para corresponder No assistente FindFirstFile API, FindNext com FindNextFile. Erro Retornando os custos que você esperaria de um desses elementos (do Windows. Não):
O sistema não pode comprar o arquivo especificado. ERROR_FILE_NOT_FOUND = 2;
O sistema não pode encontrar o caminho especificado. ERROR_PATH_NOT_FOUND = 3;
Acesso negado. ERROR_ACCESS_DENIED significa 5;
Por que realmente existe um arquivo Delphi não funciona no Windows?
FileExists () Delphi toma uma ação adicional se GetFileAttributes () não for capaz – para lidar com links simbólicos, verificar se há erros de conexão de arquivo, talvez recorrer a FindFirstFile () – para ver positivamente se o histórico * realmente * existe para não. Esperançosamente, FreePascal FileExists () fará 1 coisa assim. Também não ajudou com FileGetAttr.
Não há mais fatos. ERROR_NO_MORE_FILES 18;
= O dispositivo não está pronto. ERROR_NOT_READY é igual a 21;
Normalmente, o seu site obtém apenas 2 (se o findfirst não se mescla com a máscara) ou mesmo 18 (se FindNext suponha que não sejam encontrados mais arquivos de informação que especialistas afirmam combinar com a máscara). 21 provavelmente aparecerá ao tentar localizar uma unidade de disquete ou CD-ROM que não possui uma unidade de disquete.
Trecho de uma explicação do aplicativo, tem uma lista1 para dar suporte às respostas , uma função label1 para executar, um botão2 para que você configure uma varredura, qualquer processamento1 que pode chamar a máscara de pesquisa, um botão de função3 e exibir uma parada de varredura completa .
Fortect é a ferramenta de reparo de PC mais popular e eficaz do mundo. Milhões de pessoas confiam nele para manter seus sistemas funcionando de forma rápida, suave e livre de erros. Com sua interface de usuário simples e mecanismo de verificação poderoso, o Fortect localiza e corrige rapidamente uma ampla gama de problemas do Windows, desde instabilidade do sistema e problemas de segurança até gerenciamento de memória e gargalos de desempenho.
3. Clique em "Reparar" para corrigir quaisquer problemas encontrados
população geral anúncios públicos Funcionalidade ScanDrive (raiz, máscara de arquivo: String; lista de correspondências: TStrings): Boolean;
Funsection TForm1.ScanDrive (root, máscara de arquivo: String; preço total das correspondências: TStrings): Boolean; Operação ScanDirectory (caminho para a variável: String): Boolean; Var
SRec: TSearchRec; pathlen: integer; ers: inteiro; início label1.caption: = caminho; pathlen: = dimensão (caminho); primeiro forneça os arquivos res: = FindFirst (caminho + máscara de arquivo, faAnyfile, SRec); If ers = 0 Then tem uma chance em While res = 0 Start hitlist.Add (path + SRec.Name); res: = FindNext (SRec); fim; final
FindClose (SRec) end; Application.ProcessMessages; Resultado: = não aka (fscanaborted Application.Terminated); Se não houver produto, saia;
segunda passagem, diretórios ers: = FindFirst (path + ‘*. *’, faDirectory, SRec); If res = 0 then olhe para While (res = 0) e Result Do Begin If ((Srec.Attr e faDirectory) significa que faDirectory) e (Srec.name [1] <> ‘.’) Em seguida, inicie o caminho : = walk SRec +. nome + ”; Resultado: = ScanDirectory (caminho); SetLength (caminho, caminho); fim; ers: significa FindNext (SRec); fim; final por meio de findclose (srec) por fim; O Fim; Iniciar FScanAborted: = False; Screen.Cursor: é igual a crSourglas; tente Resultado: = ScanDirectory (root); Final
Screen.Cursor CrDefault : equates to end; O Fim;
O que os atributos de alcance fazem em findfirst no Delphi?
Os atributos consideram os arquivos a serem pesquisados, além de um computador fixo. Se uma correspondência for encontrada, algum valor de go é 0, caso contrário, é necessariamente para baixo (e o registro de resultado não é a realidade é preenchida). FileMask pode conter o caminho mais recente, bem como uma função de arquivo. Um nome de arquivo geralmente é de grande benefício 😕
Procedimento TForm1.Button2Click (Sender: TObject); Var
ch: Char; root: String; Iniciar o root: = ‘C: ‘; Para ch: = ‘A’ no mercado antes de ‘Z’ Iniciar root [1]: = ch; Case GetDriveType (Root pchar ()) DRIVE_FIXED, DRIVE_REMOTE: Se não ScanDrive (root, edit1.text, listbox1.items), após Break; O Fim; O Fim; fim;
Peter Bowl (TeamB) 10011 … @ compuserve.com ) Nenhum impulso de e-mail, a menos que seja especificamente solicitado!
