Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=413974&view=findpost&p=3787999 Tue, 15 Jan 2019 08:38:54 +0000 Поток с параметрами (вход и выход) https://forum.sources.ru/index.php?showtopic=413974&view=findpost&p=3787999 Цитата dreyqq @
Пробовал TXMLDocument создавать не в nil а на созданной для этого форме, и после выполнения убивать форму. Это работает.

Ты каким-то хаотичным тыком занимаешься. Замеры по времени, тестовые данные, реакция инструмента отслеживания утечек наконец? А то так дошаманишься до того, чтобы каждый XML создавать в отдельном процессе, лишь бы память сама очищалась]]> Fr0sT Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=413974&view=findpost&p=3787929 Mon, 14 Jan 2019 13:55:44 +0000 Поток с параметрами (вход и выход) https://forum.sources.ru/index.php?showtopic=413974&view=findpost&p=3787929 Пробовал TXMLDocument создавать не в nil а на созданной для этого форме, и после выполнения убивать форму. Это работает. Память освобождает, НО!!! Если делать это не в модуле формы, а в модуле без формы, то создать компонент на форме не выходит, ошибка при компилировании.

Добавлено
Только скорость заметно падает]]> dreyqq Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=413974&view=findpost&p=3787828 Mon, 14 Jan 2019 07:09:26 +0000 Поток с параметрами (вход и выход) https://forum.sources.ru/index.php?showtopic=413974&view=findpost&p=3787828 Для отслеживания утечек есть специальные инструменты.
Либо да, грузи 1 Мб XML в цикле на ночь и смотри, будет ли расти память. Сейчас у тебя условия за пределами разрядной сетки. Условно говоря, ты стоишь в пещере и пытаешься увидеть, как растет сталактит.]]> Fr0sT Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=413974&view=findpost&p=3787798 Sun, 13 Jan 2019 19:06:24 +0000 Поток с параметрами (вход и выход) https://forum.sources.ru/index.php?showtopic=413974&view=findpost&p=3787798 Цитата dreyqq @
После 100000 раз (а загружал xml в котором только один параметр, а мне много нужно) память программы с 12мБ до примерно 80мБ в памяти

Так это ж копейки, на уровне стартового выделения памяти. Попробуйте погонять всю ночь в бесконечном цикле - если память далее расти не будет, то никакая это не утечка, а обычная ahead-аллокация памяти "на вырост".]]> Mr.Delphist Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=413974&view=findpost&p=3787473 Thu, 10 Jan 2019 14:14:11 +0000 Поток с параметрами (вход и выход) https://forum.sources.ru/index.php?showtopic=413974&view=findpost&p=3787473 Цитата Fr0sT @

Делал
После 100000 раз (а загружал xml в котором только один параметр, а мне много нужно) память программы с 12мБ до примерно 80мБ в памяти
После каждого присвоения документа IIxmlNode память увеличивается. Пробовал и на статическом компоненте, и на созданном динамически. Как только выполнил
    var
      RootNode: IXMLNode;
    ...
    RootNode := xmll_in.DocumentElement;

Так сразу память и растёт. Если IXMLnode не использовать то всё нормально, но без этого парсить никак. Если это делать в потоке, то при убивании потока память освобождается

Добавлено
Поэтому и хочу в потоке это делать.
З.Ы. Пробовал работу с XML засунуть в библиотеку (dll) результат такой-же самый]]> dreyqq Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=413974&view=findpost&p=3787397 Wed, 09 Jan 2019 14:59:40 +0000 Поток с параметрами (вход и выход) https://forum.sources.ru/index.php?showtopic=413974&view=findpost&p=3787397 Подключи вывод инфы об утечках (ReportMemoryLeaksOnShutdown).
Сделай простейший тест (в цикле создавай документ, загружай файл, освобождай), посмотри на прирост памяти]]> Fr0sT Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=413974&view=findpost&p=3786821 Tue, 01 Jan 2019 23:41:37 +0000 Поток с параметрами (вход и выход) https://forum.sources.ru/index.php?showtopic=413974&view=findpost&p=3786821
Пробовал работу с TXMLDocument засунуть в поток.
В потоке всё нормально. Убил поток, память освободилась... Столкнулся с проблемой...

Так как запросы принимает IDHTTPServer, их может быть много и от разных клиентов.
Время обработки запроса может быть разным для каждого запроса, и если во время выполнения более длинного запроса прийдет от другого клиента более короткий запрос, то в теории если не разделять данные, тот ответ одного может попасть к другому.

В программе я такое разделял в процедуре, которая возвращает параметры
    procedure xxx(in1:string; in2:integer; var out1:string; out2:integer);
    begin
       out1:=in1;
       out2:=in2;
    end;
     
    ...
    var
    myOutStr:string;
    myOutInt:integer;
    ...
    xxx('myInSTR', 5, myOutStr, myOutInt);


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

Теперь вопрос: Как похожую процедуру реализовать но в потоке, т.е. В поток передать несколько параметров, и так-же получить из потока несколько параметров?
    synchronize(mySync) // так не подойдет

потому что запрос, который обрабатывает сервер, и ответ клиенту обрабатывается внутри одной процедуры
    procedure TForm1.IDHTTPServerCommandGet(AContext: TIdContext;
      ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
    ...

и мне нужно отправить данные на обработку в поток, и когда он закончит обработку, отправить их тому клиенту что запросил эту операцию, а не другому, что подключился тоже к серверу, и запросил свою операцию...]]> dreyqq Delphi: Общие вопросы