Где можно почитать...

[Alex Cones]

...о работе Дельфи с архивами (Zip или Rar) и о работе с файлами не txt типа?

[Utkin]

Что значит файлы не txt?

[Ntlegend]

для работы с архивами почитай на офф сайте winrar у них там есть спецыально для этого библиотека.. а с какими файлами ты еще хочешь работать?? что именно с них получать?? посмотри тут неплохая подборочка того шо тебе нада

[Alex Cones]

Ntlegend, ценю юмор.
Utkin, не txt, я имею ввиду файлы с любым расширением (например .dat), чтоб читать их построчно (как txt).
Например flocal.dat:
"234 546 4443
5564 34 3334"

Я так понимаю при помощи дельфи нельзя считать содержимое Zipованного файла не распаковывая?

[BaronTreep]

чтоб читать их построчно (как txt).Например flocal.dat:

Читать построчно можно хоть exe (да и записывать). По старинке, по паскалевски:

var
  f : TextFile; //Или просто file, или компонентный file of...
...
AssignFile(f, 'file.trr');  //Открываем что угодно
Reset(f);
Read(f, Str);
ReadLn(f, Str2);
...
CloseFile(f);

[Serge_Bliznykov]

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

Читать построчно можно хоть exe (да и записывать).

"-Эти ягоды можно есть?
- Можно! Только отравишься!" (c) Спортлото-82
Можно читать. Только не прочитается. Можно и писать. Вот только не факт, что запишется то, что Вы туда пишите!

для работы с бинарными файлами надо использовать либо нетипизированные файлы, либо file of byte (file of char) — иначе проблемы гарантированы.

Alex Cones, поймите, что прочитать Вы можете ЛЮБОЙ файл (ну, если к нему есть доступ, конечно).
Но что Вы будете делать с его содержимым - вот в чём вопрос! Т.е., НЕЗАВИСИМО от расширения файла, в нём реально может находится всё что угодно (что в него заложили создатели этого файла.) Если Ваш .DAT файл текстовый, то можете читать его как обычный текстовый файл (смотри код выше от BaronTreep)

Прочитать архив можно. Но вот получить список (или содержимое) запакованных в этом архиве файлов можно только распаковав архив (вариантов много, в зависимости от типа архива, есть компоненты/библиотеки. на крайний случай - скрытый запуск консольного архиватора с подставленной командной строкой).

p.s. для работы с файлами в Дельфи есть компонента TFileStream — очень рекомендую. Всё эффективно и просто к понимаю/использованию.

[Alex Cones]

Хм. Работает. Что-то я раньше попробовал, не запускалось, ну и забросил это дело. Спасибо. А как насчет файлов в архиве? Можно ли их считать, не распаковывая архив? (А то есть текстовый файл около 5 мб, его нужно считать, ежели его послать в архив, то размер может на 90% уменьшиться. Все экономия)

TFileStrem? А где можно книжицу про него прочитать? Хотелось бы все тонкости разнюхать.

Можно читать. Только не прочитается

По крайней мере этот:

procedure TForm1.Button1Click(Sender: TObject);
Var
 F:TextFile;
 S:String;
begin
 AssignFile(F,'Project14.dpr');
 Reset(F);
 While not Eof(F) do
  Begin
   Readln(F,S);
   Memo1.Lines.Add(S);
  End;
 CloseFile(F);
end;

код работает.

можно только распаковав архив

Но ведь если создать 2-х гиговый архив (зип) и посмотреть на него сквозь "проводник", можно пооткрывать, почитать эти файлы, не распаковывая всю кучу.

[Serge_Bliznykov]

так и должно быть.
Project14.dpr - это текстовый файл (отройте файлик, например, в стандартном блокноте.)

2-х гиговый архив (зип) и посмотреть на него сквозь "проводник", можно пооткрывать, почитать эти файлы, не распаковывая всю кучу.

да щас! я уверен, что Винда распаковывает нужный файл "на лету" (думаю, что в TEMP директорию - но это несложно проверить).

TFileStrem обратите внимание - уже пропустили буковку!
почитать... читайте

[BaronTreep]

А как же zlib.pas? входит в стандартную библиотеку Дельфи (иногда только в откомпилированном виде dcu). Предназначен для работы (деархивирования/архивирования) с архивами.

uses ...Zlib;

procedure ExportToZStrem(OutputFile: TFileStream);
var
   i : integer;
   dtSize : Integer;
   currPosition : Integer;
   cmpStream : TCompressionStream;
   memStream : TMemoryStream;
   memCmpStream : TMemoryStream;
   SavedCursor : TCursor;
begin
 ...
 memStream := TMemoryStream.Create;
 memCmpStream := TMemoryStream.Create;
 cmpStream := TCompressionStream.Create(clMax, memCmpStream);
 SavedCursor := Cursor;
 Cursor := crSQLWait;
 try
   memStream.Write('...',SizeOf('...'));
   memStream.Position := 0;
   cmpStream.CopyFrom(memStream, memStream.Size); // Сжать в файл
   FreeAndNil(cmpStream);
   dtSize := memCmpStream.Size;
   OutputFile.Write(dtSize, SizeOf(dtSize));
   memCmpStream.Position := 0;
   OutputFile.CopyFrom(memCmpStream, dtSize);
 finally
   ...
   if Assigned(memStream) then FreeAndNil(memStream);
   if Assigned(memCmpStream) then FreeAndNil(memCmpStream);
   if Assigned(cmpStream) then FreeAndNil(cmpStream);
   ...
 end;
end;

[Utkin]

Сообщение от Alex Cones

Но ведь если создать 2-х гиговый архив (зип) и посмотреть на него сквозь "проводник", можно пооткрывать, почитать эти файлы, не распаковывая всю кучу.

Для просмотра содержимого архива он все равно распаковывается (не весь) так построены алгоритмы упакования (не распаковывания) файлов. Иными словами - если Вы хотите совершить некоторое действие над архивом (имеются ввиду операции с содержимым архива) Вы должны его распаковать (возможно частично).