Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.03.2011, 17:54   #1
Claster
Форумчанин
 
Аватар для Claster
 
Регистрация: 02.09.2008
Сообщений: 340
По умолчанию Хранение информации в памяти

Доброго дня все........установил компонент sevenzipvcl.....скажите пожалуйста как можно сделать так что бы информация распаковывалась не в папку а в память?

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 opendialog1.InitialDir := 'c:\';
 if opendialog1.Execute then sevenzip1.SZFileName := opendialog1.filename;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//select extract dir
 sevenzip1.ExtrBaseDir := 'c:\7ztest';

//Overwrite existing files during extrect ?
 sevenzip1.ExtractOptions := sevenzip1.ExtractOptions + [ExtractOverwrite];

//Clear Extractlist - for all files do nothing else
 sevenzip1.Files.clear;
 //Extract
 sevenzip1.Extract;
end;

procedure TForm1.SevenZip1Extractfile(Sender: TObject;
  Filename: WideString; Filesize: Int64);
begin
 label1.caption := filename;

end;

procedure TForm1.SevenZip1ExtractOverwrite(Sender: TObject;
  FileName: WideString; var DoOverwrite: Boolean);
begin
   DOOverwrite := true;
end;

end.
Цитата:
- Только сисадмин может попросить у начальства 20$ на память...

Последний раз редактировалось Claster; 21.03.2011 в 18:02.
Claster вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Хранение информации xStill JavaScript, Ajax 7 29.11.2010 12:01
Хранение текстовой информации diliana Софт 11 23.12.2009 13:24
вывод информации на экран о состоянии памяти на текущем диске А(assembler) alien9356 Фриланс 2 15.06.2009 15:41
Ноль Байт, хранение в памяти... heart Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 12 20.04.2009 13:28
недостаточно оперативной памяти для отображения информации VVlad69 Microsoft Office Access 0 02.04.2009 14:51