Утечка памяти.

[Gdasar]

Здравствуйте. С наступающим Новым Годом

Я создаю морфологический анализатор с помощью уже готовых библиотек от AOT.
Так вот, при написании следующей функции(см ниже) появляется утечка памяти:

String GetMorphDetail(const String SrcAncodes)
{
	WideString OneAncode;
	unsigned char ch;
	int i(1);
	__int64 j(0);
	String Result("");
	while(i < SrcAncodes.Length())
	{
		OneAncode = SrcAncodes.SubString(i, 2);
		Form1->RusGramTab->GetPartOfSpeech(OneAncode, ch);
		Form1->RusGramTab->GetPartOfSpeechStr(ch, OneAncode); // утечка
		Result = OneAncode + "=";
		OneAncode = SrcAncodes.SubString(i, 2);
		//Form1->RusGramTab->GetGrammems(OneAncode, j);
		//Form1->RusGramTab->GrammemsToStr(j, OneAncode); // утечка
		Result += OneAncode;
		i += 2;
	}
	return Result;
}

Вызывается эта функция в следующем коде:

String speech(""), info("");
::CoInitialize(NULL);
String OneAncode;
for(int f = 0; f < Memo1->Lines->Count; f++)
{
	RusLemmatizer->CreateParadigmCollectionFromForm(Memo1->Lines->Strings[f].Trim(), 1, 1, ParadigmCollection);
	if(ParadigmCollection->Count > 0)
	{
		for (int i = 0; i < ParadigmCollection->Count; i++)
		{
			for(unsigned int j = 0; j < ParadigmCollection->Item[i]->Count; j++)
			{
				info = GetMorphDetail(ParadigmCollection->Item[i]->Ancode[j]);
				info = "";
			}
		}
	}
	ParadigmCollection->Release();
}
::CoUninitialize();

Много раз проверил, если следующие строчки не закомментированы, то память утекает неимоверно быстро.

Form1->RusGramTab->GetPartOfSpeechStr(ch, OneAncode);
Form1->RusGramTab->GrammemsToStr(j, OneAncode);

CodeGuard ничего не находит.

Вот так они объявлены в заголовочном h файле:

virtual HRESULT __safecall GetPartOfSpeechStr(System::Byte PartOfSpeech, System::WideString &__GetPartOfSpeechStr_result) = 0 ;
virtual HRESULT __safecall GrammemsToStr(__int64 grammems, System::WideString &__GrammemsToStr_result) = 0 ;

Вот так они выглядят в pas файле:

function TGerGramTab.GetPartOfSpeechStr(PartOfSpeech: Byte): WideString;
begin
  Result := DefaultInterface.GetPartOfSpeechStr(PartOfSpeech);
end;

function TRusGramTab.GrammemsToStr(grammems: Int64): WideString;
begin
  Result := DefaultInterface.GrammemsToStr(grammems);
end;

Может быть в этой части теряется память?

System::WideString &__GetPartOfSpeechStr_result
System::WideString &__GrammemsToStr_result

Как думаете?

Буду рад любой помощи Разобраться бы с этой проблемой в этом году, чтобы в новый 2016 ее не тащить

[Stilet]

А как выглядит тело GetPartOfSpeechStr, на которую в интерфейсе идет обращение?

[waleri]

Может надо очищать переменную OneAncode перед вызовом?

[Gdasar]

Сообщение от Stilet

А как выглядит тело GetPartOfSpeechStr, на которую в интерфейсе идет обращение?

Я не знаю

Я получил 2 pas файла из dll. Далее просто добавил их к проекту и получил используемые h файлы(см аттач).

Само приложение работает "отлично" - выполняет морфологический анализ, но только где-то память утекает.

Может надо очищать переменную OneAncode перед вызовом?

Пробовал. Но методом исключения я определил 2 строчки, где происходит утечка(или не определил?).

[Gdasar]

Сами dll, откуда я получил pas файлы.

[taras-proger]

