Direct connect server indy

Soyez le premier à donner votre avis sur cette source.

Vue 9 875 fois - Téléchargée 2 193 fois

Description

Réalisée a l'aide de delphi 7 et de l'unité Tidtcpserver Cette application a pour but de gerer les clients direct connect pour remplacer leur serveur.
Fonctions implémentées :
-pour l'instant elle ne gere que les acces des clients au serveur.
-les fonctions de recherches de fichiers entre clients sont mises au point
-le bot donne l'heure toutes les demi heures
-gestion des messages en privé
-connection des clients actifs et passifs (envois et réceptions de fichiers)
-kick (et oui on peut ejecter un client du hub)
-le bot verifie la taille du share du client (si inferieur a 3 Go le client est éjecté )

Pour aller sur le serveur suivez l'adresse suivante : llumina.myftp.org:711

Conclusion :


Ben voila si il y en a qui veulent bosser sur cette nouvelle mouture alors allez Y !!!! PS: ce code peut ressembler a un autre, je m'en suis juste inspiré.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

jmp77
Messages postés
1119
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
4 octobre 2006
4 -
Hello,

Enleve tous les fichiers .dcu et .~... , ils sont inutiles et surcharge le serveur et surtout ne nous aides pas à avoir une vision générale de ton source.

Bonne continuation,
JMP77.
aroslide
Messages postés
24
Date d'inscription
vendredi 3 janvier 2003
Statut
Membre
Dernière intervention
27 juin 2011
-
Merci pour ton conseil JMP77. Et pour l'encouragement aussi !!
Dreuteu
Messages postés
44
Date d'inscription
samedi 16 octobre 2004
Statut
Membre
Dernière intervention
28 février 2006
-
Juste une question... Pourquoi sur l'ensemble de projets multi fiches, on en trouve a peine 1/10 dont les fiches ont des noms clairs? Ca aide pas trop a s'y retrouver dans le code (d'une part) et dans le fichier (d'autre part)...

Sinon ca a l'air interessant
Pornman
Messages postés
21
Date d'inscription
samedi 25 septembre 2004
Statut
Membre
Dernière intervention
20 janvier 2006
-
Errrr, ton code semble quant meme pas mal mais 2 chose:

- Nom de Fichier / Unit plus Explicite
- La concatenation existe

Procedure .....
begin
qqch.machin;
if chose = truc then
begin
...
end
else
...
end;

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.