Обработка сообщений потоком

[Ангелина1989]

Здравствуйте! Возникла необходимость обработки сообщения WM_COPYDATA в цикле потока. В Google искала, но не нашла. Подскажите пожалуйста как реализовать обработку. Заранее благодарна.

[Luuzuk]

1) Создаете поток
2) В этом потоке запускаете процедуру обработки

procedure ProcessCopyData();
begin
  while(true) do // Это цикл
  begin
    // Вот здесь можете обрабатывать ваши сообщения.
  end;  
end;

3) Плохо искали.
http://pro.dtn.ru/delphi-net/1-obmen.html
http://www.firststeps.ru/mfc/winapi/win/r.php?126

[Ангелина1989]

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

1) Создаете поток
2) В этом потоке запускаете процедуру обработки

procedure ProcessCopyData();
begin
  while(true) do // Это цикл
  begin
    // Вот здесь можете обрабатывать ваши сообщения.
  end;  
end;

3) Плохо искали.
http://pro.dtn.ru/delphi-net/1-obmen.html
http://www.firststeps.ru/mfc/winapi/win/r.php?126

Спасибо, но http://pro.dtn.ru/delphi-net/1-obmen.html это я находила но эти сообщения как я понимаю получает и обрабатывает форма, а мне нужно что
б это же сообщение обрабатывал поток. У меня около 10 потоков и получать данные с другого приложения через форму появляется ошибка, а хотелось бы чтоб внешнее приложение передавало данные напрямую в поток. Вот нашла еще код, заменила сообщение на WM_COPYDATA, но он не работает как нужно

const
  WM_Answer = WM_User;

type
  TGetLogsClass = class(TThread)
  private
    FMsgWindow : HWND;
    procedure WndProc(var Message: TMessage);
    procedure WMAnswer(var Msg: TMessage); message WM_Answer;
  protected
    procedure Execute; override;
  public
    property MsgWindow: HWND read FMsgWindow;
  end;

implementation

procedure TGetLogsClass.Execute;
var
  msg: TMsg;
begin
  FMsgWindow := Classes.AllocateHWnd(WndProc); // создаем окно которое будет получать сообшения
  try
    while not Terminated do begin
      if PeekMessage(msg, 0, 0, 0, PM_REMOVE) then begin
        DispatchMessage(msg); // отдаем вызов нашему окну
      end;
    end;
  finally
    Classes.DeallocateHWnd(FMsgWindow);
  end;
end;

procedure TGetLogsClass.WMAnswer(var Msg: TMessage);
begin
end;

procedure TGetLogsClass.WndProc(var Message: TMessage);
begin
  Dispatch(Message); // здесь VCL сделает все необходимое для вызова TGetLogsClass.WMAnswer
  if (Message.Msg < WM_USER) then
    DefWindowProc(FMsgWindow, Message.Msg, Message.WParam, Message.LParam); // думаю надо :)
end;

[3D Hunter]

Поток никогда не мог получать и обрабатывать сообщения. Этим занимается форма. В ней есть метод WndProc(), в котором описаны все необходимые типы сообщения Windows. Чтобы поток обрабатывал сообщения, вы можете поступить так:
1. в потоке создать метод с параметром, который получается из сообщения.
2. в главной форме описать событийную процедуру для обработки вашего сообщения и в ней вызывать метод потока с передачей полученных данных.