Главная страница
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.03 c
3-1127198715
pasha_golub
2005-09-20 10:45
2005.10.30
TDatasetProvider s stuff


2-1128453474
kami
2005-10-04 23:17
2005.10.30
"Нехватка" курсора при проходе MemProof


3-1127061927
suharew
2005-09-18 20:45
2005.10.30
Транзакции в Interbase


14-1129017796
pazitron_brain
2005-10-11 12:03
2005.10.30
Как сделать ICQ?


2-1128852254
ArtemESC
2005-10-09 14:04
2005.10.30
Отладка