Discussion :

[louay02]

Bonjour,

Je veux exploiter un flux à partir d’un port Com j’ai utilisé le composant Comport pour le traité j’affiche le résultat dans un Memo :

Code :

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

1
2
  ComPort1.ReadStr(Str, Count);
  Memo1.Text := Memo1.Text + Str;

Et j’enregistre les données qui se trouvent dans le Memo :

Code :

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

Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'Fichier'+'.txt');

Mais après un moment (hight trafic ) le memo perde certaine données comment je peux calculer le flux reçu afin de ne pas perde aucune donnée et paramétrer le sauvegarde c-t-d : après 30 KO je déclenche un sauvegarde.

Merci d'avance.

[JakRenegade]

Tout d'abord es tu sur que c'est ton mémo qui perd les données?

As tu vérifié que les données arrivent complétement dans le mémo? Car elles auraient pu être perdues dans le transfert sur le portCom.

J'imagine que le read de ton portCom se trouve dans une boucle. Si c'est le cas, avant la fin de la boucle, fait un test sur un compteur. A chaque x tour de boucle, tu enregistre.

Mais difficile de t'aider avec si peux d'informations sur le reste de ton code. Essaie de nous fournir plus de code concernant ton problème (en évitant un copier/coller de l’intégralité de ton application).

[ShaiLeTroll]

Pense qu'un Memo pour le stockage, c'est pas léger
Pense que Memo1.Text := Memo1.Text + Str;, c'est couteux, cela réalloue une chaine de la taille de Text + Str (donc à un instant T, il y a la fois Text, Str et Text + Str en mémoire), une fois l'affectation faite, l'ancien Text est libéré, bon c'est le TMemo donc c'est Windows qui gère sa mémoire à sa façon
La limite doit être de 32Ko c'est une limitation Windows pour le TMemo

Tu peux utiliser un TStringList et la méthode Lines.Add()
Add() est plus performant que Text
Avec un Capacity défini à 10000 par exemple, cela se plus performant
une Fois Count=Capacity, tu fais le SaveToFile

C'est déjà plus léger et tu n'auras pas la limitation Windows, tu pourras monter à des millions de lignes (théorique)

Attention, Compter via un Length la taille de Text est une opération lente car il doit gérer la chaine en parcourant Lines[]
Mieux vaut que tu gères toi même toi compteur de caractère reçu

[louay02]

Merci pour vos réponses

Tout d'abord es tu sur que c'est ton mémo qui perd les données?

Oui puisque j'ai l'application mère qui gère les mêmes données et j'ai fait tout simplement une comparaison (Trafic des appels téléphoniques).

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
 
P,G:integer;
begin
 t:=TStringList.Create;    
 for g:=0 to Memo1.Lines.Count - 1 do
 begin
   t.Add(Memo1.Lines.Strings[g]);
    end;
   Memo1.Clear;
   for P:=0 to G -1 do          //Delete all space in Stringlist
   begin
   L:=t.Strings[P];
   if   l <>'' then  s.Add(L);
   end;
   S.SaveToFile(ExtractFilePath(Application.ExeName)+ 
   'Final'+'.txt');t.free;
end;

Tu peux utiliser un TStringList et la méthode Lines.Add()
Add() est plus performant que Text

Possible que le Ligne.add() plus performant que .Text mais avec Text j’ai le format de fournisseur de la solution Exp :
Avec Text :

Code :

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

1
2
N 021 00 24504   T037021 04/11 16:22 00:02:40 A 8098383883
 &       0000    0000

Avec Ligne.add() j’ai cette format ,est plus compliqué

Code :

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

1
2
3
4
5
6
7
N 026 
00 T014
010 T035
11 16:50
 00:00:4
0 A 8077
0901116

[louay02]

Est-ce qu’il avec l’utilisation de Stream résoudre le problème j’imagine que ayant le même fonctionnement ?