PureBasic

Voici un compresseur de zero:

lu$="c:\sound32.dll"

ReadFile(0, lu$) ; fichier à lire afin de le compresser en ZPK
lon=Lof()

CreateFile(1, lu$+".ZPK") ; on ecrit le fichier compressé en ZPK

i=0
z=0
ze=0
look.b=0

For i=1 To lon
UseFile(0) 
look.b = ReadByte()
UseFile(1) 

If look<>0
;********************************************************
;********************************************************
If ze=1;***************************************************
Repeat
WriteByte(0)
z-1
    If z>255
    z-255
    WriteByte(255)
    Else
    WriteByte(z)
    z=0
    EndIf
Until z=0
ze=0
EndIf;****************************************************
;********************************************************
;********************************************************
WriteByte(look.b)
Else ; If look=0
ze=1
z+1
If i=lon
Repeat
WriteByte(0)
z-1
    If z>255
    z-255
    WriteByte(255)
    Else
    WriteByte(z)
    z=0
    EndIf
Until z=0
Goto stop
EndIf
EndIf
Next

stop:
CloseFile(0)
CloseFile(1)

Je pourrait le mettre en procedure, je sais. Mais je pourrais aussi m'essayer dans le domaine DLL. Alors comment transformer ce code en fichier DLL ?
puis comment utiliser cette DLL ?

C'est en effet mon premier pas vers le DllMonde

met tout çà en procedures. Mais avec ProcedureDLL mafonction()
Il ne faut aucun code en dehors des procedures, à part des macros, constantes, structures, globales, ...
et compile en mode dll ( options du compilateur )
regarde dans la doc ou cherche dll sur le forum ya plein d'exemples.

PureBasic

Comment mettre ca en DLL et l'utiliser apres ?

Comment mettre ca en DLL et l'utiliser apres ?