Zip-архив

[RUSlan48]

Все здравствуйте!

Есть такая цель: узнать автора книги в формате ePub.
Насколько я понял, ePub - это просто zip-архив, в котором есть папка OEBPS, а в ней есть файлы, в которых хранится информация о книге.

Собственно, вопрос: как можно открыть эти самые файлы, если можно, не распаковывая архив на диск?

Нашёл в TZipForge такую процедуру:

procedure ExtractToBuffer(ConstFileName: WideString; var Buffer:Untyped; Count: Integer; StartPosition:Int64);

Description
Use ExtractToBuffer to decompress Count bytes of data stored in the file inside the archive to memory buffer.

The FileName parameter specifies file name being extracted.

Buffer is an existing memory buffer. Buffer size should be greater or equal number of bytes specified by Count parameter.

Count specifies size in bytes of the data being extracted from the archive.

Как ей пользоваться я не понял, т.е. если Count и StartPosition - это сколько и откуда копировать, то как узнать, и для чего тогда вообще
var Buffer:Untyped?

[evg_m]

а куда копировать-то собрались?

это сколько и откуда копировать, то как узнать, и для чего тогда вообще...

[RUSlan48]

Сообщение от evg_m

а куда копировать-то собрались?

да мне бы хоть куда-нибудь

какие есть варианты?
Clipboard?

А переменная Buffer должна быть указателем?

[evg_m]

копировать из ... начиная с ... в ... в количестве ...
поставьте вместо ... имена из

procedure ExtractToBuffer(ConstFileName: WideString; var Buffer:Untyped; Count: Integer; StartPosition:Int64);

если Count и StartPosition - это сколько и откуда копировать, то как узнать, и для чего тогда вообще

[RUSlan48]

Сообщение от evg_m

копировать из ... начиная с ... в ... в количестве ...
поставьте вместо ... имена из

Я не совсем понял

Смысл параметров процедуры я более-менее понял, я не пойму как ей воспользоваться в условиях данной задачи, а именно: как определить с какого места и сколько копировать, если файл находится в архиве?
И в каком виде это копировать, т.е. в переменную какую-то или как?

Буду признателен за пример

[doktor255]

RUSlan48 Всё гораздо проще.

 var Stream: TMemoryStream;
 TS: TStringList;
begin
 TS:= TStringList.Create;
 Stream:= TMemoryStream.Create;
 Archiver.ExtractToStream('OEBPS\about.xhtml', Stream);
 Stream.Position := 0;
 TS.LoadFromStream(Stream);
 Stream.Free;

И Ищи в TS.Text своего автора. Либо используй StringStream, или MemoryStream;

[RUSlan48]

doktor255, спасибо огромное! Как раз то, что нужно.
Про потоки я как-то не подумал...

[doktor255]

Бывает, когда простые вещи не замечаешь. Так программисты и приобретают опыт. Пожалуйста .