Bonjour tlm,

je n'arrive pas à trouver la bonne formulation pour utiliser la fonction CeReadFile.
MSDN dit : http://msdn.microsoft.com/library/de...adfilerapi.asp

Dans mon code je la déclare :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Declare Function CeCreateFile Lib "rapi.dll" (<MarshalAs(UnmanagedType.LPWStr)> ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareMode As Integer, ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDistribution As Integer, ByVal dwFlagsAndAttributes As Integer, ByVal hTemplateFile As Integer) As IntPtr
 
    Private Declare Function CeReadFile Lib "rapi.dll" (ByVal hFile As IntPtr, <MarshalAs(UnmanagedType.LPArray)> ByVal lpBuffer() As Byte, 
ByVal nNumberOfBytesToRead As Integer, ByRef lpNumberOfBytesRead As Integer, ByRef lpOverlapped As Integer) As Boolean
et plus loin dans code j'ai :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim bLecture As Boolean = False
Dim nbCharLu As Integer
dim myBufferEntree(1) As Byte '
dim iNbCharALire As Integer = 1
Dim hdlFichier As IntPtr    
 
hdlFichier = CeCreateFile(chemFichierSource, GENERIC_READ Or GENERIC_WRITE, 0, Nothing,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0)
If hdlFichier.ToInt32 <> INVALID_HANDLE_VALUE Then
     bLecture = CeReadFile(hdlFichier, myBufferEntree, iNbCharALire,     nbCharLu, 0)
      If not bLecture Then
            Affiche(CeGetLastError.ToString)
      end if
end if
CeGetLastError retourne toujours l'erreur 87 : paramétre incorecte!

Quelqu'un peut m'aider svp.

Lamalice.