Что то странное. Может либа кривая? Указателей то в тексте не видно.

[Gdasar]

Здравствуйте.
Я чуть изменил функцию - добавил Sleep(10)

String GetMorphDetail(const String SrcAncodes)
{
	unsigned char ch;
	WideString OneAncode("");
	int i(1);
	__int64 j(0);
	String Result("");
	while(i < SrcAncodes.Length())
	{
		OneAncode = SrcAncodes.SubString(i, 2);
		Form1->RusGramTab->GetPartOfSpeech(OneAncode, ch);
		Sleep(10);
		Form1->RusGramTab->GetPartOfSpeechStr(ch, OneAncode); // утечка
		Result = OneAncode + "=";
		/*OneAncode = SrcAncodes.SubString(i, 2);
		Form1->RusGramTab->GetGrammems(OneAncode, j);
		//Form1->RusGramTab->GrammemsToStr(j, OneAncode); // утечка
		Result += OneAncode;*/
		i += 2;
	}
	return Result;
}

И по диспетчеру стал наблюдать, как возрастает потребление памяти. Первые секунды память не изменяется, но потом начинает увеличиваться на 4 Кб каждую секунду.

P.S. не знаю, к чему я это ляпнул, просто на столько я продвинулся в решении данной проблемы... Я все еще топчусь на месте.

[Krok27]

Form1->RusGramTab->GetPartOfSpeech(OneAncode, ch);

и

Form1->RusGramTab->GetPartOfSpeechStr(ch, OneAncode);

Посмотреть в отладчике значение переменной OneAncode в процессе выполнения цикла.

Result = OneAncode + "=";

Здесь у Вас что? Последнее значение переменной OneAncode? Тогда можно вынести
за тело цикла. А так подозрение на GetPartOfSpeechStr.

[Krok27]

Вообще тело цикла довольно странное:

while(i < SrcAncodes.Length())
	{
		OneAncode = SrcAncodes.SubString(i, 2); // присвоили значение переменной OneAncode
		Form1->RusGramTab->GetPartOfSpeech(OneAncode, ch);//чет делаем с переменной
		Form1->RusGramTab->GetPartOfSpeechStr(ch, OneAncode); // утечка
		Result = OneAncode + "=";// присваиваем Result значение переменной OneAncode и "=", т.е. на следующем проходе цикла мы обнулили 
                    Result с конактекированным значением и присвоили новое значение OneAncode и "=".
		OneAncode = SrcAncodes.SubString(i, 2);// опять присвоили значение то же переменной OneAncode
		//Form1->RusGramTab->GetGrammems(OneAncode, j);
		//Form1->RusGramTab->GrammemsToStr(j, OneAncode); // утечка
		Result += OneAncode; //конактенация OneAncode с Result; 
		i += 2;
	}

Вы определитесь че надо та?

[HelloWold]

Krok27, здравствуйте.
Данная функция была переписана по подобию этого кода на Delphi

  function GetMorphDetail(const SrcAncodes: string): string;
  var
    OneAncode: string;
    i: integer;
  begin
    Result := '';
    i := 1;
    while  i < Length(SrcAncodes) do
      begin
        OneAncode := Copy(SrcAncodes, i, 2);
        if Result <> '' then
          Result := Result + ' ';
        Result := Result + ' ' + RusGramTab.GetPartOfSpeechStr(RusGramTab.GetPartOfSpeech(OneAncode)) + '=' + RusGramTab.GrammemsToStr(RusGramTab.GetGrammems(OneAncode));
        i := i + 2;
      end;
  end;

Ниже прикрепил заголовочные файлы + cpp.
Может я не верно перевел функцию с Delphi?

На вход функция получает:

аа
аб
ав
аг
ад
аж
аз
аи
ай
ак
ал

На выходе выдает:

С=мр,пр,ед,
С=мр,им,мн,
С=мр,рд,мн,
С=мр,дт,мн,
С=мр,вн,мн,
С=мр,тв,мн,
С=мр,пр,мн,