Освобождение памяти вложенных массивов

@Aleklon · Регистрация: 09.11.2012

Студворк — интернет-сервис помощи студентам

Добрый день.

Есть код вида:

Delphi
1
2
3
4
5
6
7
type a1 = record
  str: array of string;
  ........
end;
 
var
  a: array of a1;

Чтобы освободить память мне достаточно ввести SetLength(a, 0) или надо сначала пройтись по массиву и освободить в него вложенные?

@Nanotentacle · 19.06.2019, 08:17

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

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

Так там человек кнопочку жмет или что происходит?

@Aleklon · 19.06.2019, 08:20 **[ТС]**

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

Так там человек кнопочку жмет или что происходит?

Не, сама программа все жмет и вставляет. Если хотите, я могу в личку скинуть профиль на фл и там будет понятно что я пишу))

@krapotkin · 19.06.2019, 08:41

ну же емое
зачем программа куда-то жмет?
просто вызывать нужную процедуру она не в силах???

@Nanotentacle · 19.06.2019, 08:42

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

Не, сама программа все жмет и вставляет. Если хотите, я могу в личку скинуть профиль на фл и там будет понятно что я пишу))

Да нет, мне в личку никто писать не может по объективным причинам. Просто мне кажется, что использование TWebBrowser все же не оптимально, но если работает и не вызывает проблем, то это ладно... А с утечками у TWebBrowser можно попробовать решать путем пересоздания компонента после очередной итерации цикла, или определить какие-то отправные точки, после которых его пересоздавать. Имхо, убивать приложение и запускать новое ради выгрузки - это костыль, который можно обойти.

@Aleklon · 19.06.2019, 08:57 **[ТС]**

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

ну же емое
зачем программа куда-то жмет?
просто вызывать нужную процедуру она не в силах???

В смысле зачем? Заказчику надо собрать, например, текущие ставки на спортивные мероприятия. Сайт использует динамические куки для этого, без них не отдает данные. Или надо залогиниться. Прога открывает сайт в емембед (это кто не знает, немножко улучшенная версия twebbrowser), вставляет логин-пароль и логинится, дальше снимает содержимое страниц

Добавлено через 47 секунд

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

Да нет, мне в личку никто писать не может по объективным причинам. Просто мне кажется, что использование TWebBrowser все же не оптимально, но если работает и не вызывает проблем, то это ладно... А с утечками у TWebBrowser можно попробовать решать путем пересоздания компонента после очередной итерации цикла, или определить какие-то отправные точки, после которых его пересоздавать. Имхо, убивать приложение и запускать новое ради выгрузки - это костыль, который можно обойти.

ну так они 15 лет не могут утечку убрать. Я все схемы перепробовал, осталась одна с правкой самого компонента. Иначе ты просто после десятка обновлений страницы сожрешь всю память. Пересоздание компонента не работает (мне кажется кто-то думает что я просто так глупую тему создал), память не освобождается, я это пробовал

Добавлено через 2 минуты
Да и если возвращаться к теме топика, то :=nil просто присваивает указателю ноль, а не память освобождает, если компилятор, конечно, не заточен

@krapotkin · 19.06.2019, 08:58

ах, вон что, я думал, это тот случай, когда программа сама в себе кнопки нажимает
тут на форуме этого добра полно

Delphi
1
2
3
4
procedure Button2Click(Sender);
begin
  Button1.Click();
end;

@Aleklon · 19.06.2019, 09:10 **[ТС]**

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

ах, вон что, я думал, это тот случай, когда программа сама в себе кнопки нажимает
тут на форуме этого добра полно

Delphi
1
2
3
4
procedure Button2Click(Sender);
begin
  Button1.Click();
end;

Ну справедливости для, что тут не так? Я бы еще в try-except обернул вызов, а так в принципе стандартная ситуация, когда влом отдельно функцию выносить

@krapotkin · 19.06.2019, 09:28

тут не так главный принцип - интерфейс должен отделяться от реализации
я привел совсем рафинированный пример, обычно где-то это на ComboBox1Change() вызывается в конце к-нить Button1.Click()
а если потом button1 исчезнет с формы, да и форма ...
лень расписывать, потому что если влом - то и разговора нет - пишите как хотите
но я таких антипримеров повидал ух..
особенно при командной разработке и длительной жизни продукта вас просто проклянут...

@Aleklon · 19.06.2019, 09:36 **[ТС]**

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

тут не так главный принцип - интерфейс должен отделяться от реализации
я привел совсем рафинированный пример, обычно где-то это на ComboBox1Change() вызывается в конце к-нить Button1.Click()
а если потом button1 исчезнет с формы, да и форма ...
лень расписывать, потому что если влом - то и разговора нет - пишите как хотите
но я таких антипримеров повидал ух..
особенно при командной разработке и длительной жизни продукта вас просто проклянут...

Ну у меня, например, часто идет задача дополнить программу, я тогда ставлю кнопку, где устанавливаю параметры и жму основную, это самый простой и быстрый способ реализации. Но я понял что ты хотел сказать)

Добавлено через 2 минуты
"особенно при командной разработке и длительной жизни продукта вас просто проклянут"
еще ни разу не видел командных разработок на дельфи (ну кроме прога-скрипт, это не в счет))

@Nanotentacle · 19.06.2019, 09:40

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

Пересоздание компонента не работает (мне кажется кто-то думает что я просто так глупую тему создал), память не освобождается, я это пробовал

ReportMemoryLeaksOnShutdown и посмотреть, что в памяти повисает. Если копать компонент, то без этой информации даже начинать не стоит.

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

Да и если возвращаться к теме топика, то :=nil просто присваивает указателю ноль, а не память освобождает, если компилятор, конечно, не заточен

Для объектов это противопоказано. Только Free, и потом уже := nil, либо просто FreeAndNil.

@Aleklon · 19.06.2019, 09:54 **[ТС]**

"ReportMemoryLeaksOnShutdown" - можешь немного подробнее рассказать что это за штука, где взять и как использовать?

"Для объектов это противопоказано. Только Free, и потом уже := nil, либо просто FreeAndNil."
у массивов этого нет, а у объектов то понятное дело. Тема про вложенные динамические массивы

@Nanotentacle · 19.06.2019, 10:00

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

"ReportMemoryLeaksOnShutdown" - можешь немного подробнее рассказать что это за штука, где взять и как использовать?

Интернет подскажет быстрее (если речь про полное понимание), если вкратце, то в основном модуле программы пишем

Delphi
1
2
initialization
ReportMemoryLeaksOnShutdown := true;

и наслаждаемся простыней с указанием классов и размеров утекшей памяти после корректного завершения приложения. Для современных Delphi это решение из коробки, для седьмой потребует допиливания в виде установки FastMM.

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

"Для объектов это противопоказано. Только Free, и потом уже := nil, либо просто FreeAndNil."
у массивов этого нет, а у объектов то понятное дело. Тема про вложенные динамические массивы

так для массива присвоение nil вполне себе может отрабатывать корректно. Не проверял, конечно, потому что мне setlength ближе, но уверенно заявлять, что такая операция приведет к утечке памяти не могу.

@Aleklon · 19.06.2019, 10:08 **[ТС]**

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

Интернет подскажет быстрее (если речь про полное понимание), если вкратце, то в основном модуле программы пишем

Delphi
1
2
initialization
ReportMemoryLeaksOnShutdown := true;

и наслаждаемся простыней с указанием классов и размеров утекшей памяти после корректного завершения приложения. Для современных Delphi это решение из коробки, для седьмой потребует допиливания в виде установки FastMM.

так для массива присвоение nil вполне себе может отрабатывать корректно. Не проверял, конечно, потому что мне setlength ближе, но уверенно заявлять, что такая операция приведет к утечке памяти не могу.

я не могу поверить что компилятор, если указателю nil присвоить, освобождает память. Это же бред какой-то. Мало ли что с ним ты хочешь сделать, по setlength кстати тоже читал, что данные остаются и можно к ним и дальше обращаться (но тут логично, что не нулями заполняется, но с указателем то совсем бред, куда хочешь, туда его и направляй)

@GoodWeather · 19.06.2019, 10:22

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

обходить скриптовые защиты?

Что сие обозначать?
Может, "строить модель DOM и выполнять с/на ней все JavaScript"? Тогда да, TWebBrowser проще.
В теории можно найти конкретно движок XML/DOM & JavaScript, не визуальный, но мне такого не попадалось и близко...

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

он жрет память и доходит до идиотизма

У меня как-то ни разу не жрал много. Может у вас какой-то неудачный подход?

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

"ReportMemoryLeaksOnShutdown" - можешь немного подробнее рассказать что это за штука, где взять и как использовать?

Я ж писал, лучше подключите FastMM4, настройте информирование. Статья: Блог GunSmoker-а: Ищем утечки памяти - не ругается на утечки - значит всё ОК.

А освобождение может зависеть и от версии Делфи и от самих данных/структур.
Для 100% гарантии - всё вручную (заодно сами решаете надо ли обнулять).
По факту - просто проверять через FastMM4.

@Aleklon · 19.06.2019, 10:39 **[ТС]**

"У меня как-то ни разу не жрал много. Может у вас какой-то неудачный подход?"

ну забей в яндекс twebbrowser память или memory а потом расскажи как провел лето) это старинная проблема, которая почему-то не решена, память очень быстро забивается, если ты не один раз обращаешься к сайту, а тыщу к примеру

"Я ж писал, лучше подключите FastMM4, настройте информирование."
- прочитаю, спасибо

"В теории можно найти конкретно движок XML/DOM & JavaScript, не визуальный, но мне такого не попадалось и близко..."

его и нет, я искал. есть ie и хром, больше ничего вообще нет (ну разве что можно попробовать какой-нибудь питон использовать и прогой к скрипту обращаться)

@AHBAR · 19.06.2019, 10:57

Не по теме:

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

"У меня как-то ни разу не жрал много. Может у вас какой-то неудачный подход?"

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

@Aleklon · 19.06.2019, 10:58 **[ТС]**

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

Не по теме:

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

спасибо

Flip · 19.06.2019, 21:57

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

еще ни разу не видел командных разработок на дельфи (ну кроме прога-скрипт, это не в счет))

Ну посмотрите..... и это далеко ещё не полный список.

@Aleklon · 19.06.2019, 23:26 **[ТС]**

Сообщение от Ашотик2018

Ну посмотрите..... и это далеко ещё не полный список.

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

@krapotkin · 19.06.2019, 23:43

не подскажете, почему делфи столь распространена в россии? миллионы одиночек?? )))

делфи заняла нишу АРМов, которые раньше писали на Foxpro и Clipper
почти на каждом предприятии были программы и системы на делфи
и они никогда не шли и не предполагались на массовый рынок
и сейчас RAD studio чистый Enterprise игрок
я работаю в команде и пишу на делфи ПО в огромной компании, но вы тоже его никогда не увидите в этих списках)))

но, конечно, из-за того, что никто не пишет на делфи командами, вы можете вставлять в свои программы любой овнокод)

Новые блоги и статьи Все статьи Все блоги /
[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .
попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	19.06.2019, 08:41
	ну же емое зачем программа куда-то жмет? просто вызывать нужную процедуру она не в силах??? 0

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	19.06.2019, 09:28
	тут не так главный принцип - интерфейс должен отделяться от реализации я привел совсем рафинированный пример, обычно где-то это на ComboBox1Change() вызывается в конце к-нить Button1.Click() а если потом button1 исчезнет с формы, да и форма ... лень расписывать, потому что если влом - то и разговора нет - пишите как хотите но я таких антипримеров повидал ух.. особенно при командной разработке и длительной жизни продукта вас просто проклянут... 0

@Aleklon 1 / 1 / 0 Регистрация: 09.11.2012 Сообщений: 57
	19.06.2019, 09:54 [ТС]
	"ReportMemoryLeaksOnShutdown" - можешь немного подробнее рассказать что это за штука, где взять и как использовать? "Для объектов это противопоказано. Только Free, и потом уже := nil, либо просто FreeAndNil." у массивов этого нет, а у объектов то понятное дело. Тема про вложенные динамические массивы 0

@Aleklon 1 / 1 / 0 Регистрация: 09.11.2012 Сообщений: 57
	19.06.2019, 10:39 [ТС]
	"У меня как-то ни разу не жрал много. Может у вас какой-то неудачный подход?" ну забей в яндекс twebbrowser память или memory а потом расскажи как провел лето) это старинная проблема, которая почему-то не решена, память очень быстро забивается, если ты не один раз обращаешься к сайту, а тыщу к примеру "Я ж писал, лучше подключите FastMM4, настройте информирование." - прочитаю, спасибо "В теории можно найти конкретно движок XML/DOM & JavaScript, не визуальный, но мне такого не попадалось и близко..." его и нет, я искал. есть ie и хром, больше ничего вообще нет (ну разве что можно попробовать какой-нибудь питон использовать и прогой к скрипту обращаться) 0

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	19.06.2019, 23:43
	не подскажете, почему делфи столь распространена в россии? миллионы одиночек?? ))) делфи заняла нишу АРМов, которые раньше писали на Foxpro и Clipper почти на каждом предприятии были программы и системы на делфи и они никогда не шли и не предполагались на массовый рынок и сейчас RAD studio чистый Enterprise игрок я работаю в команде и пишу на делфи ПО в огромной компании, но вы тоже его никогда не увидите в этих списках))) но, конечно, из-за того, что никто не пишет на делфи командами, вы можете вставлять в свои программы любой овнокод) 0