Потоки, VCL и сеть

[palm]

type
  TNewThread = class(TThread)
  private
    zapros:string;
    stroka:array[1..5] of integer;
    Http  : TidHttp;
    { Private declarations }

  protected
    procedure Execute; override;
    procedure Memo1;
    procedure Memo2;
  end;
...

var
   Form7: TForm7;
   NewThread: TNewThread;
   
procedure TNewThread.Memo1;
begin
 form7.memo2.Lines.Append(form7.combobox1.Items[form7.combobox1.ItemIndex]+inttostr(stroka[(form7.combobox1.ItemIndex+1)]));
end;
procedure TNewThread.Memo2;
begin
form7.memo1.Lines.append(form7.combobox1.Items[form7.combobox1.ItemIndex]+':'+ pars('<y_ok>',zapros,'</y_ok>'));
end;

procedure TNewThread.Execute;

begin
  form7.Button1.Enabled:=false;
  form7.edit1.Text:='abc';
  form7.edit2.Text:='def';
    try
   Http := TidHTTP.Create();
 
    Data := TStringList.Create;
    Data.Add('id='+inttostr(form7.combobox1.ItemIndex+1));
    Data.Add('login='+form7.edit1.Text);
    Data.Add('password='+form7.edit2.Text);
    zapros :=  Http.Post('http://abc.ru',Data);
    http.Disconnect;  //???

 if pars('<status>', zapros,'</status>')='1' then
     begin
 stroka[(form7.combobox1.ItemIndex+1)]:=stroka[(form7.combobox1.ItemIndex+1)]+1;
     Synchronize(Memo1);
     end;
     Synchronize(Memo2);
  
except
end;

В коде все не существенное убрал.Ну и в форме просто поток вызывается и все.
Вроде бы в не главном потоке не очень корректно обращ-я к элементам формы, наверно поэтому замечал у себя что в memo главной формы выво-я не вся обработанная информация.
Я вот и попробовал(не знаю так это делать или нет) создать TNewThread.Memo1 и TNewThread.Memo2 и синхронизировать главной и дочерний потоки. Скажите пожалуйста это так или нет делается?
Как скажем быть с stroka[(form7.combobox1.ItemIndex+1)]:=stroka[(form7.combobox1.ItemIndex+1)]+1;

Тоже создавать процедуру и синх-ть с главным потоком?
А если на форме очень много элементов (memo combobox label и тд)?
Если скажем 20 компонентов label не писать же для каждой процедуру и синхронизацию?

Заранее (если кто что понял в моей писание ) ) благодарен за ответ

[evg_m]

Если скажем 20 компонентов label не писать же для каждой процедуру и синхронизацию?

можно к примеру все записать в одной процедурею

procedure Tthread.showMsg;
begin
//переменная statemsg вычисляется вне процедуры синхронизации
  case statemsg of
  1: memo1.lines.add('msg1');
  2: memo2.lines.add('msg2');
  3: memo3.lines.add('msg3');
  else memoX.lines.add('что делаю, что творю?');
  emd;
end;

либо тоже самое написать в событии компонента TapplicationEvent
а в потоке использовать PostMessage.
почитайте

[palm]

evg_m
Да я читал, все равно скажем не очень понятно)
Вот к примеру
Data.Add('password='+form7.edit2.Te xt);

Как эти строки корректно записать в потоке?

Ну и строка Data.Add('password='+form7.edit2.Te xt); честно совсем не могу понять как корректно в потоке добавить в стринглист значение компонента(в данном случае edit2.text)

// вот тут как я понял из вашего примера можно примерно так
statemsg:=1;
Synchronize(showMsg);
...
statemsg:=3;
Synchronize(showMsg);
Data.Add('password='+edit);
if pars('<status>', zapros,'</status>')='1' then
begin
statemsg:=2;
Synchronize(showMsg);
end;

procedure Tthread.showMsg;
begin
//переменная statemsg вычисляется вне процедуры синхронизации
case statemsg of
1: begin
form7.Button1.Enabled:=false;
form7.edit1.Text:='abc';
form7.edit2.Text:='def';
end;
2: begin stroka[(form7.combobox1.ItemIndex+1)]:=stroka[(form7.combobox1.ItemIndex+1)]+1;
form7.memo2.Lines.Append(form7.comb obox1.Items[form7.combobox1.ItemIndex]+inttostr(stroka[(form7.combobox1.ItemIndex+1)]));
end;
3:edit:=form7.edit2.Text; end;
else memoX.lines.add('что делаю, что творю?');
end;
end;
Эта конструкция правильная? Если я все правильно понял можно скажем завести переенную statemsg, варировать в зависимости от того что мы делаем ее значениями и когда нужно к компонентам формы обратится делаем Synchronize(showMsg); и в процедуре в зависимости от того что нам надо уже идет обращение к компонентам формы или скажем вычисление какого-то значения и передача его в наш поток.

[evg_m]

Эта конструкция правильная?

в общем все правильно.

Если я все правильно понял можно скажем завести переенную statemsg, варировать в зависимости от того что мы делаем ее значениями и когда нужно к компонентам формы обратится делаем Synchronize(showMsg);

в процедуре synchnize мы вправе обратиться к любым данным потока в том числе и

if pars('<status>', zapros,'</status>')='1' then
begin
statemsg:=2;

в этом случае даже специальная переменная будет не нужна.

if pars('<status>', zapros,'</status>')='1' then
begin
form7.Button1.Enabled:=false;
form7.edit1.Text:='abc';

но можно и использовать для облегчения самой процедуры.

и в процедуре в зависимости от того что нам надо уже идет обращение к компонентам формы или скажем вычисление какого-то значения и передача его в наш поток.

обычно достаточно просто считать нужные данные а он ПОТОМ уже сам все вычислит. Зачем нагружать основной поток вычислениями, если с этой задачей справится и сам рабочий поток.
Но помните любой вызов Synchronize останавливает текущий поток до окончания работы процедуры указанной в параметре.

[palm]

Спасибо, понятно в принципе все.

А вот скажем такая ситуация:
Имее форму на ней компоненты edit и button. Допустим по нажатию на кнопку мы просто начинаем считаем от 1 до 100 ждем чего-то и записывать значение в edit.
Вот решили мы это с помощью потока сделать. Мы на 100% уверены что в edit кроме нашего значения ничего не будет записываться.

Сделали мы так:
procedure Tthread.potok;
begin
case statemsg of
1: edit1.text:=inttostr(i);
end;

procedure TNewThread.Execute;
begin
for i:=1 to 100 do
begin
statemsg:=1;
Synchronize(potok);
sleep(10000);
end;
end;

А могли так:
procedure TNewThread.Execute;
begin
for i:=1 to 100 do
begin
edit1.text:=inttostr(i);
sleep(10000);
end;
end;

Что такого сверхординарного может произойти что наш 2-й вариант окажется не верным?

[veniside]

произойти может много чего, ведь Application в главном потоке продолжает получать и обрабатывать сообщения от Windows, которые, в том числе, вполне могут касаться и структур данных, связанных с edit1. Например, вашу форму с edit1 могли закрыть другим приложением, и в момент, когда ваш дополнительный поток пытается записать в него новый текст, windows запрашивает у VCL перерисовку edit1 из главного потока.