Discussion :

[Galet]

Bonjour à tous,
Je reprends un projet débuté il y a quelques années pour mettre en oeuvre des améliorations. L'application est basée sur l'usage de HttpRio créé dynamiquement (sous Delphi Tokyo/VCL/Windows7).

Dans le code suivant,
fgetAllPhysicalIos et fgetAllPhysicalIosResponse sont déclarés et riServer2 est un serviceWeb crée à partir d'une entité WSDL.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    fgetAllPhysicalIos := getAllPhysicalIos.create;
    try
      try
        (riServer2 as ISOAPHeaders).Send(riEnteteId);
        fgetAllPhysicalIosResponse := riServer2.getAllPhysicalIos (fgetAllPhysicalIos);
      except
        on E: EXMLDocError do
        begin
...

avec

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
 
getAllPhysicalIos = class(TRemotable)
  private
  public
    constructor Create; override;
  published
end;
 
getAllPhysicalIosResponse = class(TRemotable)
  private
    Fdata: MimeData;
  public
    constructor Create; override;
    destructor Destroy; override;
  published
    property data: MimeData  Index (IS_UNQL) read Fdata write Fdata;
end;
 
et
 
MimeData = class(TRemotable)
  private
    FcontentType: contentType;
    FcontentType_Specified: boolean;
    Fdata: TByteDynArray;
    procedure SetcontentType(Index: Integer; const AcontentType: contentType);
    function  contentType_Specified(Index: Integer): boolean;
  published
    property contentType: contentType    Index (IS_ATTR or IS_OPTN) read FcontentType write SetcontentType stored contentType_Specified;
    property data:        TByteDynArray  Index (IS_UNQL) read Fdata write Fdata;
end;

Au moment de l'appel de getAllPhysicalIos j'ai systématiquement le défaut
EXMLDocError : L'élément "data" ne contient pas un noeud texte unique alors que la réponse (stream) est correct et complète.

et une fuite mémoire liée à la non destruction certains objets (getPhysicalIoResponse et le Mimedata) :


Je ne trouve pas de solution gérer le MimeData (probablement la cause du défaut et de la fuite mémoire).
Merci pour votre aide,

[ShaiLeTroll]

Parfois, le code généré n'est pas parfait niveau libération dans le destructor, je te laisse vérifier si Fdata est bien libéré

Tu ne montres pas le finally associé au try du create, c'est pourtant là que se trouve la solution

Curieusement, fgetAllPhysicalIosResponse semble alloué malgré l'exception, il doit falloir le libérer, probablement directement dans le code généré de getAllPhysicalIos qui en cas d'exception doit libérer son Result et propager tout de même l'exception
Toujours ce problème de code généré qui n'est pas toujours top propre


Pour ton erreur XML, en D7 j'avais bidouillé pour utiliser un WS Biztalk pour envoyer un XML qui ne soit pas géré comme un nœud SOAP

[Galet]

Merci Shai le Troll.
Tu m'avais déjà aidé à la création de cette appli, pour améliorer le code et j'ai beaucoup progressé mais je dois arriver à passer cette étape pour la nouvelle version.

La libération :

Code :

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

1
2
3
4
 
    finally
      fgetAllPhysicalIos.Free;
    end;

Si j'ajoute un fgetAllPhysicalIosResponse.Free, je génère un défaut d'affichage (??!!) avec la disparition du tButton qui me sert à déclencher, en test, la requète... et le fgetAllPhysicalIosResponse n'est pas libéré.
J'ai aussi tenté de le créer, pour pouvoir le libérer mais, j'ai toujours le même résultat.

Il me semble que c'est ce défaut de noeud qui engendre ces conséquences.

Je n'ai pas trouvé accès à ta bidouille.

Merci pour votre aide,

[ShaiLeTroll]

Si j'ajoute un fgetAllPhysicalIosResponse.Free, je génère un défaut d'affichage (??!!) avec la disparition du tButton qui me sert à déclencher

C'est typique d'une non-initialisation
fgetAllPhysicalIosResponse contient une valeur mémoire au pif, et souvent c'est le Sender, le Button

le code doit être

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
 
begin
    fgetAllPhysicalIos := getAllPhysicalIos.create;
    try
      try
        (riServer2 as ISOAPHeaders).Send(riEnteteId);
        fgetAllPhysicalIosResponse := riServer2.getAllPhysicalIos (fgetAllPhysicalIos);
        try   
          // utlisation de fgetAllPhysicalIosResponse 
        finally
          fgetAllPhysicalIosResponse.Free();  
        end;
      except
        on E: EXMLDocError do
        begin
          ... 
          raise;
        end;
      end;
    finally
      fgetAllPhysicalIos.Free();
    end;
 
end;

[Galet]

Merci pour ton éclairage....
Je teste ça dès que possible.
Cordialement

[Galet]

Bonjour,

Suite à l'essai, toujours les mêmes défauts :
- l'exception est générée à l'appel de : fgetAllPhysicalIosResponse := pRobotTmp.riServer2.getAllPhysicalIos(fgetAllPhysicalIos);
- fgetAllPhysicalIosResponse et mimeData ne sont pas libérés.


Je vais donc essayer de trouver une solution dans le WSDL.

Si vous avez une autre idée, je suis preneur, sinon, je vais reculer (une seconde fois) pour revenir au code précédent (en oubliant les nouvelles fonctionnalités espérées).