VPF::Extract from TZIPForge - Форум программистов

NieL

Дата 6.1.2011, 13:31 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 214
Регистрация: 10.2.2008

Репутация: 1
Всего: 1

в архиве хранится текстовый файл. Нужно в определенные моменты выводить его содержимое в TMemo. Посоветуйте куда лучше промежуточно считывать данные из текстового файла в string или TStream.

Вот два варианта.

Код


procedure TFormMain.NewInfo(AZip: TZIPForge);
var
 S: string;
begin
 try
   AZip.ExtractToString(FILE_INFO_NAME, S);
 except
   raise Exception.CreateResFmt(@C_CAN_NOT_EXTRACT_FILE_INFO,
     [FILE_INFO_NAME, AZip.FileName]);
 end;
 NewInfo.Text := S;
end;

Код


procedure TFormMain.NewInfo(AZip: TZIPForge);
var
 Stream: TStream;
begin
 Stream := TMemoryStream.Create;
 try
   AZip.ExtractToStream(FILE_INFO_NAME, Stream);
 except
   raise Exception.CreateResFmt(@C_CAN_NOT_EXTRACT_FILE_INFO,
     [FILE_INFO_NAME, AZip.FileName]);
 end;
 try
   NewInfo.Lines.LoadFromStream(Stream);
 except
   raise Exception.CreateResFmt(@C_CAN_NOT_LOAD_FILE_INFO,
     [FILE_INFO_NAME]);
 end;
end;

Это сообщение отредактировал(а) NieL - 6.1.2011, 14:00

Rrader

Дата 6.1.2011, 22:35 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Вопрос о различиях? Они мелочны для такой задачи. Другое дело - потоки нагляднее, код читать приятнее. Правда, с ними чуточку сложнее - нужно не допускать утечек ресурсов (где во втором примере освобождение Stream?)

--------------------

Let's do this quickly!
Rest in peace, Vit!

Snowy

Дата 6.1.2011, 22:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Не имею кузницы, ибо, насколько знаю, эта библиотека платная.
Но, обычно перевод в строку - надстройка над распаковкой в стрим.
То есть, дергается распаковка в стрим, а потом перегоняется в стринг.
Так что стрим предпочтительнее, но не принципиально.
Принципиальные различия могут начаться на уровне кодировок текста и string'а

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »