Delphi 7 idhttpServer и TMemoryStream

[stasones]

Использую в своей программе компонент idhhtpserver. В событии CommandGet для загрузки изображений прописаны такие строки:

AResponseInfo.ContentType:='image/jpeg';
TimerMonitoring.Enabled:=false;
        if cams[strtoint(ARequestInfo.Document[6])-1].StreamImg<>nil then
           AResponseInfo.ContentStream:=cams[strtoint(ARequestInfo.Document[6])-1].StreamImg;
TimerMonitoring.Enabled:=true;

Смысл в том, что cams это массив record-ов, у которого есть переменная StreamImg типа TMemoryStream, хранящая последнее изображение в jpeg формате. В таймере может начаться перезапись StreamImg, поэтому я его отключаю на время выполнения операции.

Проблема в том, что при частом обновлении страницы(т.е фактически обращению к StreamImg) вылетает Access Violation без указания на строку ошибки. При обновлении не чаще, чем раз в пару секунд ошибок не возникает.

В чем может быть проблема и как ее устранить?

[veniside]

обернуть событие таймера и код выше одной критической секцией
дизейблить таймер бессмысленно

[Человек_Борща]

а с чего вы взяли, что

ARequestInfo.Document[6]

существует? Включите отладчик и смотрите что просходит а лучше, пишите в лог.

[stasones]

Сообщение от Человек_Борща

а с чего вы взяли, что

ARequestInfo.Document[6]

существует? Включите отладчик и смотрите что просходит а лучше, пишите в лог.

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

...
else if pos('jpg', ARequestInfo.Document)<>0 then
  begin
  aresponseinfo.ContentType:='image/jpeg';
  if pos('temp', ARequestInfo.Document)<>0 then
       begin
       if (runtime>=15) and (strtoint(ARequestInfo.Document[6])-1>=0)
                                  and ((strtoint(ARequestInfo.Document[6])<=CamsCount))then
        begin

        TimerMonitoring.Enabled:=false;
        if cams[strtoint(ARequestInfo.Document[6])-1].StreamImg<>nil then
           AResponseInfo.ContentStream:=cams[strtoint(ARequestInfo.Document[6])-1].StreamImg;
        TimerMonitoring.Enabled:=true;
        end;
       end
...

А в отладчике естественно ловил этот момент. При возникновении этой ошибки весь код в обработчике выполняется без ошибок, а за обработчиком, видимо при отправке, уже вылазит Access Violation.

upd
При полной остановке таймера, ничего не изменилось.
Как работаю со стримом в таймере:

...
   jpg1:= TJPEGImage.Create;
   jpg2:= TJPEGImage.Create;
   jpg1.Assign(Image1.Picture.Bitmap);
   jpg2.Assign(Image2.Picture.Bitmap);
   stream:=TMemoryStream.Create;
   jpg1.SaveToStream(stream);
   size1:=stream.Size;
   stream.Free;
   stream:=TMemoryStream.Create;
   jpg2.SaveToStream(stream);
   size2:=stream.Size;
   jpg1.Free;
   cams[i].StreamImg:=TMemoryStream.Create;
   jpg2.SaveToStream(cams[i].StreamImg);
   ...