Гость
Войти | Профиль | Очистить
Действия ...
Форумы / C++ [игнор отключен] [закрыт для гостей] / Утечка памяти ADODB / 10 сообщений из 10, страница 1 из 1
08.10.2020, 09:52
    #40006471
vinch
vinch
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Утечка памяти ADODB
Доброго времени суток.
Подскажите кто сталкивался.
Я забираю с 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, 10:01
    #40006475
rdb_dev
rdb_dev
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Утечка памяти ADODB
vinch, не пробовали закрывать и удалять RecordSet сразу, как он перестаёт быть нужным?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2020, 11:17
    #40006502
istrebitel
istrebitel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Утечка памяти ADODB
vinch

ADO_Conn=NULL;
__object_delete(ADO_Conn);

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

Так правильные ключевые слова надо было использовать. Не "в чём мой прокол", а "как
обнаружить утечку памяти". Для BCB есть штатный CodeGuard и DrMemory на все остальные
случаи жизни.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.10.2020, 06:31
    #40006789
vinch
vinch
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Утечка памяти ADODB
istrebitel, пробовал и так и так, результат не меняется
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.10.2020, 07:15
    #40006794
vinch
vinch
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Утечка памяти ADODB
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:50
    #40006807
PetroNotC Sharp
PetroNotC Sharp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Утечка памяти ADODB
vinch,
Программист?
Тестирование это наша работа.
- нажми 3 клавиши и на экран монитор памяти Оси
- сделай пример в цикле вызова recordSeta 10 000 раз.
- из примера убери работу с лишними полями и вообще лишний код
- код в форуме оформляй стилем
Удачи!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.10.2020, 08:02
    #40006809
istrebitel
istrebitel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Утечка памяти ADODB
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, 11:49
    #40006871
rdb_dev
rdb_dev
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Утечка памяти ADODB
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, 14:17
    #40006949
mayton
mayton
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Утечка памяти ADODB
vinch, не забывай пользоваться тегами форматирования исходников.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / C++ [игнор отключен] [закрыт для гостей] / Утечка памяти ADODB / 10 сообщений из 10, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 267ms
Закрыть
start [/forum/topic.php?fid=57&tablet=1&tid=2017321]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 166ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 9ms
total:  267ms
x
x
Закрыть


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