En fait les grands esprits se rencontrentgildev a écrit :Oups! Désolé flaith, c'est moi qui ai zapé ta réponse, le matin au taf j'ai un peu de mal.
En gros ma réponse du coup est presque un copier-coller de la tienne.
Forme Anglaise dans QBX...Syntaxe
LOCK [#]numéro de fichier [,{enregistrement |[début] TO fin}]
[instructions]
UNLOCK [#]numéro de fichier [,{enregistrement | [début] TO fin}]
Ces instructions sont employées dans un environnement … réseau où plusieurs
tâches peuvent faire appel au même fichier.
Argument Description
---------------|----------------------
numéro de fichier Numéro sous lequel le fichier a été ouvert.
enregistrement Numéro de l'enregistrement ou de l'octet devant
------------------- être protégé; enregistrement peut être n'importe
------------------- quel numéro compris entre 1 et 2 147 483 647
------------------- (soit 2^31 -1). Il peut atteindre une longueur
------------------- de 32 767 octets.
début : Numéro du premier enregistrement ou du premier octet … protéger.
fin : Numéro du dernier enregistrement ou du dernier octet … protéger.
Pour les fichiers en mode binaire, les arguments enregistrement, début et fin représentent le numéro d'un octet par rapport au début du fichier. Le premier octet dans un fichier est l'octet numéro 1.
Pour les fichiers … accès aléatoire, les arguments enregistrement, début et fin correspondent au numéro
d'un enregistrement par rapport au début du fichier. Le premier enregistrement porte le numéro 1.
Les instructions LOCK et UNLOCK sont toujours employées de pair. Les arguments de LOCK et UNLOCK, s'il sont utilisés, doivent être identiques. Voir le deuxième exemple ci-dessous.
Lorsqu'un seul enregistrement est spécifié, seul cet enregistrement est verrouillé ou déverrouillé. Lorsqu'une série d'enregistrements est spécifiée en omettant celui du commencement (début), tous les enregistrements depuis le premier jusqu'à la fin de la série (fin) sont verrouillés ou déverrouillés. En l'absence d'arguments d'enregistrement, LOCK protège le fichier entier, tandis que UNLOCK d‚verrouille le fichier entier.
Si le fichier a été ouvert pour l'E/S séquentielle, LOCK et UNLOCK agissent sur le fichier entier, quelle que soit la plage spécifiée par début et fin.
LOCK et UNLOCK ne peuvent être exécutées que sur les versions de DOS ou OS capables de gérer les réseaux
Je crois que cela se passe de commentaires, c'est vieux,LOCK #Filenumber, record& | start& To end&
- #Filenumber : The number with wich the file was opened
- record& : The number of the record or byte to be locked
Ce qui suit est optionnel !
Mais permet entre autre de verrouiller plusieurs enregistrement ou une séquence de Bytes
- start& : The number of the first record or byte to be locked
- end& : The number of the last record or byte to be locked
UNLOCK #Filenumber,record& | start& To end&
Exemple en PowerBasic !:Syntax : LOCK [#] filenum& [, {record&& | start&& TO end&&}]
Remarks : LOCK prevents another process from accessing a record, range of records, byte,
or range of bytes in a file opened as file number filenum&.
If the file was opened in random-access mode, record&&, start&&, and end&& specify record numbers. When used with binary mode files, record&&, start&&, and end&& specify byte positions, starting from either zero or one (the default).
If a record is specified, only that record (or byte) is locked. Otherwise, a range of records (or bytes) is locked, from start&& to end&&.
If no records are specified, or if the file was opened in sequential mode, the entire file is locked.
All records (or bytes) to be locked must be subsequently unlocked using the UNLOCK statement. Multiple locks may be placed on a file, and locks may be unlocked in any order. However, the parameters used for each UNLOCK statement must exactly match those used for the previous corresponding LOCK statement.
@falsamOPEN "PATIENTS.DAT" FOR RANDOM AS #1 LEN = 1024
' determine the record number to retrieve
LOCK #1, recnum
GET #1, recnum
' process the record here
PUT #1, recnum
UNLOCK #1, recnum
CLOSE #1
D'accord avec toi, sauf que c'est justement ce que je veux éviter en ayant DANS PB, deux petite instruction qui ferais le travaille sans intervention externe... Quoi qu'il se passe à l'extérieur mon application sera toujours sous mon contrôle !Si c'est de bases de données dont tu parles, tu pourrais utiliser des bases de données Comme MySQL ou PostGreSQL ? tu n'aurais plus de question à te poser.
Moi j'ai connus, tout comme cela existe naturellement dans Windev, et un peu d'auto-valorisation mon "Progene 3", un générateur aussi (1986-1994 ou 5 ?on utilisant un générateur d'applications (que personne connait : "Yes You Can"), il y avait cette fonction qui permettait de locker/unlocker un enregistrement et cela tournait pourtant sous Dos 6.22
) Et des langages pure et dure ! que cela s'applique aux Bytes
Code : Tout sélectionner
; ------------------------------------------------------------
; Verrouillage d'un bloc dans un fichier PB .../
; ------------------------------------------------------------
Global hFile
; Ouverture du fichier ..............
Procedure OpenFilehandle(Filename.s)
dwDesiredAccess =#GENERIC_READ | #GENERIC_WRITE
dwShareMode =#FILE_SHARE_READ + #FILE_SHARE_WRITE
lpSecurityAttributes=0;.SECURITY_ATTRIBUTES
dwCreationDisposition=#OPEN_EXISTING
dwFlagsAndAttributes=0
hTemplateFile =0
hFile=CreateFile_(@FileName.s,dwDesiredAccess,dwShareMode,lpSecurityAttributes,dwCreationDisposition,dwFlagsAndAttributes,hTemplateFile)
ProcedureReturn hFile
EndProcedure
;
Procedure CloseFilehandle(hFile)
CloseHandle_(hFile)
EndProcedure
; ----------------------------- LOCK ----------------------------------
Procedure _LockFile(hFile,Offset,Length)
If hFile
dwFileOffsetLow=Offset
dwFileOffsetHigh=0
nNumberOfBytesToLockLow=Length
nNumberOfBytesToLockHigh=0
result=LockFile_(hFile,dwFileOffsetLow,dwFileOffsetHigh,nNumberOfBytesToLockLow,nNumberOfBytesToLockHigh)
ProcedureReturn result
EndIf
EndProcedure
; ----------------------------- UNLOCK ----------------------------------
Procedure _UnLockFile(hFile,Offset,Length)
If hFile
dwFileOffsetLow=Offset
dwFileOffsetHigh=0
nNumberOfBytesToLockLow=Length
nNumberOfBytesToLockHigh=0
result=UnlockFile_(hFile,dwFileOffsetLow,dwFileOffsetHigh,nNumberOfBytesToLockLow,nNumberOfBytesToLockHigh)
ProcedureReturn result
EndIf
EndProcedure
; ------------------------------------------------------------
; EXEMPLE :
Filename.s="PureBasicTestFile.bin"
MessageRequester("PureBasic", "Bonjour!"+Chr(13)+"PureBasic va écrire dans le fichier : "+Filename, 0)
If FileSize(Filename)<1
If CreateFile(0, Filename)
mem=AllocateMemory(1024*10)
WriteData(0,mem,MemorySize(mem) )
CloseFile(0)
Else
MessageRequester("PureBasic", "Error: can't write the file, existing ?", 0)
;End
EndIf
EndIf
hFile=OpenFilehandle(Filename)
If hfile
MessageRequester("PureBasic", "Length="+Str(FileSize(Filename)), 0)
;Now lock the second block
Result=_LockFile(hfile,1024*2,1024)
MessageRequester("PureBasic", "Stop - Locked (2. Block) .." + Str(Result), 0)
Result= _LockFile(hFile,1024*2,1024)
MessageRequester("PureBasic", "Stop - next Locking (2. Block) will fail (is allready locked) .."+ Str(Result), 0)
Result= _LockFile(hFile,1024*3,1024)
MessageRequester("PureBasic", "Stop - next Locking (3. Block) Works .."+ Str(Result), 0)
Result=_UnLockFile(hFile,1024*2,1024) ;Now unlock
MessageRequester("PureBasic", "unLocking (2.Block) ="+ Str(Result), 0)
Result=_UnLockFile(hFile,1024*3,1024) ;Now unlock
CloseFilehandle(hFile)
Else
MessageRequester("PureBasic", "Error: Can't open file", 0)
EndIf
Oui, peut-être. Mais ce qui est certains c'est qu'une bonne partie des fonctions PB sous Windows, sont des substitue de fonction APIs aménagé pour rendre la forme d'appel plus accéssible et somme toute c'est le rôle d'un langage...flaith a écrit :Je pense que tu as ta réponse car <"il est possible que"> powerbasic utilise justement cette API !!!
Enfin peut-être bien sur, il faudrait avoir un exe venant de powerbasic et vérifier dans cet exe s'il fait appelle à ces API
