Discussion :

[Bruno13]

Bonjour à tous,

Est-ce que quelqu'un peut m'aider à transformer ces 2 procedures de compression de stream afin que la Stream en entrée soit celle en sortie et non pas une différente. Moi j'ai du mal à le faire car pas assez fort.

D'avance merci pour vos aides.
Bruno

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
39
40
41
procedure CompressStream(inpStream, outStream: TStream);
var
  InpBuf, OutBuf: Pointer;
  InpBytes, OutBytes: Integer;
begin
  InpBuf := nil;
  OutBuf := nil;
  try
    GetMem(InpBuf, inpStream.Size);
    inpStream.Position := 0;
    InpBytes := inpStream.Read(InpBuf^, inpStream.Size);
    CompressBuf(InpBuf, InpBytes, OutBuf, OutBytes);
    outStream.Write(OutBuf^, OutBytes);
  finally
    if InpBuf <> nil then FreeMem(InpBuf);
    if OutBuf <> nil then FreeMem(OutBuf);
  end;
end;
 
 
{ Decompress a stream }
procedure DecompressStream(inpStream, outStream: TStream);
var
  InpBuf, OutBuf: Pointer;
  OutBytes, sz: Integer;
begin
  InpBuf := nil;
  OutBuf := nil;
  sz     := inpStream.Size - inpStream.Position;
  if sz > 0 then 
    try
      GetMem(InpBuf, sz);
      inpStream.Read(InpBuf^, sz);
      DecompressBuf(InpBuf, sz, 0, OutBuf, OutBytes);
      outStream.Write(OutBuf^, OutBytes);
    finally
      if InpBuf <> nil then FreeMem(InpBuf);
      if OutBuf <> nil then FreeMem(OutBuf);
    end;
  outStream.Position := 0;
end;

[tatareau]

Si tu veux recopier dans le même Stream, c'est dangereux car tu risques d'écraser des données que tu vas lire. Le plus propre serait de faire une procédure qui recopie A LA FIN des procédures ton Stream de sortie dans ton Stream d'entrée...Attention à l'ajustement de la taille du buffer surtout dans le cas de la compression vers la décompression!! Et j'ai dejà vu des "compressions" qui était plus grosses qu'avant compression.
C'est une idée un peu étrange ? et tu vraiment sur?