Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

архивация текстового файла программно [D5, Win2k]

sapsi © (2005-05-27 14:15:00)
Добрый день.
Существуют ли компоненты для Дельфи 5 для архивации файлов.
Если нет, то каким еще способом можно программно заархивировать файл.
Спасибо.

Andy BitOff (2005-05-30 16:47:00) [1]
VladimirB © (30.05.05 14:13) [11]

Внимательнее надо быть =)

Andy BitOff © (27.05.05 15:51) [5]
sapsi (27.05.05 14:15)
Посмотри здесь:
http://www.oberhumer.com/opensource/
В частности я использую UCL, чего и тебе советую.

VladimirB (2005-05-30 14:13:00) [2]
Попробуй UCL Compression Library.
http://www.delphipages.com/edit/count.cfm?ID=3894

Antonn (2005-05-30 14:03:00) [3]
сам недавно разбирался, средствами Дельфи можно сжать zlib'ом. Я работал с TMemoryStream, поэтому написал для себя пару процедур. Они немного велосипедные, но работают. Причем довольно неплохо сжимают.

uses zlib;

procedure Pack_Memory(var _in:TMemoryStream);
procedure UnPack_Memory(var _in:TMemoryStream);

implementation

procedure Pack_Memory(var _in:TMemoryStream);
var
TmpStream : TMemoryStream; CmpStream : TCompressionStream;
begin
TmpStream := TMemoryStream.Create;
CmpStream := TCompressionStream.Create (clMax, TmpStream);
application.ProcessMessages;
_in.Seek (0, 0);
CmpStream.CopyFrom (_in, _in.Size);
CmpStream.Free;
TmpStream.Position:=0;
_in.Position:=0;
_in.SetSize(TmpStream.Size);
_in.CopyFrom (TmpStream, TmpStream.Size);
TmpStream.Free;
end;

procedure DecompressStream(inpStream, outStream: TMemoryStream);
var
InpBuf, OutBuf: Pointer;
OutBytes, sz: Integer;
begin
InpBuf := nil;
OutBuf := nil;
sz := inpStream.Size - inpStream.Position;
if sz > 0 then
try
GetMem(InpBuf, sz);
inpStream.Read(InpBuf^, sz);
DecompressBuf(InpBuf, sz, 0, OutBuf, OutBytes);
outStream.Write(OutBuf^, OutBytes);
finally
if InpBuf <> nil then FreeMem(InpBuf);
if OutBuf <> nil then FreeMem(OutBuf);
end;
outStream.Position := 0;
end;

procedure UnPack_Memory(var _in:TMemoryStream);
var _out:TMemoryStream;
begin
_out := TMemoryStream.Create;
_in.Position:=0;
DecompressStream(_in, _out);
_in.Seek(0,0);
_in.CopyFrom(_out, _out.Size);
_out.Free;
end;

sapsi (2005-05-30 13:38:00) [4]
2 antonn: открывать нужно этим же приложением. Объясни, плиз ,чем. Rarа может не быть на искомом компе.

Antonn (2005-05-29 08:32:00) [5]
sapsi (27.05.05 14:15)
стандартными средствами можно сжать, и соответственно разжать, только другие приложения такой файл не откроют.

VMcL (2005-05-29 08:24:00) [6]
>> dEd (29.05.05 07:47) [6]

> ShowMessage('Архив '+DateToStr(Date) +'.rar создан')

Не факт.

dEd (2005-05-29 07:47:00) [7]
Можно просто вызвать WinRAR:
var
FolderName, CmdLine: string;
begin
if not SelectDirectory('Выбор папки для архивации','',FolderName) then
Exit;
CmdLine:='winrar.exe a -m5 -s -dh ';
CmdLine:=CmdLine + '"'+FolderName + '\';
CmdLine:=CmdLine+DateToStr(Date) +'.rar" ';
CmdLine:=CmdLine+'Data';
WinExec(PChar(CmdLine),SW_HIDE);
ShowMessage('Архив '+DateToStr(Date) +'.rar создан')

Andy BitOff (2005-05-27 15:51:00) [8]
sapsi (27.05.05 14:15)
Посмотри здесь:
http://www.oberhumer.com/opensource/
В частности я использую UCL, чего и тебе советую.

Eraser (2005-05-27 14:53:00) [9]
sapsi (27.05.05 14:15)

Если имеется в виду сжатие, то советую глянуть в сторону модуля ZLib.

Anatoly Podgoretsky (2005-05-27 14:52:00) [10]
Сжатие и архивация разные вещи. Для сжатия существует много библиотек. Насчет рар разочарую, интерфейс не предоставляется, проприетарный формат.

sapsi (2005-05-27 14:48:00) [11]
В смысле copy file, мне нужно сжать большой текстовой файл с помощью механизмов рар или арж программно.

Anatoly Podgoretsky (2005-05-27 14:19:00) [12]
Очень много способов, например есть очень простая функция CopyFile

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »