ReSQL.ru
     
powered by simpleCommunicator - 2.0.49     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / C++ [игнор отключен] [закрыт для гостей] / Утечка памяти ADODB
10 сообщений из 10, страница 1 из 1
Утечка памяти ADODB
    #40006471
vinch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vinch
Гость
Доброго времени суток.
Подскажите кто сталкивался.
Я забираю с sql сервера данные по средствам скрипта:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
	ADO_Conn=__object_create("ADODB.Connection");
	csl = "Provider = SQLOLEDB;Initial Catalog  = DATA;Data Source = SERVER;User ID = USER;Password = PAS;Persist Security Info=True";

	ADO_Conn->Open(csl);

	cmdl = "SELECT [meas_dt],[kuvet_n],[product],[kz],ISNULL([cp1],0)AS cp1,ISNULL([cp2],0)AS cp2,ISNULL([cp3],0)AS cp3,ISNULL([cp4],0)AS cp4 FROM [asak1].[dbo].[rt_meas]WHERE [cycle_dt] = (select top 1 [cycle_dt] from [asak1].[dbo].[rt_meas] order by [cycle_dt] desc) ORDER BY [kuvet_n]";
		
	ADO_RSet=ADO_Conn->Execute(cmdl);
	
	ADO_RSet->MoveFirst();
	while (!ADO_RSet->eof)
	{				
		sprintf(time_1, "time_1_%i", row);
		sprintf(num_1, "num_1_%i", row);
		sprintf(pnt_1, "pnt_1_%i", row);
		sprintf(qual_1, "qual_1_%i", row);
		sprintf(cu_1, "cu_1_%i", row);
		sprintf(zn_1, "zn_1_%i", row);
		sprintf(sfe_1, "sfe_1_%i", row);
		sprintf(tv_1, "tv_1_%i", row);

		SetTagChar(time_1, ADO_RSet->Fields->Item("meas_dt")->value);
		SetTagByte(num_1, ADO_RSet->Fields->Item("kuvet_n")->value);
		SetTagChar(pnt_1, ADO_RSet->Fields->Item("product")->value);
		SetTagChar(qual_1, ADO_RSet->Fields->Item("kz")->value);
		SetTagFloat(cu_1, ADO_RSet->Fields->Item("cp1")->value);
		SetTagFloat(zn_1, ADO_RSet->Fields->Item("cp2")->value);
		SetTagFloat(sfe_1, ADO_RSet->Fields->Item("cp3")->value);
		SetTagFloat(tv_1, ADO_RSet->Fields->Item("cp4")->value);
		printf("row! %i", row);

if (row > 14) {return;}
else {
		row++;
		ADO_RSet->MoveNext();
}
	}

if (row < 14) {
	for (i=row; i < 15;  i++) {
		sprintf(time_1, "time_1_%i", i);
		sprintf(num_1, "num_1_%i", i);
		sprintf(pnt_1, "pnt_1_%i", i);
		sprintf(qual_1, "qual_1_%i", i);
		sprintf(cu_1, "cu_1_%i", i);
		sprintf(zn_1, "zn_1_%i", i);
		sprintf(sfe_1, "sfe_1_%i", i);
		sprintf(tv_1, "tv_1_%i", i);

		SetTagChar(time_1, "-");
		SetTagByte(num_1, 0);
		SetTagChar(pnt_1, "-");
		SetTagChar(qual_1, "-");
		SetTagFloat(cu_1, 0);
		SetTagFloat(zn_1, 0);
		SetTagFloat(sfe_1, 0);
		SetTagFloat(tv_1, 0);
}

ADO_Conn->Close();
ADO_Conn=NULL;
__object_delete(ADO_Conn);
	
}

Скрипт выполняется каждую минуту. через 2-3 часа выдаёт сообщение " provider.недостаточно памяти для завершения операции "
Подобных запросов 13.
В интернете ничего толком не нашел. В чём мой прокол?
...
Рейтинг: 0 / 0
08.10.2020, 09:52
| Ответить | Цитировать | Написать  
Утечка памяти ADODB
    #40006475
rdb_dev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rdb_dev
Участник
vinch, не пробовали закрывать и удалять RecordSet сразу, как он перестаёт быть нужным?
...
Рейтинг: 0 / 0
08.10.2020, 10:01
| Ответить | Цитировать | Написать  
Утечка памяти ADODB
    #40006502
istrebitel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
istrebitel
Гость
vinch

ADO_Conn=NULL;
__object_delete(ADO_Conn);

а не наоборот?
Код: plaintext
1.
2.
__object_delete(ADO_Conn);
ADO_Conn=NULL;
...
Рейтинг: 0 / 0
08.10.2020, 11:17
| Ответить | Цитировать | Написать  
Утечка памяти ADODB
    #40006549
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
vinchВ интернете ничего толком не нашел.

