IAsyncResult?
var
Requests: array of IAsyncResult; // global var!
. . .
function ...
begin
...
try
try
try
for ...
begin
...
SetLength(Requests, Length(Requests) + 1);
Requests[High(Requests)] := MyHTTPClient.BeginGet(...);
...
end;
end;
end;
end; // <-- исключения вот тут, на выходе!
WaitForFinishAllRequests;
SetLength(Requests, 0);
end;
И тут вылетают исключения! Что может быть не так? Ощущение, что IAsyncResult'ы помирают раньше срока.
Если разместить WaitForFinishAllRequests на уровень глубже (т.е. внутрь другого try-блока, выше), тогда всё ок, ошибок нет.
P.S. С массивом Requests на самом деле всё хитрее устроено (чтоб он не разрастался), но даже такой тупой/простой такой вариант тоже валится.
может быть тебе на ттаски перейти? там это всё из коробки должно работать
что у тебя в коде написано
Так, а с этим-то что не так?
я так сходу не скажу. надо изучать. для того что бы не гадать когда разрушение идёт, можно (как уже писали) поставить бряки на addref/release и проверить как там что и когда происходит небольшая статья по таскам, если вдруг заинтересует http://www.proghouse.ru/programming/36-delphi-xe7-ppl
Да, через таски всё работает. Дичь какая-то с асинхом. А мне обязательно закидывать ITask'и в массив или можно пустить в свободное плавание и ничего с ними не будет. Т.е. просто написать TTask.Create(MyProc).Start; и забыть.
Обсуждают сегодня