Discussion :

[PHIL45]

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 :

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

[Aka Guymelef]

Bonjour.

Et pourquoi pas :

Code :

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

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

?

[PHIL45]

Bonjour,

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

Code :

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

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 :

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

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

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

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

[Aka Guymelef]

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.

[PHIL45]

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 :

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

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

Ch := ResultMessages[i].ToString;

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

ResultMessages est du type suivant :

Code :

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

1
2
3
4
5
6
 
type
  TArrayOfmessage = array of message;
 
var
  ResultMessages : TArrayOfmessage;

La fonction du WebService invoqué est la suivante :

Code :

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

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 !