VPF::Как сбросить атрибут сжатия файла?

Alca

Дата 12.12.2008, 17:15 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 3993
Регистрация: 14.6.2006

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

Как сбросить атрибут сжатия файла?

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

C++ cross-platform library

Alca

Дата 12.12.2008, 17:48 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 3993
Регистрация: 14.6.2006

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

Установить состояние сжатия для файла

Код


{ 
  To set a file's compression state, use the DeviceIoControl function with the 
  FSCTL_SET_COMPRESSION operation. 

  Call the following function with the name of the file to compress and 
  boolean parameter 'forceCompress'. If that one is true, file will be compressed. 
  If it is false, the file will be compressed only if its parent folder is 
  compressed (reason for that parameter: if you MoveFile uncompressed file from 
  uncompressed folder to compressed folder, file will not become automatically 
  compressed - at least under some NT 4 service packs). 

  Ein "compressed" Attribut kann man nicht mit der FileSetAttr Funktion setzen 
  sondern muss DeviceIoControl Funktion mit dem flag FSCTL_SET_COMPRESSION verwenden: 
}

 const
   COMPRESSION_FORMAT_NONE = 0
   COMPRESSION_FORMAT_LZNT1 = 2
   COMPRESSION_FORMAT_DEFAULT = 1;
   FILE_DEVICE_FILE_SYSTEM = 9;
   METHOD_BUFFERED = 0;
   FILE_READ_DATA = 1;
   FILE_WRITE_DATA = 2;
   FSCTL_SET_COMPRESSION = (FILE_DEVICE_FILE_SYSTEM shl 16) or
     ((FILE_READ_DATA or FILE_WRITE_DATA) shl 14) or (16 shl 2) or METHOD_BUFFERED;

 function SetCompressedAttribut(FileName: PChar; forceCompress: Boolean): Boolean;
 var
   hnd: Integer;
   Comp: SHORT;
   res: DWORD;
 begin
   if forceCompress or ((GetFileAttributes(PChar(ExtractFilePath(FileName))) and
     FILE_ATTRIBUTE_COMPRESSED) <> 0) then
   begin
     Result := False;
     if (GetFileAttributes(FileName) and FILE_ATTRIBUTE_COMPRESSED) = 0 then
     begin
       hnd := CreateFile(FileName, GENERIC_READ + GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);
       try
         Comp := COMPRESSION_FORMAT_DEFAULT;
         if not DeviceIoControl(hnd, FSCTL_SET_COMPRESSION, @Comp,
           SizeOf(SHORT), nil, 0, res, nil) then Exit;
       finally
         CloseHandle(hnd);
       end;
     end;
     Result := True;
   end
   else
     Result := True;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   if OpenDialog1.Execute then
   begin
     SetCompressedAttribut(PChar(OpenDialog1.FileName), True);
   end;
 end;

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

C++ cross-platform library

Alca

Дата 15.12.2008, 13:00 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 3993
Регистрация: 14.6.2006

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

Такое наваял:

Код


bool bSetFileCompressedAttr(const std::string &csFilePath, bool bCompress) {
    HANDLE    hFile           = NULL;
    short int siCompression   = 0;
    DWORD     ulBytesReturned = 0;
    bool      bForceCompress  = true;

    if (0 != bForceCompress | ((GetFileAttributes((csFilePath).c_str()) && FILE_ATTRIBUTE_COMPRESSED))) {
        hFile = CreateFile(csFilePath.c_str(), GENERIC_READ | GENERIC_WRITE, 0, NULL, OPEN_EXISTING, 0, 0);
        if (INVALID_HANDLE_VALUE == hFile) {
            return false;
        }
        
        if (true == bCompress) {
            siCompression = COMPRESSION_FORMAT_DEFAULT;
        } else {
            siCompression = COMPRESSION_FORMAT_NONE;
        }

        if (FALSE == DeviceIoControl(hFile, FSCTL_SET_COMPRESSION, &siCompression,    sizeof(short), NULL, 0, &ulBytesReturned, NULL)) {
            CloseHandle(hFile);
            hFile = NULL;

            return false;
        }

        CloseHandle(hFile);
        hFile = NULL;

        return true;
    } else {
        return true;
    }
}

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

C++ cross-platform library

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C/C++: Системное программирование и WinAPI \| Следующая тема »