[sumbik]

Здравствуйте.

Из потока пытаюсь синхронизировать следующую процедуру.

Код:

procedure Check.ShowCookies;
var
i:integer;
begin

for i := 0 to Form1.IdCookieManager1.CookieCollection.Count-1 do
begin

Form1.sMemo2.Lines.Add(Form1.IdCookieManager1.CookieCollection[i].ServerCookie);
Unit1.CookiesMain.Add(Form1.IdCookieManager1.CookieCollection[i].ServerCookie);

end; //for

Form1.sMemo2.Lines.Add('Количество строк в кукисах = ' +
                       IntToStr(Form1.IdCookieManager1.CookieCollection.Count))
end;

На форму выводится отлично, а вот с сохранением в переменную ошибка, куда бы я ни пробовал сохранить, в любую публичную переменную Unit1 либо в переменную потока Unit3. Мне нужно сохранить кукисы куда-то, чтобы потом использовать данные в потоке позже.

[M.A.D.M.A.N.]

Используй критические секции.

[sumbik]

Каким образом ?

Попробовал заключить этот код внутри основной функции Execute, пробовал внутри синхронизируемой процедуры, та же ошибка.

[madMonia]

Сообщение от sumbik

Каким образом ?

Попробовал заключить этот код внутри основной функции Execute, пробовал внутри синхронизируемой процедуры, та же ошибка.

А что за ошибка, кстати?

[sumbik]

Cookies: TStringList;

Unit3.Cookies.Add(Form1.IdCookieManager1.CookieCol lection[i].ServerCookie);

First chance exception at $007534FF. Exception class $C0000005 with message 'access violation at 0x007534ff: read of address 0x00000000'. Process Project1.exe (18536)

[M.A.D.M.A.N.]

Ну а переменная Цоокиес то инициализирована?

[madMonia]

Сообщение от sumbik

First chance exception at $007534FF. Exception class $C0000005 with message 'access violation at 0x007534ff: read of address 0x00000000'. Process Project1.exe (18536)

А где создается объект Cookies?

[sumbik]

Эх... Спасибо, всё работает.