Mémoire ne peut pas être "Read" == causes possibles ?

Question

Violent Ken

Bonjour, j'ai compilé mon application, et j'obtiens le célèbre bug "l'instruction à "0x00000000" emploie l'adresse mémoire "0x00000000". La mémoire ne peut pas être "read""

Ce bug arrive toujours au même endroit, après une certaine suite d'actions dans mon programme.

Quelles peut être la cause de ce bug ?
Comment puis-je debuger mon programme ?

Je vous demande pas de le debuger, juste me dire le causes principales de ce genre de truc ;)

Merci, @+

cs_DARKSIDIOUS · Answer

Tout dépend ! Tu utilise des API Windows par exemple ?

Normalement, ce genre d'erreur intervient lorsque tu dépasse la zone mémoire de ton prog : chose courante avec les pointeurs C par exemple, d'où ma question sur les API.

violent_ken · Answer

Violent Ken

Euh, oui, j'utilise beaucoup d'APIs (98 différentes).

cs_casy · Answer

Bug, certain, il y a.

Par contre ce message (et son corolaire "la mémoire ne peut pas etre write") ne donne absolument aucune indication quant à la nature du bug (en VB en tout cas). Contrairement à ce qu'il indique ça peut très bien ne rien à voir avec une lecture au niveau de ton code.

Mais une chose interessante tout de même, tu dis : "Ce bug arrive toujours au même endroit, après une certaine suite d'actions dans mon programme.". Tu devrais donc etre capable assez facilement d'isoler la partie de code qui pose problème.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

violent_ken · Answer

Violent Ken

En fait non, je me demande bien comment je pourrais isoler un bout de code

Je vais détailler un peu plus comment apparait le bug.

Mon programme est un éditeur hexadécimal (application MDI).
Quand j'ouvre un disque dur en édition hexa, tout marche bien.
Quand j'édite un processus en mémoire, tout marche bien.
Quand j'édite un fichier, tout marche bien.
Mais quand j'ouvre un disque dur en édition PUIS que j'essaie d'ouvrir un processus en mémoire, le bug survient.
Mais si , par exemple, j'ouvre un disque, PUIS j'ouvre un fichier, PUIS un processus, pas de bug.
Si j'ouvre un fichier, PUIS un disque, pas de bug.
Si j'ouvre un fichier, PUIS un processus, pas de bug.
Le bug intervient uniquement quand j'ouvre un disque, PUIS un processus. Une petite form doit apparait avec la liste des processus lancés, mais celle ci n'apparait pas, le bug a lieu à cet endroit là (ou avant).

Donc comme il y a un lien avec les actions faites avant, je vois pas d'où çà peut venir...

