Поток VCL компоненты

[Stilet]

Да. Принудительное.

[GunSmoker]

Принудительное.

Ты врёшь. Это установка флага.

[Stilet]

Ты врёшь.

А что же ты молчишь, любитель правды? Скажи же мудрость иннародную автору.

[IIIArtemIII]

значит пытаюсь делать так

procedure TMyThread.Execute;
begin
(memo)BD.Lines.Text:=(idhttp)HP.Get('Ссылка');
end;

все работает вот ток опять недопустимый дескриптор убираю ишибки нет вызываю через synchronize ошибки нет но все виснет как быть

[Aristarh Dark]

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

все работает вот ток опять недопустимый дескриптор убираю ишибки нет вызываю через synchronize ошибки нет но все виснет как быть

Знаки препинания расскавить, чтоб понятно было о чем речь.

[elagin]

Сообщение от Aristarh Dark

Знаки препинания расскавить, чтоб понятно было о чем речь.

т=к
да вроде и так понятно, что он написал =)

[eoln]

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

вызываю через synchronize ошибки нет но все виснет как быть

synchronize выполняется в контексте главного потока, то есть дочерний поток приостанавливается и передаёт управление главному потоку. Естественно, главный поток будет приостановлен пока не скачает то, что находится по ссылке. Если там фильм на 2 ГБ, то зависнет программа оч. как на долго. Ну а если страничка, то на несколько секунд.
Создавай динамический idhttp в потоке, там же скачивай в переменную какую-нить, а затем вызывай синхронизацию в которой будет только заполнение memo из переменной. По окончанию потока не забудь почистить память.

[IIIArtemIII]

Сообщение от Aristarh Dark

Знаки препинания расскавить, чтоб понятно было о чем речь.

Россия страна не одна есть и другие где люди говорят и учат не русский

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

synchronize выполняется в контексте главного потока, то есть дочерний поток приостанавливается и передаёт управление главному потоку. Естественно, главный поток будет приостановлен пока не скачает то, что находится по ссылке. Если там фильм на 2 ГБ, то зависнет программа оч. как на долго. Ну а если страничка, то на несколько секунд.
Создавай динамический idhttp в потоке, там же скачивай в переменную какую-нить, а затем вызывай синхронизацию в которой будет только заполнение memo из переменной. По окончанию потока не забудь почистить память.

вот это очень интересно как создать динамический компонент (может кто знает интересный мануал статью) мне нужно динамически создать 3 компонента listview memo idhttp

Все получилось нет больше недопустимый дескриптор вот ток теперь мерцает memo то есть которое я создаю динамически 5 раз создаю вот оно и 5 раз мерцает
создаю так

MMemo:=TMemo.Create(Form1);
MMemo.Parent:=Form1;
MMemo.Visible:=false;
MMemo.ScrollBars:=ssBoth;
MMemo.Left:=0;
MMemo.Top:=0;
MMemo.Width:=100;
MMemo.Height:=100;

[eoln]

5 мемов - это не 100. Можно вручную накидать (хотя случаи бывают разные). Простенький пример (на форме 5 memo и 1 button)

  TMyThread = class(TThread)
  private
    { Private declarations }
    ss, url: string;
    idhttp: Tidhttp;
    memo: TMemo;//будет указывать в какой memo на форме выводить
  protected
    constructor Create(url_name: string; memo_name: TMemo); overload;
    procedure Execute; override;
    procedure write;
  end;

var
  Form1: TForm1;
  th: array[1..5] of TMyThread; //массив потоков
  path: array[1..5] of string = ( //массив адресов
    'http://mail.ru',
    'http://yandex.ru',
    'http://rambler.ru',
    'http://programmersforum.ru',
    'http://wikipedia.org');

implementation

{$R *.dfm}

constructor TMyThread.Create(url_name: string; memo_name: TMemo);
begin
  inherited Create(false);
  url := url_name;
  memo := memo_name;
  idhttp := Tidhttp.Create;
  idhttp.HandleRedirects := true;
  idhttp.RedirectMaximum := 10;
end;

procedure TMyThread.Execute;
begin
  ss := 'start loading from ' + url;
  synchronize(write);
  ss := idhttp.Get(url);
  synchronize(write)
end;

procedure TMyThread.write;
begin
  memo.text := ss; //эта строка будет синхронизироваться с главным потоком
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  th[1] := TMyThread.Create(path[1], Memo1);
  th[2] := TMyThread.Create(path[2], Memo2);
  th[3] := TMyThread.Create(path[3], Memo3);
  th[4] := TMyThread.Create(path[4], Memo4);
  th[5] := TMyThread.Create(path[5], Memo5);
  //эти 5 строчек можно завернуть через form1.components
  //но кода от этого почти не убавится, а наглядность пострадает ))
end;

Ну и деструктор ещё дописать осталось.

[IIIArtemIII]

eoln спасибо тебе большое без помощи я бы долго выносил себе мозг все получилось