Discussion :

[lolo2943]

Bonjour,

Je suis en train de migrer une application de Delphi 7 vers Delphi xe.

Je dois ainsi migrer mes composants Indy de Indy 9 vers Indy 10 et mes chaînes de caractères d'AnsiString vers Unicode.

Pour les chaînes de caractères, j'ai convertis sous Delphi xe les string en ansistring (méthode basique mais je n'ai pas trop le temps de faire mieux).

Pour les composants Indy j'ai un problème sur le connect. Mon application tourne, mais au bout de quelques heures génère une violation d'accès sur le connect.

Je bloque depuis 1 mois sur ce problème. Je me permet donc de poser une question sur ce forum.

Merci d'avance pour vos réponses.


Voici un extrait de 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
23
24
procedure SendBufs;
var
  StA, StB, StC: string;
  LBuffer : TIdBytes;
begin
  with MoteurCaobsBufs.TCPClient do begin
    try
      ConnectTimeout := 5000;
      ReadTimeout := 5000;
       if Connected
        then begin
          try
          disconnect;
          except
          if not(IOHandler.InputBufferIsEmpty)
            then IOHandler.InputBuffer.Clear();
          Disconnect();
          end;
        end;
      Connect;
 
    except //si la connexion échoue
      on e : Exception do begin
      TracerCaobsBufs('SendBufs : Exception : ' + E.Message);

[ShaiLeTroll]

StA, StB, StC servent à Quoi ?
String ? AnsiString ou RawByteString ?

Pourquoi une Deconnexion puis Re-Connexion ?
tu ne peux pas là laisser ouverte ?

As-tu un Multi-Thread ?
Un risque de fermer la Connexion TCP dans un thread alors qu'un autre thread est en train de lire ou d'écrire dedans ?

[lolo2943]

Merci pour la réponse.

StA, StB et StC sont utilisées pour afficher des infos lorsque le logiciel est lançé en mode Debug. Le
mode Debug n'étant pas actif lors de ma violation d'accès, ces string ne sont pas utlisées. J'aurais
dû les enlever de mon extrait de code.

Il ne s'agit pas d'une Deconnexion mais du vidage du buffer d'entrée, si la connexion est déjà établie.
Nous avons eu des contacts avec Embarcadero qui nous a conseillé d'effectuer ce test avant de se
connecter (suite à la violation d'accès). Nous avons obéis en désespoir de causes mais cela n'a pas
arrangé le pbe ...

Je pourrais effectivement essayer de laisser la connexion ouverte mais il s'agit d'un logiciel qui comporte
de nombreuses connexions. J'ai ainsi peur que cela alourdisse l'exécution du programme. D'autres part, plusieurs
logiciel de se type se connecte sur le même port du serveur, je ne sais donc pas si la connexion multiple fonctionne.

[lolo2943]

Je ne suis pas en multithread sur le port utilisé (6010)

[lolo2943]

Personne pour m'aider ?

Je ne trouve pas beaucoup d'informations sur le passage à Delphi xe et notamment Indy et l'unicode.

Toute aide bienvenue.

Merci

[ShaiLeTroll]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
if Connected then
begin
  try
    disconnect;
  except
   if not(IOHandler.InputBufferIsEmpty) then
     IOHandler.InputBuffer.Clear();
    Disconnect();
  end;
end;
 
Connect;

Il ne s'agit pas d'une Deconnexion mais du vidage du buffer d'entrée, si la connexion est déjà établie.

Ton code vérifie si la connexion est ouverte, la ferme dans ce cas, en cas d'erreur, cela nettoie le buffer, et retente la fermeturen puis tente une nouvelle connexion !
Tu ne comprends pas ton propre code ?

je ne sais donc pas si la connexion multiple fonctionne

Normalement un serveur TCP\IP doit accepter une multitude de client (heureusement d'ailleurs), donc tu dois pouvoir lancer ton client TCP sur le plusieurs postes sans aucun soucis !