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

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

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

TZipFile

novichek © (2012-04-22 00:02:00)
делаю так:

function UnZipFile(sourceFile, destPath: String): Boolean;
var
ZipFile: TZipFile;
begin
ZipFile := TZipFile.Create;
try
if ZipFile.IsValid(sourceFile) then begin
ZipFile.ExtractZipFile(sourceFile, destPath);
ZipFile.Close;
result:= true;
end;
finally
ZipFile.Free;
end;
end;

при распаковке файлов, имена которых в кириллице, получаю иероглифы.. или неверно заголовок zip файла читает или ещё что никак не пойму...

Плохиш (2012-04-23 11:02:00) [1]
Мне описание у разработчика понравилось
http://docwiki.embarcadero.com/VCL/XE2/en/System.Zip.TZipFile

Германн (2012-04-22 01:47:00) [2]

> Ega23 ©, да тут не в имени архива проблема а проблема то
> что внутри

Эт точно. Проблема в мозгах. :)

novichek (2012-04-22 00:49:00) [3]
о, переименовал system.zip.pas, подключил модуль к проекту, изменил на SetCodepage(LHeader.FileName, 866, False); и всё заработало..
странно что не сделали поддержку кодовой страницы..

novichek (2012-04-22 00:49:00) [4]
Ega23 ©, да тут не в имени архива проблема а проблема то что внутри..

Ega23 (2012-04-22 00:48:00) [5]

> function UnZipFile(sourceFile, destPath: String): Boolean;

function UnZipFile(sourceFile, destPath: AnsiString): Boolean;
?

novichek (2012-04-22 00:41:00) [6]
хочу поковырять тут:

procedure TZipFile.ReadCentralHeader;
...

if LHeader.FileNameLength > 0 then
begin
SetLength(LHeader.FileName, LHeader.FileNameLength);
if (LHeader.Flag and (1 SHL 11)) <> 0 then
SetCodepage(LHeader.FileName, 65001, False)
else
// SetCodepage(LHeader.FileName, 437, False); >> было это
SetCodepage(LHeader.FileName, 866, False);
VerifyRead(FStream, LHeader.FileName[1], LHeader.FileNameLength);
end;

novichek (2012-04-22 00:39:00) [7]
да, это встроенный компонент в delphiXE2

novichek (2012-04-22 00:38:00) [8]
пробую на DelphiXE2
подскажие как можно внести изменения в system.zip.pas что бы компилятор их подхватил?
а то dcu сразу подключает..
не могу вообще понять, в lib\win32\debug удаляю этот dcu - один фиг компилит без моего изменного pas. где туплю?

Cobalt (2012-04-22 00:35:00) [9]
Вариант 1) получи последнюю версию компонента.
Вариант 2) оттрассируй по исходникам и найди где некорректно преобразуется имя файла.

Ну и, наконец, какая версия компонента и какая версия Дельфи? Ты ж не оплатил работу телепаторов.

Наверх

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