Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Ресурсы приложения



Вернуться к списку функций
 Создание компрессированного ресурса из файла

 Прислал: AlexO (Санкт-Петербург) ( 9 марта 2007 г. )
©  Собственный код
 Зависимости:
Classes, SysUtils, ZLib

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Создание компрессированного ресурса из файла

Зависимости: Classes, SysUtils, ZLib
Автор:       AlexO, Санкт-Петербург
Copyright:   Собственный код
Дата:        9 марта 2007 г.
***************************************************************** }

procedure FileToCompressRes(FileName: string);
 var fr,fw: TFileStream;
     z: TCompressionStream;
     i: integer;
 begin
  fr:= TFileStream.Create(FileName,fmOpenRead or fmShareDenyNone);
  try
   fw := TFileStream.Create(ChangeFileExt(FileName,'.res'),fmCreate);
   try
    fw.WriteResourceHeader(ChangeFileExt(ExtractFileName(FileName),''),i);
    z := TCompressionStream.Create(clMax,fw);
    try
     z.CopyFrom(fr, fr.Size);
    finally
     FreeAndNil(z);
    end;
    fw.FixupResourceHeader(i);
   finally
    FreeAndNil(fw);
   end;
  finally
   FreeAndNil(fr);
  end;
 end;


Вернуться к списку функций

Наверх ▲