Компонент OPCClient в потоке

[Gregor]

Добрый день. Помогите разобраться.
Делаю поток . в нем создаю OPCClient, затем создаю окно и запускаю цикл обработки сообщений. Но ни от сервера ни от кого либо другого в цикл сообщения не поступают. В чем может быть проблема? И может кто кинет ссылочку как между собой общаются COM объекты? по tcp или еще как то?
Вот код который запускаю после коннекта клиента к серверу

procedure COPCClient.Run;
var
  Msg: TMsg;
begin
  FHandle := AllocateHwnd(WndProc);

  while GetMessage(Msg,0,0,0) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
  if FHandle <> 0 then DeallocateHWnd(FHandle);
end;

[mss]

В чем может быть проблема?

В том что никто твоему потоку никакие сообщения не посылает.

как между собой общаются COM объекты?

По LPC и RPC.

[raxp]

вообще, у компонента OPCClient есть свой обработчик сообщений, загляните в генофонд/

[Stilet]

как между собой общаются COM объекты?

Если в потоке, то стоит перез работой с СОМ выполнить CoInitialize(0) а после отработки CoUnInitialize;

[Gregor]

Делаю так

procedure COPCClient.Execute;
begin
  CoInitialize(nil);
  FOPCClient.Connect;
  Run;
  CoUninitialize;
end;

Все равно не проходит.
В общем нужно ка кто сделать так чтобы сообщения от OPC сервера поступали в поток. Как то же он работает, когда работает в основном потоке программы. Помогите разобраться или наставить на путь истинный.

[mss]

FOPCClient.Connect;

Кто такой FOPCClient ?
Где создается и инициализируется ?
Где и как назначаются обработчики его событий, если таковые есть ?

[Gregor]

unit OPCClient;

interface

uses
  Classes, prOpcClient, Messages, Windows, ActiveX;

type
  COPCClient = class(TThread)
  private
    FOPCClient: TOpcSimpleClient;
    FHandle: HWND;
  protected
    procedure Execute; override;
    procedure WndProc(var Msg: TMessage); virtual;
    procedure Run;
  public
    constructor Create;
  end;

implementation

constructor COPCClient.Create;
var
  zOPCGroup: TOpcGroup;
begin
  inherited Create(true);
  FOPCClient := TOpcSimpleClient.Create(nil);
  zOPCGroup := FOPCClient.Groups.Add;
  zOPCGroup.UpdateRate := 1000;
  zOPCGroup.Items.Add('FormHeight');
  FOPCClient.ProgID := 'prDemo5.TDemo5.1'
end;

procedure COPCClient.Execute;
begin
  CoInitializeEx (nil);
  FOPCClient.Connect;
  Run;
  CoUninitialize;
end;

procedure COPCClient.Run;
var
  Msg: TMsg;
begin
  FHandle := AllocateHwnd(WndProc);
  while GetMessage(Msg,0,0,0) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
  if FHandle <> 0 then DeallocateHWnd(FHandle);
end;

procedure COPCClient.WndProc(var Msg: TMessage);
begin

end;

end.

[mss]

А обработчик события OnDataChange кто за тебя будет назначать и обрабатывать, Пушкин ?

[Gregor]

сделал так

constructor COPCClient.Create;
var
  zOPCGroup: TOpcGroup;
begin
  inherited Create(true);
  FOPCClient := TOpcSimpleClient.Create(nil);
  zOPCGroup := FOPCClient.Groups.Add;
  zOPCGroup.OnDataChange := DataChange;//!!!
  zOPCGroup.UpdateRate := 1000;
  zOPCGroup.Items.Add('FormHeight');
  FOPCClient.ProgID := 'prDemo5.TDemo5.1'
end;

procedure COPCClient.DataChange(Sender: TOpcGroup; ItemIndex: Integer;
  const NewValue: Variant; NewQuality: Word; NewTimestamp: TDateTime);
begin
//
end;

но все равно не вызывается DataChange. он встает на GetMessage в петле сообщений и все. Извиняюсь за наглость. если у вас работает, вы бы не смогли привести пример?

Причем connect срабатывает и на сервере я вижу группу и параметр, но вот событие OnDataChange не наступает!

[Gregor]

Спасибо разобрался. дело было не в потоке. забыл выставить группе свойство Active := true.