Discussion :

[JP.NUAGE]

Bonjour à tous

Suite à mon dernier post sur ce sujet, j'ai bien trouvé les composants, et pourtant, il me reste un seul (enfin j'espère ) soucis.

Voici un bout de code

Code :

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

1
2
if IdMsg.MessageParts.Items[j].ClassName = 'TIdAttachment' then
              With TIdAttachment(IdMsg.MessageParts.Items[j]) do

Un message d'erreur me dit que TIdAttachment n'existe pas. Il est fort probable qu'il soit défini dans une autre unité, mais laquelle ?

Je suis allé jeter un coup d'oeil dans le source du composant IdMessage, mais sans trouver de réponse.
Merci pour toute indication.

[Ph. B.]

Bonjour,

Voila ce qui dit l'aide de Delphi (ce doit être kif kif pour Lazarus) au sujet de cette classe :

TIdAttachment = class(TIdMessagePart)
Unit
IdMessage
Description
TIdAttachment is a TIdMessagePart descendant that encapsulates a MIME-encoded attachment or inline graphic.

Est ce que la clause uses contient cette unité ?

[tourlourou]

Comme il utilise un IdMsg, l'unité IdMessage est probablement référencée...

J'ai trouvé une unité IdAttachment qu'il doit s'agir d'ajouter à la clause uses.

[JP.NUAGE]

Gagné tourlourou, tu vas pouvoir revenir en deuxième semaine !

Merci beaucoup !