Discussion :

[Teb]

Bonjour,

est-ce que la méthode CopyFile est toujours d'actualité sous Delphi 2005 ? Car je ne pas de référence sous l'aide en ligne. Et en plus j'ai l'impression qu e cette méthode ne supporte pas les caractères accentués...

Est-ce simplement une impression de ma part ? Existe t-il des méthodes équivalentes sous delphi 2005 ?

Merci!

[smyley]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
System.IO.File.Copy(...);

[Laurent Dardenne]

CopyFile existe tjr sous .NET, c'est une API Win32.
Sache qu'utiliser la FCL fait que le code n'est plus portable Delphi Win32/ Delphi .NET.
Les 2 utilisations sont possibles.

Pour info :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function CopyFile(lpExistingFileName, lpNewFileName: string; bFailIfExists: BOOL): BOOL;
...
[SuppressUnmanagedCodeSecurity, DllImport(kernel32, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'CopyFile')]
function CopyFile; external;

étant le pendant de la méthode IO.File.Copy

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  bool r = Win32Native.CopyFile(fullSourceFileName, fullDestFileName, !overwrite);

code extrait des sources CLI .NET sscli_20021101\sscli\clr\src\bcl\system\io\file.cs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
        /// <include file='doc\File.uex' path='docs/doc[@for="File.InternalCopy"]/*' />
        /// <devdoc>
        ///    Note: This returns the fully qualified name of the destination file.
        /// </devdoc>
        internal static String InternalCopy(String sourceFileName, String destFileName, bool overwrite) {
            if (sourceFileName==null || destFileName==null)
                throw new ArgumentNullException((sourceFileName==null ? "sourceFileName" : "destFileName"), Environment.GetResourceString("ArgumentNull_FileName"));
            if (sourceFileName.Length==0 || destFileName.Length==0)
                throw new ArgumentException(Environment.GetResourceString("Argument_EmptyFileName"), (sourceFileName.Length==0 ? "sourceFileName" : "destFileName"));
 
            String fullSourceFileName = Path.GetFullPathInternal(sourceFileName);
            new FileIOPermission(FileIOPermissionAccess.Read, new String[] { fullSourceFileName }, false, false ).Demand();
            String fullDestFileName = Path.GetFullPathInternal(destFileName);
            new FileIOPermission(FileIOPermissionAccess.Write, new String[] { fullDestFileName }, false, false ).Demand();
 
            bool r = Win32Native.CopyFile(fullSourceFileName, fullDestFileName, !overwrite);
            if (!r) {
                // Save Win32 error because subsequent checks will overwrite this HRESULT.
                int hr = Marshal.GetLastWin32Error();
 
                if (hr != Win32Native.ERROR_FILE_EXISTS) {
                    if (!InternalExists(fullSourceFileName))
                        __Error.WinIOError(Win32Native.ERROR_FILE_NOT_FOUND,sourceFileName);
 
                    if (Directory.InternalExists(fullDestFileName))
                        throw new IOException(Environment.GetResourceString("Arg_DirExists"));
                }
 
                __Error.WinIOError(hr, destFileName);
            }
 
            return fullDestFileName;
        }