Page 1 sur 1

Inclure un fichier et sen servir

Publié : mar. 16/mai/2006 19:12
par scaraber
salut
voila j'ai inclu dans mon exe deux fichier

Code : Tout sélectionner

Global listing,CDC

DataSection
listing:
IncludeBinary "listing.txt"
CDC:
IncludeBinary "Créateur_de_chipset.compress"
EndDataSection
mais je voudrait m'en servir apres (ouvrir le fichier txt et le packer)
comment faire ?
merci d'avance
a+
scaraber

Publié : mar. 16/mai/2006 19:21
par AWEAR
Comme ca :
CreatePack(ton_pack$)

AddPackMemory(?debut, ?fin-?debut)

DataSection
debut:
IncludeBinary "ton fichier"
fin:
EndDataSection
?

Publié : mar. 16/mai/2006 19:25
par scaraber
non
mes fichier son deja créé je veu les mettre dans un fichier puis les utiliser avec openpack et openfile
a+
scaraber

Publié : mar. 16/mai/2006 19:30
par Dorian
Voici le code : (v4)

Code : Tout sélectionner

CreateFile(0, "listing.txt")
WriteData(0, ?listing, ?CDC - ?listing)
CloseFile(0)
CreateFile(0, "Créateur_de_chipset.compress")
WriteData(0, ?CDC, ?end - ?CDC)
CloseFile(0)

;- Inclusion des fichiers
DataSection
  listing: ; adresse mém du début du fichier listing
  IncludeBinary "listing.txt"
  CDC: ; adresse mém de la fin du fichier listin et début du fichier Créat...
  IncludeBinary "Créateur_de_chipset.compress" 
  end: ; adresse de fin du fichier Créat ...
EndDataSection
Sa doit marché (compilé sous la béta 1 mais doit pas avoir de grosse différences ^^)

Publié : mar. 16/mai/2006 20:48
par scaraber
et en 3.94 sa donne .?:D
je suis sous 3.94 je suis sur un viex PC et jai la fleme de dl la 4 de plsu que je susi en vitesse de conexion reduite en ce moment....

Publié : mar. 16/mai/2006 20:51
par Dorian
Presque la même chose, suffit de d'enlever le "0, " du writedata() et sa roule normalement ^^