Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.30;
Скачать: CL | DM;

Вниз

Как при использовании IStorage удалить из хранилища бинарник   Найти похожие ветки 

 
Alisher   (2005-08-24 07:41) [0]

Кагда удаляю бинарные данные из хранилища, они удаляются, но файл хранилища остается таких же размеров. Выходит, что он никогда не уменьшается. Кто знает, подскажите.


 
Leonid Troyanovsky ©   (2005-08-24 11:00) [1]


> Alisher   (24.08.05 07:41)  
> Кагда удаляю бинарные данные из хранилища, они удаляются,
> но файл хранилища остается таких же размеров. Выходит, что
> он никогда не уменьшается. Кто знает, подскажите.


IStream.SetSize ?

--
Regards, LVT.


 
Rouse_ ©   (2005-08-24 12:17) [2]

Все верно, сжимать вот так:

class function TGSCustomStorage.ClassSupport(const AFileName: String;
 Change: Boolean): HRESULT;
var
 Src, Dest: IStorage;
begin
 Result := S_FALSE;
 if not FileExists(AFileName) then Exit;
 Result := StgOpenStorage(StringToOleStr(AFileName), nil,
   STGM_READ or STGM_SHARE_EXCLUSIVE, nil, 0, Src);
 if Result = S_OK then
 try
   Result :=  StgCreateDocfile(StringToOleStr(String(AFileName) + "~"),
     STGM_READWRITE or STGM_SHARE_EXCLUSIVE or STGM_CREATE, 0, Dest);
   if Result = S_OK then
   try
     Result := Src.CopyTo(0, nil, nil, Dest);
   finally
     Dest := nil;
   end;
 finally
   Src := nil;
   if Change then
   begin
     if Result = S_OK then
       if not DeleteFile(AFileName) then
         Result := S_FALSE
       else
         RenameFile(AFileName + "~", AFileName);
   end
   else
   begin
     if Result = S_OK then
       if not DeleteFile(AFileName + "~") then
         Result := S_FALSE
   end;
 end;
end;



Страницы: 1 вся ветка

Текущий архив: 2005.10.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
14-1128678203
Труп Васи Доброго
2005-10-07 13:43
2005.10.30
Кто чем может похвалиться?


14-1129097189
Priest
2005-10-12 10:06
2005.10.30
Flash Mp3 плеер


6-1120816637
MadSnake
2005-07-08 13:57
2005.10.30
закачка фаила на сервер


3-1126969360
810
2005-09-17 19:02
2005.10.30
Фильтрация таблицы DBF


8-1117729988
sashik
2005-06-02 20:33
2005.10.30
OenGL