Rappel LireFlux(F : Nul Ou FluxInternet, FinDeFlux : Booleen);
Le paramètre F est le flux ouvert en lecture binaire dans lequel la méthode doit lire le contenu. Quand la fin du contenu est atteinte, le paramètre FinDeFlux est renseigné à Vrai et l'appel à la méthode est alors le dernier.
La valeur de retour doit suivre la convention de fonctionnement de l'énuméré RappelReponse.
/****************************************************************/
Rappel ClientFtp.LireFlux(F : Nul Ou FluxInternet, FinDeFlux : Booleen)
/* Objet : Lit le flux pour transférer le fichier. */
/****************************************************************/
Variable
/******/
MonClient : MonClientFtp;
Buffer : Binaire;
TailleLue : Entier;
Debut
MonClient=MonClientFtp(LireExtension("AppFts"));
TantQue Vrai Faire
TailleLue=F.Lire(Buffer,TailleBuffer);
Si TailleLue!=0 Alors
MonClient.FichierATransferer.Ecrire(Buffer);
Fin Si
Si (TailleLue!=TailleBuffer) Ou (Non FinDeFlux) Alors
Arreter;
Fin Si
Fin TantQue
Si FinDeFlux Alors
MonClient.FichierATransferer.Fermer();
MonClient.FichierATransferer=Nul;
MonClient.NomFichier=Nul;
Fin Si
Retourner RappelSucces;
Fin Rappel
| - | - | - | - | - | - | - | - | - |