Discussion :

[mohfa2001]

J'utilse ce 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
25
26
27
28
29
30
31
32
33
34
35
 
 
 
procedure TForm1.Load(const AFilename: String);
var
  MS : TMemoryStream;
  FS : TFileStream;
  I   : Integer;
begin
 
  if FileExists(AFilename) then
    begin
      MS := TMemoryStream.Create;
      try
 
{*
mais est-ce possible de faire :
 for i:=0 to MyStringList.count-1 do
         FS := TFileStream.Create(MyStringList[i], fmOpenRead or fmShareDenyNone); *}
 
        FS := TFileStream.Create(AFilename, fmOpenRead or fmShareDenyNone);
        try
          MS.Size := FS.Size;
          FS.Position := 0;
          MS.Position := 0;
          MS.CopyFrom(FS, 0);
        finally
          FS.Free;
        end;
      finally
        MS.Free;
      end;
    end;
  end;
end;

Question :

est-ce possible de faire :

for i:=0 to MyStringList.count-1 do
FS := TFileStream.Create(MyStringList[i], fmOpenRead or fmShareDenyNone);

[tourlourou]

c'est possible, mais si tu remets dans la boucle MS.Position à 0 au lieu de le laisser à la fin du stream qui vient d'être ajouté, tu n'auras pas les fichiers à la queue leue leue dans le MemoryStream.

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
procedure TForm1.Load(const AFilename: String);
var
  MS : TMemoryStream;
  FS : TFileStream;
  I   : Integer;
begin
 try
   MS := TMemoryStream.Create;
   for i:=0 to MyStringList.count-1 do
   if FileExists(MyStringList[i]) then
   try
     FS := TFileStream.Create(MyStringList[i], fmOpenRead or fmShareDenyNone); 
     FS.Position := 0;
     MS.CopyFrom(FS, FS.Size); // colle FS au bout de MS
   finally
     FS.Free;
   end;
 finally
   MS.Free:
 end;
end;

mais si tu inclus dans la bloucle le traitement du MemoryStream, cette remarque perd son utilité !