Discussion :

[Rayek]

Bonjour,

Je rencontre un petit problème au niveau de l'initialisation d'un tableau dynamique.

j'ai la structure suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
type
  TPopMail = record
    Subject ,
    From    : String;
    CCList  : Array of String;
    Body    : String;
    Attachment : Array of record
       FileName : String;
       Stream   : TMemoryStream;
    end;
  end;

et voici le code qui permet de remplir la structure

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
var
  IdMsg : TIdMessage;
  i : integer;
  MonPop : TPopMail;
 
begin
  IdMsg := TIdMessage.Create;
  try
    // récupération du mail
    FIDPOP.Retrieve(INbMail,IdMsg);
 
    // récupération du sujet du mail
    MonPop.Subject := IdMsg.Subject;
    // Récupération de l'expéditeur du mail
    MonPop.From    := IdMsg.From.Text;
 
    // récupération de la liste des CC du mail
    SetLength(MonPop.CCList,IdMsg.CCList.Count);
    for i := 0 to IdMsg.CCList.Count -1 do
      MonPop.CCList[i] := IdMsg.CCList.Items[i].Address;
 
    for i := 0 to IdMsg.MessageParts.Count -1 do
    begin
      // récupération du corps du mail
      if IdMsg.MessageParts.Items[i] is TIdText then
        MonPop.Body := TIdText(IdMsg.MessageParts.Items[i]).Body.Text;
      // récupération des pièces jointes
      if IdMsg.MessageParts.Items[i] is TIdAttachment then
      begin
        // Récupère la taille max du tableau et ajoute 1 pour redimensionner
        SetLength(MonPop.Attachment,High(MonPop.Attachment) + 1);
        MonPop.Attachment[High(MonPop.Attachment)].FileName := TIdAttachment(IdMsg.MessageParts.Items[i]).FileName;
        MonPop.Attachment[High(MonPop.Attachment)].Stream := TMemoryStream.Create;
        TIdAttachment(IdMsg.MessageParts.Items[i]).SaveToStream(MonPop.Attachment[High(Result.Attachment)].Stream);
      end;
    end; // for
    Result := MonPop;
  finally
    IdMsg.Free;
  end;
end;

Je rencontre une violantion d'accès sur la ligne suivante :

Code :

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

1
2
 
 MonPop.Attachment[High(MonPop.Attachment)].FileName := TIdAttachment(IdMsg.MessageParts.Items[i]).FileName;

Et je suis certain que la partie :

Code :

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

1
2
 
TIdAttachment(IdMsg.MessageParts.Items[i]).FileName;

fonctionne car je l'utilise dans un autre morceau de code.

Merci (à l'avance) pour ceux qui m'aideront ^^

[tourlourou]

Code :

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

SetLength(MonPop.Attachment,High(MonPop.Attachment) + 1);

je crois que lorsque le tableau est vide, High renvoie -1

[Archimède]

dans ton setlenght, tu fais high+2, ça démarre de 0. (pour l'agrandir sa dimension de 1).
ex: 0...5 high->5 donc dim=6
+1=7 donc on ajoute 2

[sjrd]

Autrement dit, utilise Length et non High dans le SetLength

[Rayek]

Merci, c'etait un petit coups de length qu'il fallait ^^

2em problème : je ne sais pas si cela vient d'une possible incompatibilité entre le tableau dynamique et le MemoryStream

Je me retrouve avec une violation d'accès lors de la sauvegarde du fichier dans le MemoryStream du tableau.

Code :

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

1
2
3
4
5
6
7
 
SetLength(MonPop.Attachment,Length(MonPop.Attachment) + 1);
MonPop.Attachment[Length(MonPop.Attachment) -1].FileName := TIdAttachment(IdMsg.MessageParts.Items[i]).FileName;
MonPop.Attachment[Length(MonPop.Attachment) -1].Stream := TMemoryStream.Create;
 
// violation sur la ligne ci dessous
TIdAttachment(IdMsg.MessageParts.Items[i]).SaveToStream(MonPop.Attachment[Length(MonPop.Attachment)-1].Stream);

J'ai testé en rajoutant une variable MemoryStream pour savoir si le problème venait du SaveToStream ou du futur conteneur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
MS := TMemoryStream.Create;
try
  // Récupère la taille max du tableau et ajoute 1 pour redimensionner
  SetLength(MonPop.Attachment,Length(MonPop.Attachment) + 1);
  MonPop.Attachment[Length(MonPop.Attachment)-1].FileName := TIdAttachment(IdMsg.MessageParts.Items[i]).FileName;
  MonPop.Attachment[Length(MonPop.Attachment)-1].Stream := TMemoryStream.Create;
  TIdAttachment(IdMsg.MessageParts.Items[i]).SaveToStream(MS);
 
// Violation d'accès ci dessous  
  MS.SaveToStream(MonPop.Attachment[Length(Result.Attachment)-1].Stream);
finally
  MS.free;
end;

Et le problème se retrouve encore une fois dès que je veux transférer le contenu vers les MemoryStream du tableau.

Quelqu'un voit il d'où peut venir le problème ?

[edit]
C'est bon j'ai vu mon erreur
un Result.Attachment qui trainait.