Discussion :

[ChPr]

Bonjour à toutes et à tous,

J'aimerais réaliser un serveur de courrier local à l'aide des composants Indy. Quelqu'un a des pistes ...

Merci de votre aide.

Pierre

[M.Dlb]

Tu veux programmer tout un serveur smtp ou utiliser des composants existants (je ne sais pas si il en existe) ?

[ChPr]

Tu veux programmer tout un serveur smtp ou utiliser des composants existants (je ne sais pas si il en existe) ?

Je souhaite essayer de réaliser un serveur de courrier smtp en entrée et imap ou pop en sortie à l'aide des composants Indy. Logiquement, cela devrait être réalisable car il existe des composants : TIdSMTPSErver, TidIMAP4Server, TId POP3Serveur, ... Le problème est que je ne sais pas m'en servir et que la doc est plus que rarissime.

Néanmoins, mes ambitions sont limitées, je souhaite réaliser un serveur local pour quelques machines en réseau ... et plus si affinité .

Donc, si vous avez quelques expériences avec ces composants, je suis intéressé.

Cordialement.

Pierre

[Alcatîz]

Bonjour !

As-tu jeté un oeil à la FAQ Delphi à ce sujet ?
http://delphi.developpez.com/faq/?page=Composants-Indy

[ChPr]

Oui, j'ai regardé cette FAQ qui donne plein d'information, malheureusement pas sur les composants serveur smtp, imap4, pop3. Peut -être que par le biais des serveurs TCP je vais trouver quelquechose ?.

Pour l'instant, j'en suis là :

- avec un composant TIdSMTP, j'envoie un courrier,
- cela me déclenche l'évènement "Execute" d'un composant TIdSMTPSErver dans lequel je sais récupérer l'IP de l'émetteur.

Ce que je voudrais maintenant, c'est récupérer le message lui-même. Là, je ne sais pas comment m'y prendre.

Ce que je suppose être (mais je suis peut-être complètement à côté de la plaque) :

1 - le client, par la commande "Send" envoie "quelque chose" dont les serveurs sont à l'écoute,
2 - un serveur bien intentionné a saisi cet appel,
3 - il renvoie une commande "xxx" au client pour lui dire d'envoyer son message,
4 - le client envoie sont message
5 - le serveur le réceptionne.

J'ai donc réalisé les 2 premiers pas. Les pas suivants sont-ils réalistes, comment les réaliser ?

Merci de votre aide.

Pierre

[chris37]

Bonjour,

Si cela peut t'aider, j'utilise ces composants avec Lazarus
Inet 0.6.2 que tu trouves ici :
http://sourceforge.net/project/showf...group_id=92177

Ça fonctionne très bien pour envoyer et recevoir des emails....

@+
Chris

[ChPr]

Je te remercie chris37 pour ce lien. Bien qu'il n'y a pas de composant serveur SMTP dans LNet et que je souhaite (pour l'instant) rester avec les composants Indy, je vais voir si leur exemples peuvent me donner des idées.

Cordialement.

Pierre

[M.Dlb]

Il faut que tu te documentes sur le protocole smtp, tu peux regarder la RFC correspondante : http://www.rfc-editor.org/rfc/rfc5321.txt

Le wiki : http://fr.wikipedia.org/wiki/Simple_...nsfer_Protocol

[ChPr]

Je ne pense pas avoir besoin de rentrer dans de tels détails. Je suis arrivé à récupérer l'entièreté du message que j'envoie avec soit Thunderbird, soit avec un composant TIdSMTP.

J'ai par ailleurs un soucis avec le composant TIdSMTP (j'ai la dernière version de Indy 10.2.3), je n'arrive pas à joindre de fichier à mon message. J'ai vu en plusieurs endroits le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TIdAttachment.Create(IdMessage.MessageParts, 'MonFichier');

Mais je n'arrive pas à l'implémenter car dans la version que j'ai, le constructeur de TIdAttachment ne prend que le premier paramètre de la forme ci-dessus. Dans l'unité TIdAttachment, on parle de méthode à surcharger ???

Merci de votre aide.

Pierre

[emeute007]

Salut a tous

- avec un composant TIdSMTP, j'envoie un courrier,
- cela me déclenche l'évènement "Execute" d'un composant TIdSMTPSErver dans lequel je sais récupérer l'IP de l'émetteur.

j'ai un petit problème ! j'ai placé sur la même feuille un composant TIdSMTP et un autre composant TIdSMTPSErver de façon à recevoir un message que j'aurai envoyé moi même en utilisant les lignes de code de la FAQ. Mais seulement l'évènement "execute" ne se déclenche pas , et j'ai plutôt un message d'erreur à la place. Je me suis dit que c'était un défaut de connexion entre les 2 composants. lorsque je désactive le TIdSMTPSErver l'application me signale que la connexion a été refusée, Ce qui me pousse à croire que les 2 étaient bien connectés avant. Aurais je omis un paramètre au niveau du serveur ? si quelqu'un a des lignes de code qui marche merci de me les envoyer.