#post-id: 3585-15-34
#original-date: 20.05.2010 Thu
#original-time: 3:34 PM
#original-day: 3585
#original-host: WinXP Prof SP3 (Build 2600)

К посту про утечку памяти. Всё оказалось проще, чем я думала. Вот код:

//===================================================================
// Оболочка для функции, которая будет учитывать что мы перегоняем 
// одну и туже строку...
//===================================================================
inline BOOL MySysReAllocString(BSTR    *pbstr,
                               OLECHAR *sz)
{
  BSTR TXT = SysAllocString(sz);
  if (TXT == NULL) 
    return FALSE;
  else {
    // Тут у меня была страшная утечка памяти. У нас ReAllocString(), 
    // тоесть строка должна освобождаться и создаваться снова. Но я 
    // её забыла освобождать, поэтому всё было плохо >_< При 
    // многократных вызовах функции множество BSTR просто оставались 
    // в памяти. Особенно от этого пострадала asGetCurrectMusic().
    SysFreeString(*pbstr);
    
    *pbstr = TXT;
    return TRUE;
  }
}

inline BOOL MySysReAllocStringLen(BSTR    *pbstr,
                                  OLECHAR *sz,
                                  UINT    cch)
{
  BSTR TXT = SysAllocStringLen(sz, cch);
  if (TXT == NULL) 
    return FALSE;
  else {
    // Тут у меня была страшная утечка памяти. У нас ReAllocString(), 
    // тоесть строка должна освобождаться и создаваться снова. Но я 
    // её забыла освобождать, поэтому всё было плохо >_< При 
    // многократных вызовах функции множество BSTR просто оставались 
    // в памяти. Особенно от этого пострадала asGetCurrectMusic().
    SysFreeString(*pbstr);
    
    *pbstr = TXT;
    return TRUE;
  }
}

Суть этих функций в том, что они позволяют передавать в оба парметра одну и туже BSTR. Например, когда нам нужно её урезать. При использовании стандартной функции оная сначала освобождает BSTR, а потом только оттуда начинает что-то копировать - могут возникнуть ошибки (память портится) и даже исключения. Поэтому я написала свою заглушку чтобы не жонглировать постоянно временными буферами. Написать-то написала, а про освобождение строки забыла. Вот оно и вылезло...

Вот код, который показывает как течёт память (смотреть в диспетчере задач):

Public Sub Main()
  Dim TXT As BStr
  
  Do
    TXT = asGetCurrentMusic()
    TXT = ""
  Loop While Not asIsKeyPressed(VK_SHIFT)
End Sub

#upd: Чёрт, в Debug сборке работает нормально, а в Release всё равно память жрёт! OO

#upd: А, поняла ^^ У меня там при отладочной сборке не проверялось, стоит ли WinAMP на паузе или нет. Поэтому строка всегда возвращалась. А в релизе если плеер стоял на паузе, возвращался NULL, а уже полученная строка даже не освобождалась.

  // WinAMP, foobar2000 + WinAMP Emulator
  Title = GetCurrentMusicApp(L"Winamp v1.x", TRUE, L" - Winamp");
  if (Title != NULL) 
    if (IsWinAmpPlaying()) return Title; else return NULL;
    // else тут для того чтобы при стоящем на паузе фубаре выполнение 
    // не пошло дальше и не прочитало музыку из заголовка...

Исправила так:

  // WinAMP, foobar2000 + WinAMP Emulator
  Title = GetCurrentMusicApp(L"Winamp v1.x", TRUE, L" - Winamp");
  if (Title != NULL) {
    if (IsWinAmpPlaying()) {
      return Title; 
    } else {
      SysFreeString(Title);
      return NULL;
    }
    // else тут для того чтобы при стоящем на паузе фубаре выполнение 
    // не пошло дальше и не прочитало музыку из заголовка...
  }

Хотела сначала проверять, стоит ли WinAMP на паузе или нет, но в таком случае будет не ясно, стоит он на паузе или вообще его окно не найдено. Поэтому решила просто освобождать строку.

А вообще весело было ^^ Сначала начала искать, чем отличается отладочная сборка, нашла эту функцию:

//===================================================================
// Отправляет окну WinAMP сообщение и в зависимости от ответа делает 
// вывод - играет музыка или нет... Взяла это в исходниках Симагика...
//===================================================================
BOOL IsWinAmpPlaying(VOID)
{
  #if _DEBUG
    // Для того чтобы во время теста можно было держать на паузе...
    return TRUE;
  #endif
  
  HWND hWndWA = FindWindow("Winamp v1.x", NULL);
  if (hWndWA != 0) {
    LRESULT RC = SendMessage(hWndWA, WM_USER, 0, 104);
    if (RC == 1) return TRUE;
  }
  
  return FALSE;
}

Подумала, что возможно дело в возвращаемом значении - так и оказалось ^^ Я попробовала закомантировать #if, но уже примерно догадалась, какие последствия это имеет ^^ Ну и попробовала запустить музыку - память не кушается, остановить - память начинает кушаться ^^

А нефиг без музыки сидеть ^_^

Смотрите также