Clarion - SQLite
Добавлено: 28 Июнь 2017, 10:10
Добрый день!
Приложение на С10 база SQLite 3.
Вот такой код. Переносит данные из MSSQL в SQLite для дальнейшей отправки на сайт.
В результате выполнения происходит стремительное увеличение памяти выделенной под приложение.
Размер выгруженного файла 24 м, а память увеличивается на 240.
В общем DISPOSE(STT_) не срабатывает.
Экспорт запускается по расписанию каждые 3 часа. К вечеру память составляет 2G.
Может кто сталкивался.
Приложение на С10 база SQLite 3.
Вот такой код. Переносит данные из MSSQL в SQLite для дальнейшей отправки на сайт.
В результате выполнения происходит стремительное увеличение памяти выделенной под приложение.
Размер выгруженного файла 24 м, а память увеличивается на 240.
В общем DISPOSE(STT_) не срабатывает.
Экспорт запускается по расписанию каждые 3 часа. К вечеру память составляет 2G.
Может кто сталкивался.
Код: Выделить всё
Stt_&=NEW(File)
Stt_{PROP:Driver}='MSSQL'
Stt_{PROP:Owner}=GLO:ConnectionString
UnfixFormat(STT_)
STT_{PROP:SQL}='CALL spWebExport(8)'
FixFormat(Stt_)
if ERRORCODE()
AmountErr=FILEERRORCODE()
ThisWindow.AddMes(FILEERROR()&' FIX',2,1)
UnfixFormat(STT_)
DISPOSE(STT_)
return AmountErr
END
WebPresence{PROP:SQL}='pragma journal_mode=off;'
WebPresence{PROP:Logout}=1
I=0
LOOP
NEXT(Stt_)
if errorcode() THEN
break
END
I+=1
AGroup&=Stt_{prop:Record}
WPS:ItemId=WHAT(AGroup,1)
WPS:StoreId=WHAT(AGroup,2)
WPS:InStock=WHAT(AGroup,3)
WPS:PriceWVat=WHAT(AGroup,4)
WPS:ItemAmount=WHAT(AGroup,5)
IF Access:WebPresence.TryInsert()<>Level:Benign
I-=1
BREAK
END
END
CLOSE(Stt_)
COMMIT
!WebCatalog{PROP:SQL}='COMMIT;'
ThisWindow.AddMes('Наличие '&I,0,1)
UnfixFormat(STT_)
DISPOSE(STT_)
