Передать компонент в поток

[nibufep]

Доброго времени суток!
у меня есть потоки, которые выполняют один и тот же код, но заполняют разные компоненты, можно ли свести все это до 1 потока в который просто будут передавать компоненты которые нужно заполнить например memo1, memo2 ?

[evg_m]

у меня есть потоки, которые выполняют один и тот же код, но заполняют разные компоненты, можно ли свести все это до 1 потока в который просто будут передавать компоненты которые нужно заполнить например memo1, memo2 ?

конечно можно, но вопрос нужно ли???
VCL компоненты (в т.ч. Memo) НЕ предусматривают работу В Потоках БЕЗ синхронизации!!! (читай про Synchonize).
А работа потока внутри Synchronize это тоже что и работа БЕЗ потоков.

Вар 1. классический
1. объявляем поле данных потока, для хранения ссылки на компонент.
2.ПИШЕМ свой конструктор потока, в котором ПОЛУЧАЕМ необходимый ему компонент и заполняем поле (см. п.1)

constructor Create(mymemo: TMemo);

2. ПИШЕМ процедуру-метод потока БЕЗ ПАРАМЕТОВ по передаче данных из области данных потока непосредственно в компонент.

procedure SetData;

3. В методе Execute получаем данных (заполняем ПОЛЯ данных потока) и ПОСЛЕ этого в режиме синхронихации с основным потоком(общим потоком работ с компонентами) вызываем наш метод передачи данных.

Synchronize(SetData); //а это остановка(!) потока до окончания работы процедуры SetData

Вопрос ЧТО-то останется в Execute(ВНЕ Syncronize) при таком условии??? Нужно ли из-за этого оставлять поток или будет проще сделать все "напрямую"


Вар 2. Разбираемся КАК передавать сообщения различным окнам. PostMessage и ЕЕ параметры. И какие именно сообщения нужны для передачи данных в Memo.

1. В конструкторе потока указываем с каким окном будем работать. (1-ый параметр PostMessage)
2. В Execute вызываем отправку сообщения c нужными(!!!) параметрами.

[nibufep]

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

конечно можно, но вопрос нужно ли???

у меня есть допустим 6 потоков, все они заходят на один и тот же сайт, только по разным страницам (т.е. по мимо компонентов еще нужно передать в поток эту самую ссылку), парсят от туда одни и те же данные, но выводит в разные memo, удобнее и проще я думаю передавать компонент в поток, чем держать кучу одинаковых потоков...?

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

VCL компоненты (в т.ч. Memo) НЕ предусматривают работу В Потоках БЕЗ синхронизации!!! (читай про Synchonize).
А работа потока внутри Synchronize это тоже что и работа БЕЗ потоков.

ну это понятно, но в синхронизации у меня только вывод в memo, а в самом Execute уже get на сайт и парсинг

[come-on]

удобнее и проще я думаю передавать компонент в поток, чем держать кучу одинаковых потоков...?

типы (классы) для потоков делают в зависимости от их функционального назначения, а не от каких-то никому не нужных контролов. Код потока должен делать только то что ему надо, а распихивать по контрола должен гуи поток. Ваша задача правильно организовать это.

[evg_m]

парсят от туда одни и те же данные, но выводит в разные memo, удобнее и проще я думаю передавать компонент в поток,

удобнее указывать потокам ЧТО (какую процедуру) надо выполнить ПРИ наступлении некоего события.

И можем при этом попросить поток "проинфомировать" нас о завершении получения данных.

http://programmersforum.ru/showpost....7&postcount=15

ПРИНЦИП разделяй и властвуй: при изменении способа вывода (memo|....) способ получения (ПОТОКИ) остаются НЕИЗМЕННЫМИ.

http://programmersforum.ru/showpost....65&postcount=7

[min@y™]

Можно и контрол передавать. А внутри потока передавать в него (контрол) готовое содержимое внутри DoTerminate(), к примеру так:

type
  TMyFuckingThread = class(TThread)
  private
    LEdit: TCustomEdit;
  protected 
     procedure DoTerminate; override;
  public
    constructor Create(const CreateSuspended: Boolean; AEdit: TCustomEdit); reintroduce;
  end;

implementation

constructor TMyFuckingThread.Create(const CreateSuspended: Boolean; AEdit: TCustomEdit); 
begin
  LEdit:= AEdit;
  inherited Create(CreateSuspended);
end;

procedure TMyFuckingThread.DoTerminate; 
begin
  if Assigned(LEdit)
    then LEdit.Text:= <твоя шняга - результат>;
  inherited;
end;