si si c'est dans la doc pourtant !!Parole De JOJO a écrit :Depuis que j'ai decouvert PB je me pose cette question. que signifient les symboles @?* places avant des variables
j'ai fouille la doc mais je n'ai rien trouve
on en parle dans un tuto ou kelkepart d'autre?
merci
Code : Tout sélectionner
a$="toto" ; met "toto" dans le tiroir 'a$'
Debug @a$ ; affiche l'adresse memoire du tiroir 'a$'
Debug PeekS(@a$) ; affiche le contenu de l'adresse , donc affiche le contenu du tiroir 'a$' =>"toto"
Code : Tout sélectionner
Procedure CopyFile(file.s)
If FileSize(file) = -1
If CreateFile(0, file)
WriteData(0, ?FileStart, ?FileEnd - ?FileStart)
CloseFile(0)
EndIf
EndIf
EndProcedure
CopyFile("aaa.txt")
CopyFile("bbb.txt")
DataSection
File1Start:IncludeBinary "aaa.txt":File1End:
File2Start:IncludeBinary "bbb.txt":File2End:
EndDataSection Code : Tout sélectionner
Debug PeekS(@a$)
Code : Tout sélectionner
Debug a$Par contre JOJO, attention à ne pas abuser de ce genre de procédure, elle a ses limites mémoires (taille de fichier à incorporer) et certains antivirus n'aime pas trop ce genre d'auto création d'exe.Dobro a écrit :Code : Tout sélectionner
; Façon Flype en procedure Procedure.l BinToFile(FileName.s, *BinStart, *BinEnd) Protected id.l = CreateFile(#PB_Any, FileName) If id WriteData(id, *BinStart, *BinEnd - *BinStart) CloseFile(id) EndIf EndProcedure BinToFile("c:\bin1.exe", ?BIN_START1, ?BIN_END1) BinToFile("c:\bin2.exe", ?BIN_START2, ?BIN_END2) DataSection BIN_START1: IncludeBinary "TEST1.EXE" : BIN_END1: BIN_START2: IncludeBinary "TEST2.EXE" : BIN_END2: EndDataSection
Dans le cas présent, le seul intérêt est celui de l'exemple.Ar-S a écrit :Quel est la l'intérêt d'afficher;au lieu de :Code : Tout sélectionner
Debug PeekS(@a$)Code : Tout sélectionner
Debug a$
Perso je me sers beaucoup des pointeurs dans tout ce qui touche aux interactions réseaux (gestion des paquets notamment). Le pointeur les plus intéressant sont ceux qui permettent d’accéder à des structures.