VPF::работа с sevenzip.pas - Форум программистов

Volkogriz

Дата 11.6.2013, 20:52 (ссылка)

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

Загрузка ...

Бывалый

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

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

Доброе время суток!
Не получается по порядку распаковать архивы.
По пойму вообще не работает(

Код


procedure TForm1.Button1Click(Sender: TObject);
var
SetStr:String;
Accounts,SetupFiles:TStringList;
q,i:integer;
begin
SetupFiles:=TStringList.Create;
Accounts:=TStringList.Create;
SetStr:=IniFile.ReadString('setupProgram','Program1','');//ищу файл со спискам архивов.
IniKey:= TIniFile.Create(PAnsiChar(SetStr));//Тут понятно
IniKey.ReadSection('Setup',Accounts);//создаю список в TStringList
for q := 0 to Accounts.Count-1 do
if (Accounts[q]<>'') and (SetupFiles.IndexOf(Accounts[q])=-1) then
SetupFiles.Add(Accounts[q]);//Чищу но не чистится(
Вылетает ошибка List index out of bounds (х)
SetupFiles.SaveToFile('ert.txt');//так чисто для себя
 with CreateInArchive(CLSID_CFormat7z) do
  begin
    for i := 0 to SetupFiles.Count-1 do //иду по списку
    SetPasswordCallback(nil, PasswordCallback);
    SetPassword(PassCreate(SetStr));
    Label9.Caption:= PassCreate(SetStr);
    OpenFile( IniKey.ReadString('Setup',SetupFiles.Strings[i],'')); //Гружу файл (пытаюсь) :)
//Итог: кажется просто проходит по списку до  последней строки и 
//List index out of bounds (х) на пустой))
    SetProgressCallback(nil, ProgressCallback);
    ExtractTo('C:\StupProg\2\');
    ProgressBar1.Position:=0;
end;
end;

Прошу помочь, не как не пойму как правильно сделать.
За ранее благодарен!
С уважением,
Volkogriz!

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

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

Illusion Dolphin

Дата 11.6.2013, 21:30 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


    for i := 0 to SetupFiles.Count-1 do //иду по списку  //начинается цикл
    SetPasswordCallback(nil, PasswordCallback);  //тело цикла начинается и заканчивается
    SetPassword(PassCreate(SetStr));
    Label9.Caption:= PassCreate(SetStr);
    OpenFile( IniKey.ReadString('Setup',SetupFiles.Strings[i],'')); //Гружу файл (пытаюсь) :)  //использование i вне цикла
//Итог: кажется просто проходит по списку до  последней строки и 
//List index out of bounds (х) на пустой))
    SetProgressCallback(nil, ProgressCallback);
    ExtractTo('C:\StupProg\2\');
    ProgressBar1.Position:=0;

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

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

Volkogriz

Дата 11.6.2013, 21:35 (ссылка)

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

Загрузка ...

Бывалый

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

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

Спасибо!
с begin-ом разобрался)))

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

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

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