Discussion :

[AuBozon]

Bonjour ,

Je cale avec les Stream .
Je effectue un traitement sur un fichier texte simple ,une fois modifie je cale pour le passer dans un Stream
(Le but étant d'eefectuer une mise en forme avant de l'injecter dans un champ blob texte d'une base firebird )


*
j'arrive a charger et traiter le fichier , mais ensuite le passage vers un Stream je cale sur la finesse des stream

Code avec TMemoryStream

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
32
33
34
35
36
37
 
procedure TForm1.Bt_AvecTFileStreamClick(Sender: TObject);
 Var
   VFileTxt : TStrings   	;
   VFileMem : TFileStream	;
 
 
begin
  VFiletxt   := TStringList.Create ;
  VFileMem   := TFileStream.Create('TFileStream.Txt',fmCreate) ;
  OpenDialog.InitialDir:=ExtractfilePath(Application.ExeName);
  OpenDialog.Title := 'Chargement Fichier Brut' ;
 
  if OpenDialog.Execute then
  begin
   VFileTxt.LoadFromFile(Opendialog.FileName);
   MemoFileVueInput.Lines.Clear ;
   MemoFileVueInput.Lines.Add('Visuel fichier texte importé');
   MemoFileVueInput.Lines.AddStrings(VFileTxt);
 
    MiseEnFormeTxt(VFileTxt);
 
   MemoFileModifie.Lines.Clear;
   MemoFileModifie.Lines.Add('Controle visuel modification fichier');
   MemoFileModifie.Lines.AddStrings(VFileTxt);
 
    VFileTxt.SaveToStream(VFileMem);
 
 
    MemoFileMem.Lines.Clear ;
    MemoFileMem.Lines.LoadFromStream(VFileMem);
// MemoFileMEm ne m'affiche pas le contenu du VFileMEm
    VFileTxt.Free ;
    VFileMem.Free ;
  end
else
exit;

Code avec TFileStream

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
32
33
34
35
36
37
38
 
procedure TForm1.Bt_AvecTFileStreamClick(Sender: TObject);
 Var
   VFileTxt : TStrings   	;
   VFileMem : TFileStream	;
 
 
begin
  VFiletxt   := TStringList.Create ;
  VFileMem   := TFileStream.Create('TFileStream.Txt',fmCreate) ;
  OpenDialog.InitialDir:=ExtractfilePath(Application.ExeName);
  OpenDialog.Title := 'Chargement Fichier Brut' ;
 
  if OpenDialog.Execute then
  begin
   VFileTxt.LoadFromFile(Opendialog.FileName);
   MemoFileVueInput.Lines.Clear ;
   MemoFileVueInput.Lines.Add('Visuel fichier texte importé');
   MemoFileVueInput.Lines.AddStrings(VFileTxt);
 
    MiseEnFormeTxt(VFileTxt);
 
   MemoFileModifie.Lines.Clear;
   MemoFileModifie.Lines.Add('Controle visuel modification fichier');
   MemoFileModifie.Lines.AddStrings(VFileTxt);
 
    VFileTxt.SaveToStream(VFileMem);
 
    MemoFileMem.Lines.Clear ;
    MemoFileMem.Lines.LoadFromStream(VFileMem);
// MemoFileMEm ne m'affiche pas le contenu du VFileMEm
 
    VFileTxt.Free ;
    VFileMem.Free ;
  end
else
exit;
end;

en piece jointe le projet Txt_to_stream

Si quelqu'un peut m'éclairer.


Amicalement

[tourlourou]

Code :

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

1
2
3
4
5
6
    VFileTxt.SaveToStream(VFileMem);
 
VFileTxt.Position:=0; // car il reste positionné à la fin du flux
 
    MemoFileMem.Lines.Clear ;
    MemoFileMem.Lines.LoadFromStream(VFileMem);

[AuBozon]

Bonjour ,


Merci tourlourou


Cela fonctionne
Amicalement