Comment lire les données d'un Array en Delphi.Net

Bonsoir,

Je n'ai pas réussi à éditer le code correct pour "récupérer" les infos d'un Array d'un WebService. Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

var ResultMessages : TArrayOfmessage; i, J : integer; Ch : string; begin ... myHeader := MessengerHeader.Create; myHeader.Username := AdressMail; myHeader.Password := PassWord; myHeader.Account := Account; Service := accountService.AccountService.AccountService.Create; Service.MessengerHeaderValue := myHeader; ResultMessages := GetSentMessages(2009, 7); J := Length(ResultMessages); for i := 0 to J - 1 do begin Console.WriteLine('Message[{0}] = {1}', [i, ResultMessages[i]]); Ch := i.ToString; //Me retourne uniquement que l'index end;

---

Comment récupérer chaque valeur contenu dans ResultMessages (j'ai 4 messages) et leur contenu (le message contient 10 champs), sans passr par Consol.WriteLine puisque je souhaite récupérer les données dans un string.

Merci pour votre aide !

Cordialement

Bonjour.

Et pourquoi pas :

Code:

---

Ch := ResultMessages[i].TOString();

---

?

Bonjour,

J'ai trouvé le code sur Internet et je l'ai appliqué à mon code :

Code:

---

Ch := ResultMessages[i].ToString;

---

Mais cette fonction me retourne "Account.Service".

Si je place la souris sur la ligne pendant le déboggage, j'obtient ce message dans la bulle :

Code:

---

Console.WriteLine('Message', [i, ResultMessages[i]])

---

prendant le déboggage, la bulle m'affiche :

Citation:

---

ResultMessages[i] = {"edd5bac4-199f-489f-8e06-288c4f8ef11f", Ph.rispal, "Bonjour, ceci est un essai", DateTime&, DateTime&, 0(0x0), 'Text', 3(0x3) 'Delivred', ph.rispal@xxx.fr"}

---

Cela me donne bien le contenu du message mais comment le récupérer autre que par Console.XriteLine, je souhaite plutôt la récupérer par une variable string.

Merci

Si le debuggeur arrive à afficher les valeurs c'est alors que ResultMessages[i] doit lui-même donner sur un tableau.

Dans ce cas essayes de faire un ResultMessages[i][0] pour récupérer la première valeur et ainsi de suite.

Bonjour,

J'ai essayé avec ch := ResultMessages[i][0] mais le compilateur m'indique que la classe n'a pas de priorité !

J'arrive à récupérer le contenu par la boucle suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

myHeader := MessengerHeader.Create; myHeader.Username := AdressMail; myHeader.Password := PassWord; myHeader.Account := Account; Service := accountService.AccountService.AccountService.Create; Service.MessengerHeaderValue := myHeader; ResultMessages := Service.GetSentMessages(2009, 7);   //Pour lire le contenu MessageBox.Show('Nbre de messages : ' + IntToStr(Length(ResultMessages)));   for i := 0 to Length(ResultMessages) - 1 do begin Console.WriteLine('', [ResultMessages[i]]); end;

---

Console.WriteLine('', [ResultMessages[i]]); me renvoie bien la bonne valeur de chaque élément mais je souhaite récupérer la valeur dans un string et non une console !

Exemple, du style suivant :

Code:

---

Ch := ResultMessages[i].ToString;

---

mais la valeur retournée n'est pas bonne.

ResultMessages est du type suivant :

Code:

---

1 2 3 4 5 6

type TArrayOfmessage = array of message;   var ResultMessages : TArrayOfmessage;

---

La fonction du WebService invoqué est la suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

function GetSentMessages(year: Integer; month: Integer): TArrayOfmessage;   type TArrayOfSystem_Object = array of System.Object; var results: TArrayOfSystem_Object; begin results := Self.Invoke('GetSentMessages', TArrayOfSystem_Object.Create (year, month)); Result := (TArrayOfmessage(results[0])); end;

---

Merci pour votre aide !