Delphi - Текст из файла в ZIP на памятку

Question

В каком-то ZIP-файле у меня есть файл head.txt. Я хочу скопировать текст из этого файла в TMemo в мою форму. Вот мой код:

procedure TformMain.LoadProject(InputFileName: string); 
var 
    MS: TMemoryStream; 
    zip: TZipForge; 
    txt: string; 
begin 
    MS := TMemoryStream.Create; 
    try 
    zip := TZipForge.Create(nil); 
    try 
     with zip do begin 
     FileName := InputFileName; 
     OpenArchive(fmOpenReadWrite); 
     ExtractToStream('head.txt', MS); 
     CloseArchive; 
     end; 
    finally 
     zip.Free; 
    end; 
    MS.Seek(0, soFromBeginning); 
    SetLength(txt, MS.Size); 
    MS.Write(txt[1], MS.Size); 
    finally 
    MS.Free; 
    end; 
    if Length(txt) > 0 then Memo1.Lines.Text := txt; 
end; 

Но это не сработает. В head.txt в моем ZIP файле:

123456 
abcdef 
xxxx 

и результат в Memo является:

auto-suggest dropdow 

Спасибо за помощь!

Answer 1

Попробуйте заменить этот код:

MS.Seek(0, soFromBeginning); 
SetLength(txt, MS.Size); 
MS.Write(txt[1], MS.Size); 

с вызовом SetString

SetString(txt, PAnsiChar(MS.Memory), MS.Size); 

как в this question

Answer 2

Проблема заключается в том, что вместо чтения данных из памяти потока в переменную текстовый используя метод Read, вы фактически записываете данные из своей переменной txt в свой поток памяти.

Так что ваш код должен выглядеть как этот

procedure TformMain.LoadProject(InputFileName: string); 
var 
    MS: TMemoryStream; 
    zip: TZipForge; 
    txt: string; 
begin 
    MS := TMemoryStream.Create; 
    try 
    zip := TZipForge.Create(nil); 
    try 
     with zip do begin 
     FileName := InputFileName; 
     OpenArchive(fmOpenReadWrite); 
     ExtractToStream('head.txt', MS); 
     CloseArchive; 
     end; 
    finally 
     zip.Free; 
    end; 
    MS.Seek(0, soFromBeginning); 
    SetLength(txt, MS.Size); 
    MS.Read(txt, MS.Size); 
    finally 
    MS.Free; 
    end; 
    if Length(txt) > 0 then Memo1.Lines.Text := txt; 
end; 

Я не проверял это.

Но так как вы хотите, чтобы загрузить текст из этого файла в Memo можно упростить, удалив переменный текстовую и всю суету необходимого с ним и загрузить текст в памятку непосредственно из потока памяти, как это:

Memo1.Lines.LoadFromStream(MS); 

Так что ваш окончательный код должен выглядеть следующим образом:

procedure TformMain.LoadProject(InputFileName: string); 
var 
    MS: TMemoryStream; 
    zip: TZipForge; 
begin 
    MS := TMemoryStream.Create; 
    try 
    zip := TZipForge.Create(nil); 
    try 
     with zip do begin 
     FileName := InputFileName; 
     OpenArchive(fmOpenReadWrite); 
     ExtractToStream('head.txt', MS); 
     CloseArchive; 
     end; 
    finally 
     zip.Free; 
    end; 
    MS.Seek(0, soFromBeginning); 
    Memo1.Lines.LoadFromStream(MS); 
    finally 
    MS.Free; 
    end; 
end;