PureBasic

;=======================================================
Fich$="ma_dll.dll" ;mettre le nom d'un fichier a compresser
;=======================================================

sait tu qu'il existe les requester pour ça ??

remplace ta ligne ci dessus par ça :

Code : Tout sélectionner


Fich$ = OpenFileRequester("charge un fichier", "c:\", "*.*", 0 )

pourquoi tu transform en ascii pour retransformer en numerique ??

Code : Tout sélectionner

a$ = Chr(PeekB(*Buffer+i))
a = Asc(a$)

a la place ceci ne marche pas ??

Code : Tout sélectionner

 a=PeekB(*Buffer+i))

PureBasic

...