[Delphi]Transfert avec TServerSocket et TClientSoc

Bonjour,

Je vous propose un nouvel élément à utiliser : [Delphi]Transfert avec TServerSocket et TClientSocket

Exemple de transfert de fichier avec les composants TServerSocket et TClientSocket.



NOTES : Le transfert de fichier n'est pas optimisé, mais ce n'était pas le but de cet exemple qui est en premier de montrer l'utilisation des composants.

Utilisation :

Sur le serveur il suffit d'appuyer sur le bouton ouvrir.

Sur un client il faut renseigner l'adresse ip du serveur et ensuite appuyer sur le bouton "Envoyer".



Le client se connecte au serveur, transfert le fichier par bloc et se déconnecte. Le serveur n'accepte qu'un seul fichier à la fois, ce n'est pas une limitation du TServerSocket mais de l'application.



Qu'en pensez-vous ?