Rappel EcrireFlux(F : Nul Ou FluxInternet, FinDeFlux : Booleen Sortie);
Le paramètre F est le flux ouvert en écriture binaire dans lequel la méthode doit écrire le contenu. Quand la fin du contenu est atteinte, le paramètre FinDeFlux doit être 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.EcrireFlux(F : Nul Ou FluxInternet, FinDeFlux : Booleen Sortie)
/* Objet : Ecrit dans le flux le fichier a transférer. */
/****************************************************************/
Variable
/******/
MonClient : MonClientFtp;
Buffer : Binaire;
TailleLue : Entier;
Debut
MonClient=MonClientFtp(LireExtension("AppFts"));
TailleLue=MonClient.FichierATransferer.Lire(Buffer, TailleBuffer);
Si TailleLue!=0 Alors
F.Ecrire(Buffer);
Fin Si
Si TailleLue<TailleBuffer Alors
FinDeFlux=Vrai;
MonClient.FichierATransferer.Fermer();
MonClient.FichierATransferer=Nul;
MonClient.NomFichier=Nul;
Fin Si
Retourner RappelSucces;
Fin Rappel
| - | - | - | - | - | - | - | - | - |