|
[WD5.5] Copier un fichier avec jauge |
|
|
bonjour,
la fonction fcopiefichier de windev est bien mise a part 2 choses, il n'est pas possible d'avoir une jauge (regle en windev 7) donc je l'ai faite pour WD5.5
function Monfcopiefichier(source,destination)
NumeFicSour est un entier long NumeFicDes est un entier long res est un entier taillefic est un entier long taillelue est un entier long rep est un entier Buffer est une chaineasciiz sur 512 rep=0 taillefic = ftaille(source) si taillefic <> 0 NumeFicSour = fopen(source,folecture) si NumeFicSour <> -1
NumeFicDes = fopen(destination,Focreation) si NumeFicDes <>- 1
res = flit(NumeFicSour,512,&buffer) tantque res <> 0
taillelue+=512 si fecrit(NumeFicDes,&buffer,512) = -1 ALORS rep=513 res = flit(NumeFicSour,512,&buffer) Jauge(taillelue,TailleFic,"Copie du ficher",iRougeClair,iJauneClair)
fin fferme(NumeFicDes)
sinon
rep = 512
fin fFerme(NumeFicSour)
sinon
rep = 500
fin
sinon
rep = 256
fin message("") renvoyer(rep) ---------------------------------------------------------------------------------------
voila qui est maintenant chose faite
Contribution le : 04/07/2002 15:10
|
|
Vous ne pouvez pas débuter de nouveaux sujets.
Vous pouvez voir les sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.