Et comme pas de bug en P-CODE (dans l'IDE par exemple), impossible de débuger avec des points d'arrêt....

Je suis peaumé !

cs_DARKSIDIOUS · Answer

dans ces API, y'en a-t-il qui on trait à la mémoire (copymemory, zerofill, ou autre) ?

cs_casy · Answer

Bien sur que si, tu peux isoler le bout de code, tu viens de le faire, je te cite : "Une petite form doit apparait avec la liste des processus lancés, mais
celle ci n'apparait pas, le bug a lieu à cet endroit là (ou avant)."

Et il a toujours moyen de débuger, même en Release. Mots clés : MsgBox, Beep, fichier log, .....

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

violent_ken · Answer

Violent Ken

Il y a notamment du MoveMemory et du SetFilePointerEx.

Mais vu l'utilisation du MoveMemory par rapport à l'apparition du bug, je doute très fortement qu'il soit en cause.

violent_ken · Answer

Violent Ken

En effet.

J'ai mis des Msgbox entre chaque ligne, et résultat ==> le bug apparait à divers endroit.

Une fois sur Set clsProc = New clsProcess
Une fois sur le frmProcesses.Show VbModal
Une fois sur le For x = 0 To UBound(p) - 1

Erf...

cs_casy · Answer

Violent ken, tu es un habitué du forum, tu connais aussi le reglèment. Tu n'es donc pas sans savoir qu'avec si peu de code, on ne peut rien faire.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

cs_DARKSIDIOUS · Answer

lol, c'est pas faux ;)

première chose : regarde dans le initialize de la classe clsProcess tout les appels à des API qui pourraient avoir de près ou de loin à des accès mémoire...

violent_ken · Answer

Violent Ken

Certes. Mais je me vois mal poster mes 20 mille lignes de code...

Je postais juste ces 3 lignes de code pour dire que le bug provient plus ou moins aléatoirement dans la même portion du code, c'est tout.

Voici la sub complète du loading de la form en question :

Private Sub Form_Load()
'fait la liste des processus en mémoire
Dim p() As ProcessItem
Dim x As Long
Dim clsProc As clsProcess   'appel à une classe de gestion de processus
    Set clsProc = New clsProcess
    LV.ListItems.Clear
    'énumération
    clsProc.EnumerateProcesses p()
    'affiche la liste
    For x = 0 To UBound(p) - 1
        LV.ListItems.Add Text:=p(x).th32ProcessID
        LV.ListItems.Item(x + 1).SubItems(1) = p(x).szExeFile
    Next x
End Sub

Dans le Initialize de ma classe, il y a du
-OpenProcessToken
-LookupPrivilegeValue
-AdjustTokenPrivileges

Donc rien qui accède directement à la mémoire ?

dthuler · Answer

Salut,

Pardon de poser une question peut-être naïve, mais ton code ne rentre-t-il pas en conflit direct avec les process qui gèrent des accès disques ? Il est possible que certains process système bloquent des portions de mémoires si besoin.

David

cs_DARKSIDIOUS · Answer

Ah ca a quand même un rapport : OpenProcessTocken ouvre un accès à un processus => c'est le genre de cas où tu va piocher dans la mémoire d'un autre processus que ton programme ! le SP2 de windows XP risque fort de ne pas apprécier justement ! Et ca risque d'être pire avec vista !

cs_casy · Answer

N'aurais-tu pas un problème dans la déclaration de la structure ProcessItem entre ton programme et la classe ???

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

violent_ken · Answer

Violent Ken



dthuler ==> je ne vois pas trop où il pourrait y avoir de confilt ? Certaines zones mémoires sont en effet inaccessibles, mais ce n'est pas un problème, si ?

DARKSIDIOUS ==> Oui, je pioche dans la mémoire d'un autre process, tout comme avec OpenProcess, ReadProcessMemory,  VirtualQueryEx... Mais quel est le problème ? Ces APIs sont conçues pour, non ?

casy ==> Je ne pense pas qu'il y ai de problème dans la déclaration de ProcessItem... mais je peux me tromper, je ne code généralement pas trop en classes.
La source de cette classe est ici : http://www.vbfrance.com/codes/CLASSE-SUR-PROCESSUS-LEURS-MODLES-PERMET-AVOIR-INFOS_40274.aspx , je n'ai pas remarqué de bug particulier à ce niveau là.

Merci beaucoup de m'aider.

cs_casy · Answer

"je ne vois pas trop où il pourrait y avoir de confilt ? Certaines zones
mémoires sont en effet inaccessibles, mais ce n'est pas un problème,
si ?"
Ben si, si tu essaye d'y taper dedant t'as un message d'erreur

"Oui, je pioche dans la mémoire d'un autre process, tout comme avec
OpenProcess, ReadProcessMemory,  VirtualQueryEx... Mais quel est le
problème ? Ces APIs sont conçues pour, non ?"

Non tant que tu as les droits administratifs pour.

Mais si tu tape dans la zone mémoire d'un driver et du kernel, je doute que windows te laisse faire.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

cs_DARKSIDIOUS · Answer

Ces API ont prévues pour, c'est vrai, mais depuis le SP1, et ca c'est vraiment mis en place avec le SP2 de Windows XP, microsoft a renforcé la sécurité du noyau, et du coup, certaines chose qui étaient possible avant ne le sont plus, ou très difficilement afin d'éviter des dérices, nottament l'accès à des zones mémoires qui ne sont pas allouées par le processus appelant.

Je m'y connais pas assez pour m'éttaler plus sur la question, mais il y a des chances que cela vienne de là !

En passant, un bon petit article à ce sujet qui devrait t'intéresser :
http://mi.cnrs-orleans.fr/News/WinXP/Windows-XP-Service-Pack-2-FR.pdf

dthuler · Answer

Si, ça le peut malheureusement... mais ça m'étonnerait beaucoup d'après les détails donnés.

L'explication "Windows" est que ton code tente d'accéder à une partie de la mémoire non réservée/authorisée par le système si cet accès n'a pas été "demandé" préalablement. En clair, si un pointeur n'a pas été initialisé correctement dans une des APIs appelées, le code est dans les choux. As-tu essayé d'attribuer les droits "system" ou "admin" à ton appli ?

Mais je pencherais plutôt à un conflit style handle non libéré ou déjà utilisé... ou alors la pioche dans une zone réservée exclusivement...

Désolé mais là, je navigue à la frontière de mes connaissances VB, et ne peux donc te fournir que quelques (minces) pistes. Toutefois, étant de nature curieuse, la solution si tu la trouves m'intéresse vivement.

Bon courage 

David

cs_casy · Answer

Non david dans le message, il est précisé "adresse 0x00000000". ici il s'agit bien d'un pointeur null ou pas initialisé, utilisation d'un objet non encore créé ou instancié ou déjà libéré, ....

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

dthuler · Answer

Ah oui Casy, c'est juste!
merci de me remettre sur les rails 
David

ShareVB · Answer

salut,

à mon avis, ca peut venir de :
-> un paramètres auquel tu passes Byval 0& alors qu'il ne devrait pas être nul
-> un copymemory où la source se trouve être nulle
-> un copymemory en byval var au lieu de byref var

il ne te reste plus qu'à tracer ton programme à coup de F8...
ou alors trouve un SmartCheck fonctionnel...
ou encore peut être attrapé la GPF et parler allemand :
http://www.activevb.de/rubriken/kolumne/kol_5/apiexceptions.html
http://dotnet.mvps.org/vb/articles/exceptionhandler/

ShareVB

violent_ken · Answer

Violent Ken

""je ne vois pas trop où il pourrait y avoir de confilt ? Certaines zones mémoires sont en effet inaccessibles, mais ce n'est pas un problème, si ?"
Ben si, si tu essaye d'y taper dedant t'as un message d'erreur"
> Hum non, l'API ReadProcessMemoryse contente de ne pas renvoyer de valeur et cas de zone mémoire inaccessible. Et j'ai auparavant récupéré les plages de zone mémoire lisibles utilisées et lisible avec l'API VirtualQueryEx& (voir  http://www.vbfrance.com/codes/OBTENIR-PLAGES-MEMOIRE-UTILISEES-PROCESSUS-DANS-MEMOIRE-VIRTUELLE_40191.aspx). Autrement dit, les 65535 premiers bytes de l'espace virtuel, auquel je ne peux accéder, ne sont pas lus par mon programme.




"Mais si tu tape dans la zone mémoire d'un driver et du kernel, je doute que windows te laisse faire."
> l'API ne réussira pas à obtenir les valeurs souhaitée, mais aucune erreur ne sera générée.


"En passant, un bon petit article à ce sujet qui devrait t'intéresser :
http://mi.cnrs-orleans.fr/News/WinXP/Windows-XP-Service-Pack-2-FR.pdf" ==> Merci beaucoup, je le lirais demain ;)


"As-tu essayé d'attribuer les droits "system" ou "admin" à ton appli ?" ==> Mon application s'attribue le privilege SE_DEBUG pour pouvoir s'autoriser à ouvrir avec OpenProcess la totalité des processus du système. Ma source (http://www.vbfrance.com/codes/CLASSE-SUR-PROCESSUS-LEURS-MODLES-PERMET-AVOIR-INFOS_40274.aspx) contient la dans la classe clsProcess la procédure GetAllPrivileges qui est appelée pour cela.
Mais comment cela pourrait-être la cause d'un problème ?


"Non david dans le message, il est précisé "adresse 0x00000000". ici il s'agit bien d'un pointeur null ou pas initialisé, utilisation d'un objet non encore créé ou instancié ou déjà libéré" ==> Hum, mais alors comment se fait-il que le bug ne se produise que dans un cas très restreint (voir au début de mes messages) ?


"-> un paramètres auquel tu passes Byval 0& alors qu'il ne devrait pas être nul" ==> Je vais vérifier ceci dans les parties concernées de mon code.


"-> un copymemory où la source se trouve être nulle
-> un copymemory en byval var au lieu de byref var"
> Pas de CopyMemory dans mon prgramme ; le bug ne vient pas de là.


"il ne te reste plus qu'à tracer ton programme à coup de F8" ==> Je vais le faire, mais le bug n'apparait pas en pseudo-code, donc pas dans l'IDE en mode pas à pas... mais je tomberais peut être sur quelque chose qui cloche.


"ou alors trouve un SmartCheck fonctionnel" ==> Heu, là faut que je me renseigne ;)


"ou encore peut être attrapé la GPF et parler allemand :
http://www.activevb.de/rubriken/kolumne/kol_5/apiexceptions.html
http://dotnet.mvps.org/vb/articles/exceptionhandler/"
> Je vais regarder çà, çà semble intéressant.

Merci vraiment pour vos réponses, je vais me repencher dessus demain.
@+

cs_Galain · Answer

Salut violent_Ken
Ton projet est en MDI ( dans la suite ED signifie Editeur Héxadécimal)
Je m'explique : tu ouvres l' "ED disque dur" dans une feuille 1.Tu ouvres l' "Ed visu mémoire" dans une feuille 2
tout ce passe comme si tu ouvrais 2 programmes à la fois
As- tu essayé en SDI (Single Document Interface)? une feuiille menu général,tu ouvres l' "EDdisque dur",tu le fermes et tu ouvres l' "EDvisu mémoire"
J'ai l'impression qu'un paramètre ou valeur utilisée dans "ED disque dur" vient perturber l' "ED visu mémoire"
Cece te permettrait de vérifier qu'il n'y a aucune interaction entre les différents "ED" 
C'est une piste rien de plus

GRENIER Alain[8D]

akella · Answer

moi sa m'est arriver même avec le programme de windows, "Rechercher" donc cela n'est pas seulement du au programme ou a ce qu'il demande, c'est le SP2 qui a été mal fait.

violent_ken · Answer

Violent Ken
Salut,
Galain ==> je vais essayer un SDI, mais dans la mesure ou le bug n'apparait pas quand "j'ouvre 3 programmes" (dans l'ordre Disque_Dur, Fichier et Memoire_Processus), pas de bug.
Donc il y a un lien entre Disque et Mémoire, mais Fichier "annule" le lien ? C'est bizarre.

Je vais essayer de voir les parties de code communes aux deux form Disque et Memoire, j'aurais peut être une piste.

Akella ==> Le SP2 n'est pas directement la cause, c'est juste les applications qui provoquent les bugs qui sont mal codées, à savoir la mienne dans mon cas.

@+

violent_ken · Answer

Violent Ken

Bonsoir, je touche au but.

J'ai isolé le problème, il vient de la procedure GetAllPrivileges pour obtenir le privilege debug de ma classe sur les processus.




'-------------------------------------------------------<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>





'donne le privilege Debug à l'application (permet d'accéder à tout les processus avec OpenProcess)





'-------------------------------------------------------





Private



Sub
 GetAllPrivileges()






Dim

 lhTokenHandle 
As


Long







Dim

 tLuid 
As
 LUID






Dim

 tTokenPriv 
As
 TOKEN_PRIVILEGES






Dim

 tTokenPrivNew 
As
 TOKEN_PRIVILEGES






Dim

 lBufferNeeded 
As


Long









 








    










    


'change les droits de cette application







    

OpenProcessToken GetCurrentProcess(), TOKEN_ALL_ACCESS, lhTokenHandle








    

LookupPrivilegeValue "", SE_DEBUG_NAME, tLuid








    










    

'détermine le nombre de privileges à changer








    

tTokenPriv.PrivilegeCount = 1








    tTokenPriv.TheLuid = tLuid








    tTokenPriv.Attributes = SE_PRIVILEGE_ENABLED








    










    

'autorise le privilege SE_DEBUG_NAME








    AdjustTokenPrivileges lhTokenHandle, 
False
, tTokenPriv, Len(tTokenPrivNew), tTokenPrivNew, lBufferNeeded








    










    


'ferme le handle







    CloseHandle lhTokenHandle






End



Sub










Précisément à la ligne

LookupPrivilegeValue "", SE_DEBUG_NAME, tLuid

Alors là, je ne vois pas trop où peut se situer le problème.
Il me semble que la syntaxe que j'ai utilisée est correcte ?
Quelqu'un pourrait-il me confirmer que cette procédure est correcte, ou bien m'indiquer ce qu'il faut changer ?

Merci beaucoup, @+

violent_ken · Answer

Violent Ken

Salut, c'est bien sur la ligne en question (LookupPrivilegeValue "", SE_DEBUG_NAME, tLuid) que le bug survient. Et plus précisément, c'est à cause du paramètre "".

Remplacé par vbNullString, c'est évidemment la même chose.
Remplacé par le nom du PC (c'est normalement le paramètre qui doit être passé, vbNullString spécifiant que l'on travaille en local) avec sComputerName définit par :

    'créé un buffer pour obtenir le nom du PC
    lBufferLen = MAX_COMPUTERNAME_LENGTH + 1
    sComputerName = String$(lBufferLen, "0")
    'obtient le nom
    GetComputerName sComputerName, lBufferLen
    'formate la string
    sComputerName = Left$(sComputerName, lBufferLen)

c'est toujours le même bug.
Remplacé par "erdnsj" (nom de PC inexistant), l'application passe un long moment sur la ligne du LookupPrivilegeValue et finit PAR MARCHER correctement !
C'est très impropre, je ne peux pas utiliser cette méthode pour contourner le problème ! Surtout que çà n'a aucun sens programmaticalement parlant.

Le paramètre en question (string qui mène au bug) est décrit comme suit dans la MSDN :

lpSystemName
[in] A pointer to a null-terminated string that specifies the name of the system on which the privilege name is retrieved. If a null string is specified, the function attempts to find the privilege name on the local system.

Donc pourquoi mon vbNullString ne passe t-il pas ? Cette API est d'ailleurs toujours utilisée comme cela lorqu'on ne précise pas de PC différent du PC local.

Si vous avez une idée, je suis preneur !

Merci encore, @+
(désolé pour la mise en page pourrie du post d'avant, la coloration syntaxique a lamentablement échoué...)

ShareVB · Answer

salut,

moi je mettrais plutot vbnullstring que ""...sinon donne les declare correspondant...on sait jamais...

ShareVB

violent_ken · Answer

Violent Ken

Salut, j'ai essayé avec "" et vbNullString ==> le résultat est identique. Mais de toutes façons, il me semble que "" et vbNullString donnent la même chose à la compilation ?

Pour les déclarations (sauf les constantes) :

Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long

Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long

Private Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Type LUID
    LowPart As Long
    HighPart As Long
End Type

Private Type LUID_AND_ATTRIBUTES
    pLuid As LUID
    Attributes As Long
End Type

Private Type TOKEN_PRIVILEGES
    PrivilegeCount As Long
    TheLuid As LUID
    Attributes As Long
End Type

Merci, @+

ShareVB · Answer

salut,

LookupPrivilegeValue "", "SeDebugPrivilege", tLuid

SE_DEBUG_NAME ne serait pas une constante numérique par hasard...

ShareVB

violent_ken · Answer

Violent Ken

Négatif,

Private Const SE_DEBUG_NAME As String = "SeDebugPrivilege"

ShareVB · Answer

salut,

si en fait , il y a une différence entre "" et vbnullstring : "" c'est une chaine avec seulement le nul à la fin alors que vbnullstring, c'est vraiment un NULL

essaies de remplacer ton code par : 

'==========================================================================================
'pour le privilège Debug
'==========================================================================================

'constantes
'ajustement des privilèges
Private Const TOKEN_ADJUST_PRIVILEGES = &H20
'demande d'infos sur le privilège
Private Const TOKEN_QUERY = &H8
'demande l'autorisation du privilège
Private Const SE_PRIVILEGE_ENABLED = &H2

'type de Local Unique ID pour le token
Private Type LUID
    LowPart As Long
    HighPart As Long
End Type
'LUID + attributs
Private Type LUID_AND_ATTRIBUTES
    pLuid As LUID
    Attributes As Long
End Type
'structure de privilèges de token
Private Type TOKEN_PRIVILEGES
    PrivilegeCount As Long
    Privileges(1) As LUID_AND_ATTRIBUTES
End Type

'ouvre le token du processus
Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
'ajuste les privilèges
Private Declare Function AdjustTokenPrivileges Lib "advapi32" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long
'regarde la valeur du privilèges
Private Declare Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long

'autorise le privilège SeDebugPrivilege
Private Sub EnableDebug()
    Dim hProc As Long 'handle du processus actuel
    Dim hToken As Long 'handle du token
    Dim mLUID As LUID 'LUID du privilège
    Dim mPriv As TOKEN_PRIVILEGES 'privilèges
    Dim mNewPriv As TOKEN_PRIVILEGES 'nouveaux privilèges
    'renvoie le processus actuel
    hProc = GetCurrentProcess()
    'ouvre le token
    OpenProcessToken hProc, TOKEN_ADJUST_PRIVILEGES + TOKEN_QUERY, hToken
    'regarde la valeur du privilège
    LookupPrivilegeValue vbNullString, "SeDebugPrivilege", mLUID
    'nombre de privilèges
    mPriv.PrivilegeCount = 1
    'attribut ENABLED
    mPriv.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED
    'LUID de privilège
    mPriv.Privileges(0).pLuid = mLUID
    'ajuste le token
    AdjustTokenPrivileges hToken, False, mPriv, 4 + (12 * mPriv.PrivilegeCount), mNewPriv, 4 + (12 * mNewPriv.PrivilegeCount)
    'fermer le handle de token
    CloseHandle hToken
End Sub

sinon je vois vraiment pas...

ShareVB

violent_ken · Answer

Violent Ken

Non, le bug persiste... -__-

Merci quand même pour ta patience.
@+

violent_ken · Answer

Violent Ken Je me focalisais sur la procédure GetAllPrivileges (puisque c'est elle qui génère l'erreur), mais c'est ma form diskFrm, qui gère l'affichage des valeurs hexa obtenues dans le disque dur, qui est à l'origine de divers bugs étranges : 1) freeze du programme lorsque je me rend dans le path "Poste de travail" (par exemple pour ensuite éditer un fichier), d'une boite de dialogue, avec CommonDialogControl 6.0, après avoir ouvert un disque 2) apparition de DEUX "systèmes de croix" de Form (minimiser, maximiser, fermer) dans le coin haut droit de ma MDIForm (car ChildForms en vbMaximized), apparition qui intervient lorsque j'ouvre la form diskFrm. Un des deux "systèmes de croix" n'a pas le style XP une fois sur deux, et ce n'est pas un bug d'affichage (les 6 boutons génèrent une action, qui mène d'ailleurs à un bug). En clair, cette form est à l'origine de n'importe quoi, donc (très) indirectement aussi à l'origine d'un problème mémoire à la ligne du LookupPrivilegeValue. J'ai localisé la procédure en question. Tout mes soucis viennent de : '------------------------------------------------------- 'lecture de lLen bytes à l'offset lOffset dans le drive sDrive '------------------------------------------------------- Public Sub ReadDiskBytes(ByVal sDrive As String, ByVal lOffset As Currency, ByVal lLen As Long, ByRef lResult() As Byte) Dim lDrive As Long Const lBytesPerSector As Long = 512 'constante pour les tests, c'est 512 pour tous mes disques durs. Dim crPointeur As Currency Dim tOver As OVERLAPPED Dim crHi32 As Currency 'On Error GoTo DiskErr 'obtient un path valide pour l'API CreateFIle si nécessaire If Len(sDrive) <> 6 Then sDrive = BuildDrive(sDrive) 'initialise le tableau résultat ReDim lResult(0) 'obtient un handle vers le Drive lDrive = CreateFile(sDrive, GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, 0&, OPEN_EXISTING, 0&, 0&) 'si le handle est correct If lDrive <> INVALID_HANDLE_VALUE Then 'calcule le "move" à appliquer à lDrive crPointeur = CCur(lOffset) * CCur(lBytesPerSector) 'move pointer Call SetFilePointerEx(lDrive, crPointeur, 0, FILE_BEGIN) 'redimensionne le tableau à la taille convenable du résultat ReDim lResult(lLen - 1) crHi32 = 0 'pas de HighOffset par défaut 'on ajoute 1 au HighOffset si crPointer>2^32 'car on doit stocker cette valeur Currency en une LARGE_INTEGER 'pour la structure OverLapped Do If crPointeur < (2 ^ 32) Then Exit Do crPointeur crPointeur - (2 ^ 32): crHi32 crHi32 + 1 'If crHi32 >(2 ^ 31) Then crHi32 crHi32 - (2 ^ 32) Loop If crPointeur >(2 ^ 31) Then crPointeur crPointeur - (2 ^ 32) 'affecte les valeurs de l'offset (constitué de la partie High et de la partie Low) 'à la structure OverLapped tOver.Offset CLng(crPointeur): tOver.OffsetHigh CLng(crHi32) 'obtient les bytes désirés ReadFileEx lDrive, lResult(0), lLen, tOver, 0& End If DiskErr: 'ferme le handle ouvert CloseHandle lDrive End Sub Cette sub est appelée comme ceci : ReadDiskBytes strDrive, oke, ByN(lEd - lBg, clsDrive.BytesPerSector), byteRes() 'oke est une currency contenant le numéro d'un secteur 'ByN(lEd - lBg, clsDrive.BytesPerSector) renvoie un long divisible par le nombre de bytes par secteur (ici 512) 'byteRes() est un tableau de bytes dynamique qui comporte le résultat de la procédure Voici toutes les déclarations correspondantes : Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function ReadFileEx Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpOverlapped As OVERLAPPED, ByVal lpCompletionRoutine As Long) As Long Public Declare Function SetFilePointerEx Lib "kernel32" (ByVal hFile As Long, ByVal liDistanceToMove As Currency, lpNewFilePointer As Currency, ByVal dwMoveMethod As Long) As Long Public Type OVERLAPPED ternal As Long ternalHigh As Long Offset As Long OffsetHigh As Long hEvent As Long End Type les constantes étant déclarées correctement (obtenues sur MSDN). Quelqu'un voit-il un problème dans la sub ? Je ne vous embêterai bientôt plus avec mes problèmes ;) Merci, @+

cs_Galain · Answer

Salut Violent_Ken

Il y a un problème dans ta sub ReadDiskBytes : tu fais un CloseHandle en cas d'erreur après Diskerr: mais tu n'en fais point en cas de réussite après la ligne ReadFileEx etc....... juste avant le End If d'unhandle correct.

Autre chose : c'est quoi  ton BuildDrive(sDrive)

Concernant sDrive il n'a pas la même valeur selon que l'accès se fait à une partition ou  à un disque dur physique : ta fonction BuildDrive laisse penser que c'est une partition soit    "\ \ . \ C :"    pour le disque C mais je ne pense pas que cela vienne de là.L'accès au dique dur physique se fait par "\ \ .\PHYSICALDRIVE0" pour le disque physique 0 (etc.....)

Sinon je ne vois aucune autre erreur ou code sujet à problèmes

Tu vas trouver c'est sûr : bon courage

GRENIER Alain[8D]

ShareVB · Answer

salut,

plusieurs remarques :
-> lpNewFilePointer As Currency devrait surement être Byval lpNewFilePointer As Long dans SetFilePointerEx...car passer une constante comme variable...je suis pas certain que ca marche toujours bien...
-> à la place de lpBuffer As Any => Byval lpBuffer as long et byval varptr(lResult(0)) dans l'appel de ReadFileEx...au moins c'est explicite, ca laisse pas le loisir au compilo de se gourrer...
-> rien à voir avec le prb mais : currency a une échelle de 10000, est-ce pris en compte quelque part ?

ShareVB

violent_ken · Answer

Violent Ken

Salut,

"Il y a un problème dans ta sub ReadDiskBytes : tu fais un CloseHandle en cas d'erreur après Diskerr: mais tu n'en fais point en cas de réussite après la ligne ReadFileEx etc....... juste avant le End If d'unhandle correct." ==> Il n'y a pas de Exit Sub, par conséquent, le CloseHandle du DiskErr sert aussi en cas de réussite de l'appel à ReadFileEx. Par ailleurs, la gestion d'erreur est actuellement désactivée (ligne On error... en commentaire). Donc pas de soucis pour cela il me semble.

Alors oui, tu as tout à fait raison, BuildDrive créé un path valide pour CreateFile dans le cas d'une partition d'un disque dur. La procedure n'ouvre actuellement que des partitions.
Public Function BuildDrive(ByVal sDrive As String) As String
    BuildDrive = "[file://\.\ \.\]"& UCase$(Left$(sDrive, 2))
End Function

"-> lpNewFilePointer As Currency devrait surement être Byval lpNewFilePointer As Long dans SetFilePointerEx...car passer une constante comme variable...je suis pas certain que ca marche toujours bien...
-> à la place de lpBuffer As Any => Byval lpBuffer as long et byval varptr(lResult(0)) dans l'appel de ReadFileEx...au moins c'est explicite, ca laisse pas le loisir au compilo de se gourrer..." ==> J'ai effectué les modifications que tu préconises, c'est effectivement plus judicieux (déjà plus clair à la compréhension).

"-> rien à voir avec le prb mais : currency a une échelle de 10000, est-ce pris en compte quelque part ?"
> Non, ce n'est pas pris en compte ; les valeurs maximales atteintes sont inférieures à 10^12, donc les valeurs Currency sont toujours entières.

Après les modifications effectuées dans les déclarations.... le bug est toujours là (damn).
Je suis presuadé qu'il est situé dans l'appel à SetFilePointerEx, mais pourtant tout semble à priori correct.

Je misère un peu, mais j'ai bien progressé pour "dénicher" ce bug, grâce à vous.

Merci beaucoup pour vos conseils, bonne nuit, @+

cs_Galain · Answer

Pour ShareVb  et Violent_Ken

Après recherche sur MSDN on en déduit que l'Api  SetFilePointerEx est inutile  car on travaille avec une structure Overlapped  qui contient le pointeur d'octets à lire ou à écrire. On peut donc la supprimer aussi bien dans le code que dans les déclarations.
Pour lpBuffer il faut laisser any et de plus il faut le passer par référence (byref) et non par valeur (byval); La constante FILE_BEGIN peut aussi être supprimée si elle ne sert que dans cette sub

ShareVb tu peux en dire plus sur l'échelle 10000 de Currency : je vais chercher de mon côté

On va y arriver les gars : courage

GRENIER Alain[8D]

cs_Galain · Answer

resalut Violent_Ken

Cela fonctionne avec byval varptr(      ) chez toi
chez moi cela ne fonctionne point ou alors je me plante

GRENIER Alain[8D]

cs_Galain · Answer

Ca y est chez moi varptr est Ok pour pointer les tableaux d'octets lus ou écrits et la je passe le paramètre par valeur avec ByVal

@+ , bonne nuit et que les dieux de la programmation soient avec nous !!!!!!!!!

GRENIER Alain[8D]

violent_ken · Answer

Violent Ken

Content que çà marche chez toi ^^ (moi aussi c'est OK pour çà)

"Après recherche sur MSDN on en déduit que l'Api  SetFilePointerEx est inutile  car on travaille avec une structure Overlapped  qui contient le pointeur d'octets à lire ou à écrire" ==> Hum, intéressant. Je vais me pencher dessus demain ^_^

"ShareVb tu peux en dire plus sur l'échelle 10000 de Currency : je vais chercher de mon côté" ==> Moi j'avais compris qu'il parlait du fait qu'une valeur en Currency peut être décimale (si on stocke dedans une LARGE_INTEGER qui dépasse la valeur max entière ?), et comme on travaille sur des adresses, il faut bien sur du entier. Mais les valeurs ne passent jamais décimales (car trop petites), donc pas de gestion particulière de ces cas.
Ou alors j'ai pas compris ?

En tout cas merci encore, bonne nuit.
@+

cs_Galain · Answer

Au sujet de SetFilePointerEx je l'avais mis en currency car il pointe les octets du disque dur et un 20 Go cela fait 20 000 000 000 et cela dépasse les limites d'un Long ( de - 2 147 483 648 à + 2 147 483 647 signé bien sûr). Mais vu que maintenant il est inutile ( voir mon précédent post)

Alez salut les gars

GRENIER Alain[8D]

cs_Galain · Answer

Pour Violent_Ken

je confirme : SetFile PointerEx est inutile et cela fonctionne très bien

Salut

GRENIER Alain[8D]

cs_Galain · Answer

C'est encore moi
Pour le type currency tapez currency dans la recherche des codes et vous trouverez un tutoriel très bien fait qui explique les raisons de ce type de variable

GRENIER Alain[8D]

ShareVB · Answer

salut,

le type currency est un type qui est entier EN INTERNE mais qui à une précision de 4 chiffres à près la virgule. Currency n'est pas un format float...

autrement si tu veux avoir 1024 comme entier dans le currency, il faudra écrire 0.1024...donc divisé par 10000...

par exemple :
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)

Private Sub Form_Load()
Dim c As Currency
Dim l As Long
c = 0.1024

CopyMemory l, c, 4
End Sub

ShareVB

violent_ken · Answer

Violent Ken
Galain ==> Je vais essayer ce soir, dès que j'aurais accès à mon PC, de supprimer les lignes correspondant à l'utilisation de SetFilePointerEx.
"on en déduit que l'Api  SetFilePointerEx est inutile  car on travaille
avec une structure Overlapped  qui contient le pointeur d'octets à lire
ou à écrire"
Ok, donc on renseigne sur le Currency de début d'offset dans le LARGE_INTEGER contenu dans la structure OVERLAPPED (OffsetHigh et Offset).

ShareVB ==> "autrement si tu veux avoir 1024 comme entier dans le currency, il faudra écrire 0.1024...donc divisé par 10000..."Hum, mais pourquoi "tOver.Offset CLng(crPointeur): tOver.OffsetHigh CLng(crHi32)" fonctionne avec crPointeur entier ?

Je veux dire qu'il me semble que si on fait :
Dim curVariable As Currency
Dim lngVariable As Long
    curVariable=1024
    lngVariable=Clng(curVariable)
    Msgbox Cstr(lngVariable)
on obtiendra "1024", car Clng aura convertit la partie entière (car inférieure à 2147483 647) de la variable Currency en Long.

Autrement dit, je pense que :
Dim lngVariable As Long

    curVariable=548.252

    lngVariable=Clng(curVariable)

    Msgbox Cstr(lngVariable)
renverra "548".

Je me trompe ? (j'ai pas VB d'installé sur la machine pour vérifier)
Si c'était le cas, il n'est pas nécessaire d'appliquer un quelconque coefficient multiplicateur de 10^4, car je ne travaille qu'avec des valeurs entières, et inférieures à la plage maximale entière que m'offre le type Currency.

@+

ShareVB · Answer

salut,

effectivement, je parle du point de vue CopyMemory et représentation interne...donc principalement pour SetFilePointerEx...le 10000 c'est juste pour l'utilisation dans un paramètre d'API...

donc en fait, ca marche pour ton overlapped vu que tu fais du calcul en vb mais pour setfilepointerex vu que tu passes directement la currency sans conversion, donc la représentation interne, tu vas te placer 10000 fois trop loin dans le fichier...ca vient donc peut être de là...

ShareVB

violent_ken · Answer

Violent Ken
"donc en fait, ca marche pour ton overlapped vu que tu fais du calcul en
vb mais pour setfilepointerex vu que tu passes directement la currency
sans conversion, donc la représentation interne, tu vas te placer 10000
fois trop loin dans le fichier"
> Hum, il va falloir que je vérifie çà, c'est effectivement probable. Mais de toutes façons, Galain a réussi a utiliser sa procedure de lecture sur le disque (celle que j'ai codée et qui pose problème est directement inspirée de la sienne) sans cette API. Donc je dois pouvoir faire sans.

"...ca vient donc peut être de là..." ==> Je ne pense pas ; j'ai pas encore terminé diskFrm (qui ouvre le disque en hexa), et donc pour l'instant, seul le premier secteur du disque dur est "affiché correctement" (les autres sotn décalés...etc.). Donc même si il y a un coefficient 10^4 en trop, çà ne devrait pas générer de problème (puisque je me contente de lire le premier secteur quand je teste mon *.exe compilé)
Mais par contre, j'ai une erreur quand je navigue dans mon disque (genre dépassement de capacité) sur les autres secteurs, et là c'est très certainement dû à çà.
Je vais vérifier ce soir.
Merci, @+

violent_ken · Answer

Violent Ken

Bonsoir !

Alors j'ai étudié l'intérêt de SetFilePointerEx, j'ai vu qu'il était dispensable, mais j'ai surtout vu que le bug ne venait pas de là, mais venait très précisément de :

ReadFileEx lDrive, ByVal VarPtr(lResult(0)), lLen, tOver, 0&
(ou bien la version antérieure sans le VarPtr)

Alors comme je voyais pas l'erreur contenue dans cette ligne de code, j'ai décidé de changer cette sub complètement... je me suis inspiré de http://vbcity.com/forums/faq.asp?fid=9&cat=System#TID6975 , et j'ai opté pour des APIs utilisés pour des actions non asynchrones (donc SetFilePointer et ReadFile) parce que... je vois pas l'utilité du -Ex ;)

Donc çà donne çà :

Public Sub DirectReadDriveNT(ByVal sDrive As String, ByVal iStartSec As Currency, ByVal iOffset As Currency, ByVal cBytes As Long, ByVal BytesPerSector As Long, ByRef abResult() As Byte)
Dim hDevice As Long
Dim abBuff() As Byte
Dim nSectors As Currency
Dim nRead As Long


    'obtient un path valide pour l'API CreateFIle si nécessaire
    If Len(sDrive) <> 6 Then sDrive = BuildDrive(sDrive)


    'calcule le numéro du secteur lu
    nSectors = Int((iOffset + cBytes - 1) / BytesPerSector) + 1
    
    'ouvre le drive
    hDevice = CreateFile(sDrive, GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, 0&, OPEN_EXISTING, 0&, 0&)
    
    'quitte si le handle n'est pas valide
    If hDevice = INVALID_HANDLE_VALUE Then Exit Sub
    
    'move pointer
    Call SetFilePointer(hDevice, iStartSec * BytesPerSector, 0, FILE_BEGIN)
    
    'redimensionne les tableaux résultants
    ReDim abResult(cBytes - 1)
    ReDim abBuff(nSectors * BytesPerSector - 1)
    
    'appel l'API de lecture
    Call ReadFile(hDevice, abBuff(0), UBound(abBuff) + 1, nRead, 0&)
    
    'ferme le handle
    CloseHandle hDevice
    
    'stocke le résultat dans le tableau
    CopyMemory abResult(0), abBuff(iOffset), cBytes
End Sub

et çà marche a priori !

Certes, il y a un bug pour certaines valeurs de l'Offset ("L'exception résultat inexact en virgule flottante. (0xc000008f s'est produite dans l'application à l'emplacement 0x7c812a5b"). C'est très certainement dû au problème soulevé par ShareVB sur le type Currency.
Ou alors il manque un Clng, Ccur ou quelque chose comme çà.

La procédure en elle même est moins performante que celle proche de celle de Galain, mais je vais tenter d'optimiser çà.

Concernant le bug du freeze de la fenêtre Ouvrir (Common Dialog Control) pour le path "Poste de travail", c'est reglé !

Pour le bug "La mémoire ne peut être "Read"...", c'est a priori réglé pour le moment !

Pour le bug sur les MDIForm, çà persiste quand même (dammit !!)
Voilà le résultat, après ouverture de diskFrm, puis d'une autre form (par exemple édition de fichier) 
http://www.enregistrersous.com/images/52b30614e3be9b557ceeb84209d601e6.jpg
mais c'est sans doutes un autre problème, complètement indépendant de celui résolu.

Donc je peux désormais dire que le problème de  "mémoire ne peut etre "Read"..." EST RESOLU !!
Tout n'est pas parfait, mais cette erreur que je ne m'expliquais pas a disparu, c'était un problème généré par la procédure ReadDiskBytes (API ReadFileEx).

> MERCI à tous ceux qui m'ont répondu, pour leur patience, leur disponiblité et leurs connaissances (en particulier MERCI à Galain et ShareVB).
J'y serais jamais arrivé sans vous, vous êtes trop fort les gars ;)

Encore merci, @+
Bonne prog !

ShareVB · Answer

salut,

juste pour l'histoire de compléter : franchement je me demande pourquoi j'ai pas regarder readfileex de près avant : le dernier paramètre ne doit pas être nul vu que c'est la fonction qui est appelée lorsque la lecture est terminée...de plus, vb n'aime pas bien le multi accès dans le code...

pour ce qui de l'exception machin truc : si tu passes directement un currency dans une api alors tu dois diviser la valeur par 10000 OBLIGATOIREMENT...

ShareVB

violent_ken · Answer

Violent Ken

"si tu passes directement un currency dans une api alors tu dois diviser la valeur par 10000 OBLIGATOIREMENT" ==> Oui, oui, tout à fait.

"juste pour l'histoire de compléter : franchement je me demande pourquoi j'ai pas regarder readfileex de près avant : le dernier paramètre ne doit pas être nul vu que c'est la fonction qui est appelée lorsque la lecture est terminée"
> Disons que les codes utilisant cette API que j'ai rencontrés (notemment celui de Galain) marchent bien, et avec le dernier paramère nul. D'ou le fait que je n'ai rien précise dans ce paramètre.

J'ai mis un AddressOf(function_inutile) qui résout complètement le problème.

Merci encore, @+

cs_Galain · Answer

Salut ShareVb et Violent_Ken

Permettez moi de reprendre l'histoire de ma fonction pour lire les secteurs de disques durs

1° CreateFile,SetFilePointer et Readfile : mais on ne lit que les 2 premiers Go du disque dur ou de la partition
2° CreateFile,SetFilePointerEx et ReadFileEx et là plus de limite
3° SetFilePointer est inutile ( c'était hier) 

Le dernier paramètre de ReadFileEx est l'adresse d'une fonction qui est appelée une fois le ReadFileEx appelée si la valeur de ce paramètre est différent de 0.si on met à 0 aucun appel de fonction est réalisé.
Le code devrait fonctionner aussi bien avec Readfile qu'avec ReadfileEx car le pointeur d'octets est contenu dans la structure Overlapped

il n'y a aucun problème avec les currency car on ne fait que des calculs sur ce type de valeur et on ne copie rien en mémoire. Par contre j'avais fait une erreur  en passant un Cuurrency avec SetFilePointerEx ( voir la division par 10000 ) mais cette erreur n'est jamais apparue car SetFilePointerEx était inutile.

donc Violent_Ken chez moi mon code fonctionne et j'espère qu'il fonctionne correctement chez toi.Teste ta fonction en affichant le secteur 39 000 000 si ta partition est > à 20 Go et si c'est Ok tu as gagné

bonne prog à vous deux et merci pour vos conseils

vive codes-Sources
GRENIER Alain[8D]

violent_ken · Answer

Violent Ken

Salut Galain,

le problème est que la procédure ReadDiskByte en elle-même (même erronnée) fonctionne correctement. Mais elle génère ailleurs (chez moi au loading d'une autre Form) une erreur d'accès à la mémoire.

Et c'est complètement justifié.

Remplace dans ton progamme la ligne de code du ReadFileEx par
result& = ReadFileEx(hDevice&, readoctet(0), nbytes&, over, AddressOf CallBackREADFILE)

et créé dessous cette fonction :

Private Function CallBackREADFILE()
Beep
End Function

Ton programme fera "beep" quand la fonction CallBackREADFILE sera appelée par l'API ReadFileEx.
Dans ton cas, je pense que ton application ne fera jamais "beep" (sinon tu aurais eu la même erreur que moi à l'endroit ou le "beep" se fait entendre).

Dans mon cas, le "beep" apparait au loading de frmProcesses.
Et c'est exactement au même endroit que mon bug apparaissait.
Explication logique : ReadFileEx avait comme paramètre un pointeur nul (pas de fonction mais 0&) ==> bug, accès vers une zone mémoire impossible.

Donc ne pas spécifier de pointeur vers une fonction est une erreur de programmation, bien que le bug résultant ne soit (apparement) pas toujours visible (si CallBackREADFILE n'est jamais appellée)
MSDN ne précise pas que le dernier paramètre puisse être 0& ; donc il FAUT préciser une long qui pointe vers un truc valide.

"1° CreateFile,SetFilePointer et Readfile : mais on ne lit que les 2 premiers Go du disque dur ou de la partition
2° CreateFile,SetFilePointerEx et ReadFileEx et là plus de limite"
> Je pense qu'en changeant les déclarations des APIs SetFilePointer, ReadFile...de Long vers Currency, la limite disparait.
La différence entre ReadFile et ReadFileEx, SetFilePointer et SetFilePointerEx est le fait que LaFonctionEx est utilisé pour des actions asynchrones (contrairement à LaFonction)

"il n'y a aucun problème avec les currency car on ne fait que des calculs sur ce type de valeur et on ne copie rien en mémoire."
> Dans la nouvelle procédure que j'ai postée, j'uilise un CopyMemory : c'est la qu'il faut diviser par 10^4.
Mais dans ton code, oui, pas de problème de Currency.

Merci encore, @+
(corrigez moi si je dis des trucs faux ;))

cs_Galain · Answer

Pour Violent_Ken

Je suis désolé de t'informer que tu n'auras accès au 2 premiers Go de tes partitions car le code dont tu t'es inspiré sur le site VBcity est le code qui m'a permis de faire "Accès direct disque" à ses premiers débuts et j'ai été confronté à la limite des 2 Go ( valeur maxi d'un Long signée).
C'est là que je me suis tourné vers SetFilePointerEx et ReadFileEx qui prenne en charge des capacités bien supérieures ( jusqu'a 4 To soit 4096 gigaoctets) et les structures Overlapped et la gymnastique pour avoir les 2 valeurs Overlapped en Long signées

dis-moi ce qu'il en est de tes accès partitions si tu dépasses la limite des 2 Go : normalement ça doit planter ou générer un message d'erreur

GRENIER Alain[8D]

violent_ken · Answer

Violent Ken

Pour mes accès partition, je n'ai pas testé, mon programme n'est pas encore opérationnel pour visualiser les secteurs autres que le premier.

Mais regarde ceci
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/fs/readfile.asp
la différence entre là :
"The ReadFile function reads data from a file, and starts at the position that the file pointer indicates. You can use this function for both synchronous and asynchronous operations.


The ReadFileEx function is for only asynchronous operation."

Donc si l'on utilise correctement la stucture OVERLAPPED avec ReadFile, çà devrait très bien passer pour des disques de plus de2Go, tout comme avec ReadFileEx.
Les 2 APIs sont identiques à ce niveau.

"Je suis désolé de t'informer que tu n'auras accès au 2 premiers Go de tes partitions car le code dont tu t'es inspiré sur le site VBcity est le code qui m'a permis de faire "Accès direct disque" à ses premiers débuts et j'ai été confronté à la limite des 2 Go "
> Tout à fait, car il n'utilisent pas la structure OVERLAPPED, et parce qu'ils se limitent à des Long.

C'est çà qui est incorrect
"Private DeclareFunction ReadFile Lib"kernel32" (ByVal hFile AsLong, lpBuffer AsAny, ByVal nNumberOfBytesToRead AsLong, lpNumberOfBytesRead AsLong, ByVal lpOverlapped AsLong) AsLong "
Mais çà se change pour s'adapter au Currency sans problèmes je pense.

@+

violent_ken · Answer

Violent Ken

"Le dernier paramètre de ReadFileEx est l'adresse d'une fonction qui est appelée une fois le ReadFileEx appelée si la valeur de ce paramètre est différent de 0.si on met à 0 aucun appel de fonction est réalisé."

> C'est là le problème.
"lpCompletionRoutine
[in] Pointer to the completion routine to be called when the read operation is complete and the calling thread is in an alertable wait state. For more information about the completion routine, see FileIOCompletionRoutine."
0 n'est pas autorisé, il faut préciser une adresse de fonction : quand 0 est autorisé, MSDN le précise (là c'est pas le cas).

@+

cs_Galain · Answer

Salut Violent_Ken

J'ai mis les routines de CallBack en AdressOf pour mes accès disque : comme tu le prévoyais chez moi cela ne fait pas Beep.
Merci pour ta patience et ton aide car j'en ai appris pas mal grâce à toi et à ShareVb : comme on dit il faut savoir partager et partager son savoir

A+ et bonne prog ( j'ai vu l'aperçu de ton programme grâce à l'image que tu as mis : cela déchire). Bravo

GRENIER Alain[8D]

violent_ken · Answer

Violent Ken

Merci à toi pour ta patience et tes connaissances partagées.
Ce topic fut long, mais enrichissant ;)

Et merci pour le compliment ^^

Bonne soirée, @+

le cancre · Answer

salut violent ken, 
j'ai eu le meme code erreur que toi...je sais pas si tu as solutionner ton probleme ou pas

pour moi cas, c'est une faute de frappe <--chose qui arrive souvent 
j'ai utilisé copymemory avec le mauvais nom de ma structure,donc une structure vide qui n'existe pas d'ou cette adresse 00000000000

voila à plus

violent_ken · Answer

Violent Ken

Salut, j'ai effectivement solutionné le problème et c'était vraiment du même ordre ==> argument qui réclamait une adresse de fonction de CallBack et j'avais passé 0&...

Merci, @+ et bonne prog. ^^

Mémoire ne peut pas être "Read" ==> causes possibles ?

60 réponses

Votre réponse

Discussions similaires