Discussion :

[Altau]

Malgré des recherches sur la toile, il semble que peu de développeurs utilisent les classes VCL Internet Indy, surtout avec BCB.

Mais peut être qu'on pourra néanmoins m'aider avec ce qui semble être un problème classique d'instanciation en C++.
Je ne sais pas quoi indiquer comme paramètres pour les objets ci-dessous. Qui aurait une idée de ce qu'il faut faire ?




Indy 10 avec BCB XE

Merci d'avance.

[ShaiLeTroll]

Quel est le problème ?

Code :

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

TIdMessagePart *PJ = new TIdMessagePart(NULL);

Si il se montre capricieux

Code :

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

TIdMessagePart *PJ = new TIdMessagePart((TPersistent*)NULL);

Tu dois pourvoir aussi utiliser l'instance de TIdMessage comme Owner, ainsi quand tu le libéreras, cela libérera les Parts (quoi que cela doit même se faire automatiquement puisque c'est une collection)

En pur théorie

Code :

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

TIdMessageCollection *CollMess = new TIdMessageCollection(_classid(TIdMessageItem));

Maintenant, tu pourrais utiliser un TIdMailBox

[Altau]

Merci, ShaiLeTroll, pour cette réponse précieuse que je n'aurais jamais trouvée :
TIdMessageCollection *ListeMessages = new TIdMessageCollection(__classid(TIdMessageItem));

Maintenant, j'avais avancé mon affaire en positionnant la propriété IdIMAP41::RetrieveOnSelect à rsHeaders, ce qui occasionnait un temps considérable à lire les dossiers (MailBox) contenant des dizaines de messages (avec SelectMailbox)

En utilisant, grâce à ton aide, le code suivant :

Code :

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

1
2
3
4
5
6
TIdMessageCollection *ListeMessages = new TIdMessageCollection(__classid(TIdMessageItem));
...
	if (IdIMAP41->SelectMailBox(ListBox1->Items->Strings[ListBox1->ItemIndex]))
		if (IdIMAP41->RetrieveAllEnvelopes(ListeMessages)) [ou bien]
		if (IdIMAP41->RetrieveAllHeaders(ListeMessages))
int NbMsg = IdIMAP41->MailBox->MessageList->Count;

avec RetrieveOnSelect positionné à rsDisabled,
La valeur IdIMAP41->MailBox->MessageList->Count ne contient plus le nombre de messages du dossier comme c'est le cas avec RetrieveOnSelect à rsHeaders.

Pour me résumer, avec RetrieveOnSelect à rsHeaders, pas besoin de RetrieveAllEnvelopes(ListeMessages) ou de RetrieveAllHeaders(ListeMessages) pour obtenir le nombre de messages du dossier, mais avec RetrieveOnSelect à rsDiasabled, rien à faire.

Y a-t-il une solution autre pour connaître avec performance juste le nombre de messages dans la MailBox ?

Merci d'avance.

[ShaiLeTroll]

Je ne sais pas si c'est plus performant mais tu as RecentMsgs et TotalMsgs dans TIdMailBox

[Altau]

Oui, cela fonctionne, merci beaucoup.

Il me reste à poursuivre mes tests sachant que je me heurte à différents problèmes comme la lecture du seul BODY sans les pièces jointes ainsi qu'à l'affichage propre du BODY (avec le bon codage de caractères).

Y'a encore de quoi faire

[Altau]

J'ai avancé dans mon projet mais je bloque sur la recherche de la taille de chaque pièce jointe.