Обращение к переменной через поток.

[Fahman]

Собственно весь вопрос в название.... Можно ли через поток обратиться к переменной типа Boolean через поток? К компоненту например я обращаюсь так

form1.memo1.lines.add('');

А к переменной не знаю как подойти.

[northener]

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

Собственно весь вопрос в название.... Можно ли через поток обратиться к переменной типа Boolean через поток? К компоненту например я обращаюсь так

form1.memo1.lines.add('');

А к переменной не знаю как подойти.

А к переменной точно так же. Указывая имя её "хозяина". "Хозяином" переменной в Дельфи является либо класс (в т.ч. класс потока), либо модуль (unit).

[kta87]

Описывать переменную нужно для потока и синхронизировать. Позже, не сегодня, пример скину, пока не могу, удалил ide, качаю новую...

[grominfo]

Как вариант объяви переменную как часть класса потока и присваивай ей значение при создании потока

[Vapaamies]

Можно еще прочитать в справке Delphi про ключевое слово threadvar.

[Fahman]

С созданием потока проблем нет и подключил все норм, объясню всю суть...
На форме Spagecontrol стоит и в нем 3 вкладки на событие

procedure TForm1.sPageControl1Change(Sender: TObject);

У меня запускается 1 поток который выглядит так

procedure potok1.Execute;
begin
if Form1.sPageControl1.ActivePageIndex=0 then
 if Form1.ct=False then
 begin
     Form1.navi.navigate('первый сайт');
     Form1.ct:=True;
 end;
  if Form1.sPageControl1.ActivePageIndex=1 then
 if Form1.pt=False then
 begin
     Form1.WebBrowser1.navigate('второй сайт');
     Form1.pt:=True;
 end;
  if Form1.sPageControl1.ActivePageIndex=2 then
 if Form1.ec=False then
 begin
     Form1.WebBrowser2.navigate(третий сайт);
     Form1.ec:=True;
 end;
end;

На форме есть 3 переменной

ct
pt
ec

Тип у них 1 Boolean
Зачем они?
На каждой из вкладок стоит по браузеру и на форм крейт поставил так

ct:=False;
pt2:=False;
ec2:=false;

при открытии формы браузеры пусты? пусты и переменные равны false и на потоке проверяет если Form1.sPageControl1.ActivePageIndex =0 то грузим страницу и переменная ровняется тру все чтоб потом когда я перелистывал странички у меня по 100500 раз не грузилась страница в браузер, достаточно одной загрузки данные динамические и обновляются на страничке аяксом...
P.S.
Просто когда браузер грузит страницу и я например хочу свернуть форму она у меня подвисает вот я и создал для загрузки отдельный поток

[саша40]

Так же как и с компонентами, можно обращаться к переменным, но только помни: Обратится к переменной в один и тот же момент времени может только 1 поток, иначе словишь Access Violition.

[Fahman]

Сообщение от саша40

Так же как и с компонентами, можно обращаться к переменным, но только помни: Обратится к переменной в один и тот же момент времени может только 1 поток, иначе словишь Access Violition.

Ну у меня 1 поток обращается только к трем переменным, и почему выходит ошибка? или я не так обращаюсь?

[grominfo]

Как объявлены переменные? Объявите их в секции public формы и обращайтесь к ним через form


public
FC:boolean;

..............

Form1.FC:=true

[Fahman]

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

Как объявлены переменные? Объявите их в секции public формы и обращайтесь к ним через form


public
FC:boolean;

..............

Form1.FC:=true

Помогло, а не подскажете почему вылетает ошибка при повторном запуске потока? точнее как я понял мне надо проверить если поток запущен то перезапустить его ото выдает ошибку вот вызов потока только и задал приоритет

procedure TForm1.sPageControl1Change(Sender: TObject);
begin

  potok1.Create(false);
  potok1.Priority:=tpNormal;


end;