Имплементировал в серверном приложение FastScript, одна из функций должна возвращать структуру, но в виду того, что record не поддерживается фастскриптом, приходится создавать класс. Будь это клиентское приложение, особой проблемы не возникло бы, но на сервере обнаружилась неприятная ситуация: утечка памяти. Класс, созданный в коде FastScript, не освобождается, потому что является результатом функции фастскрипта, а передаётся он в код основной программы сервера.
Код в фастскрипте выглядит примерно так:
1.
2.
3.
4.
5.
6.
function OnCheckRequest(ParamIn: variant): TMyRequestResponse;
begin
Result := TMyRequestResponse.Create;
Result.ParamOut1 := 'something';
Result.ParamOut2 := True;
end;
Что я попытался реализовать в коде самого серверного приложения:
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.
/// вызываю функцию фастскрипта и получаю результат в Х виде класса TMyRequestResponse
X := TMyRequestResponse(IntegerAScript.CallFunction1(fsScript, 'OnCheckRequest', ParamsVA)));
try
/// обработка результата всякое
/// ...
/// попытался найти и освободить инициализированную переменную класса TMyRequestResponse, но безуспешно:
{
for I := 0 to Pred(fsScript.Count) do
begin
V := fsScript.Items[I];
if V is TfsClassVariable then
if TfsClassVariable(V).ClassRef.ClassName = 'TMyRequestResponse' then
begin
//if Integer(TfsClassVariable(V).ClassRef) = Integer(X) then // это никогда не происходит, видимо, в код Делфы передаётся копия класса, а не референс
begin
TfsClassVariable(V).Free;
fsScript.Remove(V); // это сделать можно, но чуть попозже получим ошибку List index out of bounds. если не освобождать переменную строчкой выше - результат тот же
end;
end;
end;
}
/// освобождаю локальную переменную, но утечку памяти это не исправляет
finally
FreeAndNil(X);
end;
Если кто может предложить правильный вариант или альтернативное решение - буду весьма благодарен.
З.Ы. Возвращать результат через глобальную переменную/объект фастскрипта - не вариант, сервер работает в асинхронном режиме.
