[Tableau] Initialisation d'un tableau dynamique

Version imprimable

Bonjour,

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

j'ai la structure suivante :

Code:

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:

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:

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

Et je suis certain que la partie :

Code:

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 ^^

27/11/2007, 17h39
tourlourou

Code:

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

je crois que lorsque le tableau est vide, High renvoie -1
27/11/2007, 17h41
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 :D
27/11/2007, 17h44
sjrd

Autrement dit, utilise Length et non High dans le SetLength ;)

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:

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:

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 :roll:
un Result.Attachment qui trainait.