No tak si s tým hrají už druhy den

Přdat data do archivu umim.
Vytahnout je s archivu take umím.

Takto načtu soubor do streamu a pak uložim do souboru.


var
mymemory : TMemoryStream;
begin
mymemory := TMemoryStream.Create;
try
mymemory.LoadFromFile('F:\test.txt');
AbZipper1 := TAbZipper.Create(nil);
AbZipper1.OpenArchive('F:\Test.zip');
AbZipper1.AddFromStream('test1.txt', mymemory);
finally
FreeAndNil(mymemory);
end;

Ale dostat ho s archivu ven do streamu se nedaří

var
mymemory : TMemoryStream;
begin
mymemory := TMemoryStream.Create;
AbUnZipper1.FileName := 'F:\Test.zip' ;
AbUnZipper1.ExtractToStream('test.txt', mymemory);
Memo1.Lines.LoadFromStream(mymemory);
end;

Chybu to žadnou nevyhazuje ale memo je prazdne.