template<class T>
class CComPtr
и
template<class T, const IID* piid = &__uuidof(T)>
class CComQIPtr: public CComPtr<T>
Удаление указателя TStreamAdapter
IPersistStreamInit *psi;
WB->Document->QueryInterface(IID_IPersistStreamInit,(void **)&psi);
TMemoryStream *olds = new TMemoryStream();
TStreamAdapter *sa1 ;
sa1 = new TStreamAdapter(olds, soReference);
psi->Save(*sa1, true);
...
...
...
delete sa1; // тут AV
как правильно удалить sa1?
sa1->Free() тоже не проходит
WB->Document->QueryInterface(IID_IPersistStreamInit,(void **)&psi);
TMemoryStream *olds = new TMemoryStream();
TStreamAdapter *sa1 ;
sa1 = new TStreamAdapter(olds, soReference);
psi->Save(*sa1, true);
...
...
...
delete sa1; // тут AV
как правильно удалить sa1?
sa1->Free() тоже не проходит
а psi->Release() сделать?
про TMemoryStream ниче незнаю. ))
Кстати для работы с COM очень удобно юзать ATL-ные обертки типа
про TMemoryStream ниче незнаю. ))
Кстати для работы с COM очень удобно юзать ATL-ные обертки типа
Код:
вот полный код psi->Release() тут не при чем:
мешает psi->Save(...)
Код:
IPersistStreamInit *psi;
WB->Document->QueryInterface(IID_IPersistStreamInit,(void **)&psi);
void *buff1 = malloc (DM->Query1BodyDoc->BlobSize);
TStream *s = DM->Query1->CreateBlobStream(DM->Query1->FieldByName("BodyDoc"), bmRead);
s->Seek(0, soFromBeginning);
s->Read(buff1, DM->Query1BodyDoc->BlobSize);
s->Seek(0, soFromBeginning);
TMemoryStream *olds = new TMemoryStream();
TStreamAdapter *sa1 ;
sa1 = new TStreamAdapter(olds, soReference);
//delete sa1; если тут удалять, то все ОК!
//return;
psi->Save(*sa1, true);
void *buff2 = malloc (olds->Size);
olds->Seek(0, soFromBeginning);
olds->Read(buff2,olds->Size);
olds->Seek(0, soFromBeginning);
if (olds->Size == DM->Query1BodyDoc->BlobSize && memcmp(buff1, buff2, olds->Size) == 0) // doc wasn't changed
{
free(buff1);
free(buff2);
psi->Release();
delete sa1;
delete olds;
return;
}
WB->Document->QueryInterface(IID_IPersistStreamInit,(void **)&psi);
void *buff1 = malloc (DM->Query1BodyDoc->BlobSize);
TStream *s = DM->Query1->CreateBlobStream(DM->Query1->FieldByName("BodyDoc"), bmRead);
s->Seek(0, soFromBeginning);
s->Read(buff1, DM->Query1BodyDoc->BlobSize);
s->Seek(0, soFromBeginning);
TMemoryStream *olds = new TMemoryStream();
TStreamAdapter *sa1 ;
sa1 = new TStreamAdapter(olds, soReference);
//delete sa1; если тут удалять, то все ОК!
//return;
psi->Save(*sa1, true);
void *buff2 = malloc (olds->Size);
olds->Seek(0, soFromBeginning);
olds->Read(buff2,olds->Size);
olds->Seek(0, soFromBeginning);
if (olds->Size == DM->Query1BodyDoc->BlobSize && memcmp(buff1, buff2, olds->Size) == 0) // doc wasn't changed
{
free(buff1);
free(buff2);
psi->Release();
delete sa1;
delete olds;
return;
}
мешает psi->Save(...)
помогло обнуление указателя:
sa1 = NULL;
delete sa1;
так правильно вообще будет?
sa1 = NULL;
delete sa1;
так правильно вообще будет?
Цитата: oxotnik333
помогло обнуление указателя:
sa1 = NULL;
delete sa1;
так правильно вообще будет?
sa1 = NULL;
delete sa1;
так правильно вообще будет?
Так 100% не правильно. Ты же реальный указатель тут теряешь, а вместо него пытаешся обнулить NULL.
Прочти справку по IUnknown::Release.
Там сказано, что не всегда метод Release приводит к удалению объекта.
В твоём примере, если не удалён psi, он может мешать удалять sal.
Там сказано, что не всегда метод Release приводит к удалению объекта.
В твоём примере, если не удалён psi, он может мешать удалять sal.
пробовал по разному, и вот так:
delete psi;
delete sa1;
один хрен
delete psi;
delete sa1;
один хрен
Цитата: oxotnik333
пробовал по разному, и вот так:
delete psi;
delete sa1;
один хрен
delete psi;
delete sa1;
один хрен
Почитай документацию по COM.
таким образом: delete psi;
ты не освободишь COM объект.
Помойму, там вылает AV потому, что то время как ты удаляешь sa1, его еще использует psi...т.е. та область памяти, которую ты пытаешься очистить еще используется. это же видно и из примера который ты выложил:
т.е. прежде чем пытаться удалить этот указатель, поудаляй вначале все зависимости, скорее всего в psi, есть какой нибудь метод или функция, типа Close, которая будет закрывать этот sa1.
Или, возможен такой вариант: что сама функция Save затирает ту область памяти..т.е. освобождает объект. надо вообще почитать документацию для более конкретного ответа. Я уже сталкивался с такими фишками борланда...что save удаляет самостоятельно объект, тоже долго мучался в поиске решения...
Код:
sa1 = new TStreamAdapter(olds, soReference);
//delete sa1; если тут удалять, то все ОК!
//return;
psi->Save(*sa1, true);
//delete sa1; если тут удалять, то все ОК!
//return;
psi->Save(*sa1, true);
т.е. прежде чем пытаться удалить этот указатель, поудаляй вначале все зависимости, скорее всего в psi, есть какой нибудь метод или функция, типа Close, которая будет закрывать этот sa1.
Или, возможен такой вариант: что сама функция Save затирает ту область памяти..т.е. освобождает объект. надо вообще почитать документацию для более конкретного ответа. Я уже сталкивался с такими фишками борланда...что save удаляет самостоятельно объект, тоже долго мучался в поиске решения...
делал по разному:
в т.ч. и так:
psi->Release(); //отсвобождение COM объекта
delete olds; // удаление "связанной" с sa1 памяти
delete sa1;
один фиг AV и все тут
в т.ч. и так:
psi->Release(); //отсвобождение COM объекта
delete olds; // удаление "связанной" с sa1 памяти
delete sa1;
один фиг AV и все тут
Помоему проблема в строке
В справке по IPersistStream::Save написано
а в своём примере ты передаёшь не АДРЕС: sa1, а ОБЪЕКТ: *sa1 !
Возможно это всё и портит!
Код:
psi->Save(*sa1, true);
В справке по IPersistStream::Save написано
Код:
Saves an object to the specified stream.
HRESULT Save(
IStream *pStm, //Pointer to the stream where the object is to be saved
BOOL fClearDirty //Specifies whether to clear the dirty flag
);
HRESULT Save(
IStream *pStm, //Pointer to the stream where the object is to be saved
BOOL fClearDirty //Specifies whether to clear the dirty flag
);
а в своём примере ты передаёшь не АДРЕС: sa1, а ОБЪЕКТ: *sa1 !
Возможно это всё и портит!
я же удаляю по почереди все связанные объекты, причем sa1 самым последним
А что возвращает Release()?
Плюс как написал nikipelovav - странный способ передачи значения в метод Save. Конечно оперетор * может быть переопределен для класса TStreamAdapter, а я не знаю что это за класс, так как не пользуюсь Borland-ом. Но ты все же уверен, что *sa1, возвращает именно то что нужно для передачи в Save() ?
Плюс как написал nikipelovav - странный способ передачи значения в метод Save. Конечно оперетор * может быть переопределен для класса TStreamAdapter, а я не знаю что это за класс, так как не пользуюсь Borland-ом. Но ты все же уверен, что *sa1, возвращает именно то что нужно для передачи в Save() ?
Цитата:
А что возвращает Release()?
S_OK
вся эта конструкция работает абсолютно правильно...
т.е. из IPersistStreamInit в TMemoryStream посредством TStreamAdapter передается поток, передается полностью, правильно и 100% работает...
единственный косяк с удалением этого промежуточного звена TStreamAdapter.
в общем и целом это не критично, однако, если в течении работы проги открыть около 100 документов, тогда потребляемая память возрастает на 5-10 метров, т.е. на 20-50 %, что не есть гуд...
Можешь указать заголовочный файл для IPersistStreamInit. У себя в Builder-е не могу найти. Справка Win SDK пишет только о IPersistStream.
ocidl.h
он там определяется
а подключается к проекту судя по всему вот так:
#include <atl\atlvcl.h>
он там определяется
а подключается к проекту судя по всему вот так:
#include <atl\atlvcl.h>
Я всё таки сомневаюсь в том, что *sai - это верный аргумент.
Посмотри как определён класс в ocidl.h
Ты пробовал вместо *sai передавать в метод Save - sai ?
Посмотри как определён класс в ocidl.h
Код:
typedef /* [unique] */ IStream *LPSTREAM;
....
#if defined(__cplusplus) && !defined(CINTERFACE)
MIDL_INTERFACE("7FD52380-4E07-101B-AE2D-08002B2EC713")
IPersistStreamInit : public IPersist
{
public:
virtual HRESULT STDMETHODCALLTYPE IsDirty( void) = 0;
virtual HRESULT STDMETHODCALLTYPE Load(
/* [in] */ LPSTREAM pStm) = 0;
virtual HRESULT STDMETHODCALLTYPE Save(
/* [in] */ LPSTREAM pStm,
/* [in] */ BOOL fClearDirty) = 0;
virtual HRESULT STDMETHODCALLTYPE GetSizeMax(
/* [out] */ ULARGE_INTEGER *pCbSize) = 0;
virtual HRESULT STDMETHODCALLTYPE InitNew( void) = 0;
};
...
....
#if defined(__cplusplus) && !defined(CINTERFACE)
MIDL_INTERFACE("7FD52380-4E07-101B-AE2D-08002B2EC713")
IPersistStreamInit : public IPersist
{
public:
virtual HRESULT STDMETHODCALLTYPE IsDirty( void) = 0;
virtual HRESULT STDMETHODCALLTYPE Load(
/* [in] */ LPSTREAM pStm) = 0;
virtual HRESULT STDMETHODCALLTYPE Save(
/* [in] */ LPSTREAM pStm,
/* [in] */ BOOL fClearDirty) = 0;
virtual HRESULT STDMETHODCALLTYPE GetSizeMax(
/* [out] */ ULARGE_INTEGER *pCbSize) = 0;
virtual HRESULT STDMETHODCALLTYPE InitNew( void) = 0;
};
...
Ты пробовал вместо *sai передавать в метод Save - sai ?
Ещё один вопрос, так как ты привёл нам лишь часть кода.
Как Я понял, метод QueryInterface внутри себя вызывает метод IUnknown::AddRef , который ИНКРИМЕНТИРУЕТ счётчик вызовов интерфейса ( копий указателей ).
Метод IUnknown::Release() , наоборот, ДЕКРИМЕНТИРУЕТ счётчик вызовов интерфейса ( копий указателей ). И лишь в случае СЧЁТЧИК = 0 очищает память!
Возможно, ты в другом месте программы делаешь ещё вызов
и в твоем проблемном месте, поток sai занят?
P.S.: Для меня эта тема новая, свои мысли высказываю только на основе анализа справки ;)
Как Я понял, метод QueryInterface внутри себя вызывает метод IUnknown::AddRef , который ИНКРИМЕНТИРУЕТ счётчик вызовов интерфейса ( копий указателей ).
Код:
// выдержка из справки
The IUnknown::AddRef method increments the reference count
for a the calling interface on an object. It should be called for
every new copy of a pointer to an interface on a given object.
The IUnknown::AddRef method increments the reference count
for a the calling interface on an object. It should be called for
every new copy of a pointer to an interface on a given object.
Метод IUnknown::Release() , наоборот, ДЕКРИМЕНТИРУЕТ счётчик вызовов интерфейса ( копий указателей ). И лишь в случае СЧЁТЧИК = 0 очищает память!
Код:
// выдержка из справки
Decrements the reference count for the calling interface on a object.
If the reference count on the object falls to 0, the object is freed from memory.
Decrements the reference count for the calling interface on a object.
If the reference count on the object falls to 0, the object is freed from memory.
Возможно, ты в другом месте программы делаешь ещё вызов
Код:
WB->Document->QueryInterface(IID_IPersistStreamInit,(void **)&psi);
и в твоем проблемном месте, поток sai занят?
P.S.: Для меня эта тема новая, свои мысли высказываю только на основе анализа справки ;)
1. TStreamAdapter как из название следует, является промежуточным звеном (адаптером) между IStream и TStream, поэтому когда делается *sa1 = new TStreamAdapter (...), sa1 апеврящается в IStream.
2. QueryInterface вызываю всего один раз (видно по коду который выкладывал, он полный, за исключением записи в файл, но того что выложил достаточно для понятия проблемы)
3. psi->Release() делал столько раз сколько и QueryInterface (т.о. счетчик должен быть обнулен)
4. в качестве ЗЫ: облазил весь инет, нашел кучу примеров сохранения WB в поток/файл, но нигде в С++ вариантах не удаляется TStreamAdapter, отднако в дельфевских кодах вызывается sa.Free(); (через нее тоже пробовал, монопенисуально delete)
2. QueryInterface вызываю всего один раз (видно по коду который выкладывал, он полный, за исключением записи в файл, но того что выложил достаточно для понятия проблемы)
3. psi->Release() делал столько раз сколько и QueryInterface (т.о. счетчик должен быть обнулен)
4. в качестве ЗЫ: облазил весь инет, нашел кучу примеров сохранения WB в поток/файл, но нигде в С++ вариантах не удаляется TStreamAdapter, отднако в дельфевских кодах вызывается sa.Free(); (через нее тоже пробовал, монопенисуально delete)
Может всё значительно просто:
В справке по деструктору TStreamAdapter написано
В справке по деструктору TStreamAdapter написано
Код:
Most applications do not need to explicitly free the TStreamAdapter instance.
Instead, it is freed automatically when its reference count drops to 0.
Instead, it is freed automatically when its reference count drops to 0.
А еще в справке по свойству RefCount написано
Выходит что после psi->Release(); - sai->RefCount = 0 и sai автоматически удаляется!
Код:
Indicates the number of interface pointers currently dependent upon the object.
__property int RefCount = { read=FRefCount };
Description
RefCount defines the lifetime of the object.
When RefCount is zero, the object is destroyed.
RefCount is incremented by calls to the _AddRef method
and decremented by the _Release method.
__property int RefCount = { read=FRefCount };
Description
RefCount defines the lifetime of the object.
When RefCount is zero, the object is destroyed.
RefCount is incremented by calls to the _AddRef method
and decremented by the _Release method.
Выходит что после psi->Release(); - sai->RefCount = 0 и sai автоматически удаляется!
sai->RefCount = 40 у меня
откуда так много ума не приложу, когда РЕАЛЬНО вызывается ОДИН раз..
а весь гемор в том что память жрет и не освобождает
откуда так много ума не приложу, когда РЕАЛЬНО вызывается ОДИН раз..
а весь гемор в том что память жрет и не освобождает
Попробуй пока так
Это очистит RefCount в 0 и возможно освободит память.
Код:
while ( psi->Release() ) {} // пока счётчик не ноль
Это очистит RefCount в 0 и возможно освободит память.
А ты можешь подробнее расказать, что такое WB? Уж больно интересно понять что ты делаешь, может и мне когда-нибудь пригодиться ;)
delete sa1; - "Invalid pointer operation"
уже лучше )))
уже лучше )))
Цитата: nikipelovav
А ты можешь подробнее расказать, что такое WB? Уж больно интересно понять что ты делаешь, может и мне когда-нибудь пригодиться ;)
TCppWebBrowser *WB;
Если Я правильно понял, твой код отслеживает момент изменения веб странички.
Я обратил внимание на то, что создавая поток BLOB данных ты его не удаляешь!
нет строки "delete s;". Возможно здесь причина засорения памяти.
Ты проверяешь изменение по таймеру? Если да, то отслеживаешь ли ты ситуацию повторного запуска обработчика, т.е. когда один обработчик выполняется, а второму "уже время".
Я обратил внимание на то, что создавая поток BLOB данных ты его не удаляешь!
Код:
TStream *s = DM->Query1->CreateBlobStream(DM->Query1->FieldByName("BodyDoc"), bmRead);
...
if (olds->Size == DM->Query1BodyDoc->BlobSize && memcmp(buff1, buff2, olds->Size) == 0) // doc wasn't changed
{
free(buff1);
free(buff2);
psi->Release();
delete sa1;
delete olds;
return;
}
...
if (olds->Size == DM->Query1BodyDoc->BlobSize && memcmp(buff1, buff2, olds->Size) == 0) // doc wasn't changed
{
free(buff1);
free(buff2);
psi->Release();
delete sa1;
delete olds;
return;
}
нет строки "delete s;". Возможно здесь причина засорения памяти.
Ты проверяешь изменение по таймеру? Если да, то отслеживаешь ли ты ситуацию повторного запуска обработчика, т.е. когда один обработчик выполняется, а второму "уже время".
отслеживаю на OnBeforeNavigate2
TStream виртуальный класс ему не требуется new\delete
TStream виртуальный класс ему не требуется new\delete
2 вопроса:
1) Насчёт
отслеживаю на OnBeforeNavigate2
TStream виртуальный класс ему не требуется new\delete
Вот так, например, Я копирую содержимое BLOB поля в поток в памяти
1) Насчёт
Цитата:
отслеживаю на OnBeforeNavigate2
В справке написано, что это событие вызывается перед переходом на другую страницу, вызванному методом Navigate или кликом на ссылку. Но ведь в этот момент WB отображает туже страницу что и какое-то время назад, по всей видимости, ту страницу, которая сохранена у тебя в BLOB поле.
По идее надо использовать событие OnDocumentComplet, т.е. когда страница полностью загружена,
и в этот момент сравнивать с предидущим состоянием.
2) Насчёт
Цитата:
TStream виртуальный класс ему не требуется new\delete
пожалуйста обоснуй.
Я работаю в своей БД с BLOB полями и удаляю поток данных после использования, поскольку так написано в справке:
Код:
CreateBlobStream, Edit example
The following example copies the data in the Notes field of Table1 to the Remarks field of ClientDataSet1.
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TBlobStream *Stream1;
TStream *Stream2;
Stream1 = new TBlobStream(Table1Notes, bmRead);
try
{
ClientDataSet1->Edit();
// here’s another way to create a blob stream
Stream2 = ClientDataSet1->CreateBlobStream(ClientDataSet1->FieldByName("Remarks"), bmReadWrite);
try
{
Stream2->CopyFrom(Stream1, Stream1->Size);
ClientDataSet1->Post();
}
__finally
{
delete Stream2;
}
}
__finally
{
delete Stream1;
}
}
The following example copies the data in the Notes field of Table1 to the Remarks field of ClientDataSet1.
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TBlobStream *Stream1;
TStream *Stream2;
Stream1 = new TBlobStream(Table1Notes, bmRead);
try
{
ClientDataSet1->Edit();
// here’s another way to create a blob stream
Stream2 = ClientDataSet1->CreateBlobStream(ClientDataSet1->FieldByName("Remarks"), bmReadWrite);
try
{
Stream2->CopyFrom(Stream1, Stream1->Size);
ClientDataSet1->Post();
}
__finally
{
delete Stream2;
}
}
__finally
{
delete Stream1;
}
}
Вот так, например, Я копирую содержимое BLOB поля в поток в памяти
Код:
TMemoryStream* MS = new TMemoryStream();
TStream *BS = myDataSet->CreateBlobStream( myDataSet->FieldByName( myFieldName ), bmRead );
MS->CopyFrom( BS, BS->Size );
delete BS;
...
далее работаю с потоком в памяти MS
...
TStream *BS = myDataSet->CreateBlobStream( myDataSet->FieldByName( myFieldName ), bmRead );
MS->CopyFrom( BS, BS->Size );
delete BS;
...
далее работаю с потоком в памяти MS
...
по поводу delete TStream, спасибо за подсказку (сам думал, раз нет new, не должно быть и delete)
по поводу проверки на изменение документа:
прога организована т.о. что перед тем как загрузить новую страницу, она проверяет старую(сравнивает с БД), т.е. получается редактировался документ, юзер захотел перейти на другой, автоматом вызывается проверка перед тем как загрузится новый документ (т.е. перед тем как состояние БД изменится)
по поводу проверки на изменение документа:
прога организована т.о. что перед тем как загрузить новую страницу, она проверяет старую(сравнивает с БД), т.е. получается редактировался документ, юзер захотел перейти на другой, автоматом вызывается проверка перед тем как загрузится новый документ (т.е. перед тем как состояние БД изменится)
Так что, delete TStream - помогло с проблемой "мусора в памяти"?
И как ситуация с sai. Ты писал о другом сообщении об ошибке. Пробовал моё предложение while ( psi->Release() )?
И как ситуация с sai. Ты писал о другом сообщении об ошибке. Пробовал моё предложение while ( psi->Release() )?
подсказали несколько другой код через CComQIPtr & auto_ptr,
но все это вопрос не сильно решает... как росла память так и растет
while ( psi->Release() ) пробовал после этого и вылезла уже другая ошибка.
короче через ComQIPtr буду дклать, так поменьше жрет памяти
но все это вопрос не сильно решает... как росла память так и растет
while ( psi->Release() ) пробовал после этого и вылезла уже другая ошибка.
короче через ComQIPtr буду дклать, так поменьше жрет памяти