Discussion :

[davels]

Bonjour,

je met en place pour le boulot une application client/server qui permet d'envoyer des fichiers en ensuite de les traiter.
Mais seulement voilà, les fichiers peuvent être envoyé de chez des particuliers via leurs lignes internet, ce qui signifie ADSL voir même ... 56K et j'aimerai donc pouvoir gérer les éventuelles déconnexion.

Le problème que j'ai, c'est que je n'arrive pas à faire "comprendre" au server qu'il a perdu sa connexion avec le client, quelqu'un aurait il une idée?

[NotANumber]

Salut,

Moi je ferais comme ca...
Dans l'évènement OnExecute de ton TCPServer tu essaye de récupèrer les données envoyées par le client avec une gestion d'exeception. Si il n'y a pas de bug test aussi dans un try...except...end les valeurs de ton enregistrement . Si tu obtient une erreur s'est qu'il y a eu un pb de transfert.
Tu pourrais aussi vérifier la connexion du client en permanence avec un ping !

[davels]

C'est exactement ce que je fais, toute ma fonction OnExecute est dans un try ... except mais le problème, c'est quand je coupe ma connexion, le server ne semble pas se rendre compte que la connexion à été interrompue et donc ... le try except ne s'exécute pas

J'ai un IdAntiFreeze sur ma form client et server, cela pourrait être une source de problème?

Pour info, je suis connecté avec mon portable via adsl/vpn et l'ordinateur à cote de moi est sur le réseau local. Je suis donc dans le cadre identique de sa future utilisation

Edit : pour info, si je fais un disconnect proprement pendant que le IdTcpClient envoie les informations, tout fonctionne bien.
Je n'ai le problème que lorsque je fais un disconnect brutal (coupure de la ligne)

[davels]

Personne n'a d'idée?

Je ne sais pas comment faire "comprendre" a mon server que la connexion est interrompue, j'ai essayé de diminuer les timeout mais rien n'y fait

[davels]

J'ai affiné un peu plus le problème, visiblement le problème vient de mon stream.

Si je coupe ma connexion pendant l'instruction suivante : AContext.Connection.IOHandler.ReadStream(FmlStream,ByteCount);
aucune erreur n'est générée et le server ne réagit plus.
Je suppose donc qu'il reste bloqué à cet endroit.
Quelqu'un a t il une idée de ce qui pourrait bloquer?

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
 
  Line := AContext.Connection.IOHandler.ReadLn(); 
  i := Pos(' ',Line);
  if (i>0) and (LowerCase(Copy(Line,1,Pred(i)))='fmlfile') then
  begin
    ByteCount := AContext.Connection.IOHandler.ReadInt64();
    FmlStream := TIdStreamVCL.Create(TFileStream.Create(FileDirectory + RayT.FileName + '_' + RayT.CameraView + '.fml',fmCreate),True);
    try
      AContext.Connection.IOHandler.ReadStream(FmlStream,ByteCount);
      Memo1.Lines.Add(IntToStr(ByteCount));
    finally
      Memo1.Lines.Add('FmlStream finally');
      FreeAndNil(FmlStream);
    end;
    AContext.Connection.IOHandler.WriteLn('Fichier envoyé FML File');
  end
  else  AContext.Connection.Disconnect;

[davels]

J'ai trouvé une solution qui semble marcher en ce moment mais je n'ai pas encore su tester plus en profondeur.

J'ai rajouté un Timeout à l'IOHandler juste avant le ReadStream

AContext.Connection.IOHandler.ReadTimeout := 1000;

Ce qui donne le code suivant

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
 
  Line := AContext.Connection.IOHandler.ReadLn(); 
  i := Pos(' ',Line); 
  if (i>0) and (LowerCase(Copy(Line,1,Pred(i)))='fmlfile') then 
  begin 
    ByteCount := AContext.Connection.IOHandler.ReadInt64(); 
    FmlStream := TIdStreamVCL.Create(TFileStream.Create(FileDirectory + RayT.FileName + '_' + RayT.CameraView + '.fml',fmCreate),True); 
    try 
      ***AContext.Connection.IOHandler.ReadTimeout := 1000;***
      AContext.Connection.IOHandler.ReadStream(FmlStream,ByteCount); 
      Memo1.Lines.Add(IntToStr(ByteCount)); 
    finally 
      Memo1.Lines.Add('FmlStream finally'); 
      FreeAndNil(FmlStream); 
    end; 
    AContext.Connection.IOHandler.WriteLn('Fichier envoyé FML File'); 
  end 
  else  AContext.Connection.Disconnect;