Discussion :

[lamalice]

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.

[freddyboy]

Eventuellement ici : http://www.pinvoke.net/
avec une recherche sur ceReadFile

@+

[lamalice]

c bon, g trouvé. L'erreur vient de ma déclaration api de CeReadFile.
La bonne c'est :

Code :

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

1
2
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, ByVal lpOverlapped As Integer) As Boolean

Le dernier paramétre est passé par valeur et non par référence, malgré que l'api demande un pointeur.