Так правильные ключевые слова надо было использовать. Не "в чём мой прокол", а "как
обнаружить утечку памяти". Для BCB есть штатный CodeGuard и DrMemory на все остальные
случаи жизни.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
08.10.2020, 12:52
| Ответить | Цитировать | Написать  
Утечка памяти ADODB
    #40006789
vinch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vinch
Гость
istrebitel, пробовал и так и так, результат не меняется
...
Рейтинг: 0 / 0
09.10.2020, 06:31
| Ответить | Цитировать | Написать  
Утечка памяти ADODB
    #40006794
vinch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vinch
Гость
rdb_dev,

Как то странно код скопировал, там стоит закрытие RecordSet
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
ADO_RSet->MoveFirst();
	while (!ADO_RSet->eof)
	{				
		sprintf(time_2, "time_2_%i", row);
		sprintf(num_2, "num_2_%i", row);
		sprintf(pnt_2, "pnt_2_%i", row);
		sprintf(qual_2, "qual_2_%i", row);
		sprintf(cu_2, "cu_2_%i", row);
		sprintf(zn_2, "zn_2_%i", row);
		sprintf(sfe_2, "sfe_2_%i", row);
		sprintf(tv_2, "tv_2_%i", row);

		SetTagChar(time_2, ADO_RSet->Fields->Item("meas_dt")->value);
		SetTagByte(num_2, ADO_RSet->Fields->Item("kuvet_n")->value);
		SetTagChar(pnt_2, ADO_RSet->Fields->Item("product")->value);
		SetTagChar(qual_2, ADO_RSet->Fields->Item("kz")->value);
		SetTagFloat(cu_2, ADO_RSet->Fields->Item("cp1")->value);
		SetTagFloat(zn_2, ADO_RSet->Fields->Item("cp2")->value);
		SetTagFloat(sfe_2, ADO_RSet->Fields->Item("cp3")->value);
		SetTagFloat(tv_2, ADO_RSet->Fields->Item("cp4")->value);

		if (row > 14) {

ADO_RSet->Close();
__object_delete(ADO_RSet);
ADO_RSet=NULL;

ADO_Conn->Close();
__object_delete(ADO_Conn);
ADO_Conn=NULL;
			return;}
		else {
			row++;
			ADO_RSet->MoveNext();
		}
...
Рейтинг: 0 / 0
09.10.2020, 07:15
| Ответить | Цитировать | Написать  
Утечка памяти ADODB
    #40006807
PetroNotC Sharp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PetroNotC Sharp
Участник
vinch,
Программист?
Тестирование это наша работа.
- нажми 3 клавиши и на экран монитор памяти Оси
- сделай пример в цикле вызова recordSeta 10 000 раз.
- из примера убери работу с лишними полями и вообще лишний код
- код в форуме оформляй стилем
Удачи!
...
Рейтинг: 0 / 0
09.10.2020, 07:50
| Ответить | Цитировать | Написать  
Утечка памяти ADODB
    #40006809
istrebitel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
istrebitel
Гость
vinch
rdb_dev,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
if (row > 14) {

ADO_RSet->Close();
__object_delete(ADO_RSet);
ADO_RSet=NULL;

ADO_Conn->Close();
__object_delete(ADO_Conn);
ADO_Conn=NULL;
			return;}



Т.е. если запрос вернёт меньше строк, то очистки не будет?
...
Рейтинг: 0 / 0
09.10.2020, 08:02
| Ответить | Цитировать | Написать  
Утечка памяти ADODB
    #40006871
rdb_dev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rdb_dev
Участник
vinch, пример неверен! Подумай, что будет, если RecordSet вернёт менее 14 записей.
Корректнее делать так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
// while ( !ADO_RSet->eof && row < 16 )
while ( !ADO_RSet->eof )
{
  ...

  if (row > 14)
    break;

  row++;
  ADO_RSet->MoveNext();
} // while ( !ADO_RSet->eof )

ADO_RSet->Close();
__object_delete(ADO_RSet);
ADO_Conn->Close();
__object_delete(ADO_Conn);
ADO_RSet=NULL;
ADO_Conn=NULL;

return;
...
Рейтинг: 0 / 0
09.10.2020, 11:49
| Ответить | Цитировать | Написать  
Утечка памяти ADODB
    #40006949
Фотография mayton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mayton
Участник
vinch, не забывай пользоваться тегами форматирования исходников.
...
Рейтинг: 0 / 0
09.10.2020, 14:17
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / C++ [игнор отключен] [закрыт для гостей] / Утечка памяти ADODB
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=57&msg=40006794&tid=2017321]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 173ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 55ms
get tp. blocked users:
 2ms
others: 231ms
total:  510ms
созд. / загр.: 510ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]