Добрый день, друзья! Столкнулся со следующей проблемой: получаю запросы от клиента, вывожу их в Memo. Периодически выскакивает AV, связанная с отрисовкой мемо. Код получения:
procedure TForm1.IdHTTPServerCommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
AResponseInfo.ContentText := 'Response';
MemoRequest.BeginUpdate;
MemoRequest.Text := ARequestInfo.RawHTTPCommand;
MemoRequest.Repaint;
MemoRequest.EndUpdate;
end;
По сути, интересует только строчка MemoRequest.Text := ARequestInfo.RawHTTPCommand;
Все BeginUpdate-EndUpdate, Repaint добавлены в поисках решения, но они не спасают.
Как я понимаю, получение запроса происходит в отдельном потоке, в нем же я и пытаюсь обратится к мемо и вылетает AV. Вопрос в том, как это обойти? Нужна ли синхронизация потоков?