朋友的一个问题,摩托的解决方案~~大家给看看

Question

在apartment线程模型下,如何实现客户端的,多线程更新,以及分批取包
也就是客户程序的线程中如何实现动态生成的clientdataset的applyupdate & 
getnextpacket方法的调用~代码如下:(大家还有什么好方法没有?)
  tmythread=class(tthread)
  private
    mycon:TDCOMConnection;
    myclientdataset:TClientDataSet;
    source:tdatasource;
  protected
    procedure Execute;override;
  public
    shouldupdate,shoultgetnextpacket:boolean;
    constructor create(sus:boolean;s:tdatasource);
    destructor Destroy; override;
  end;
var
  Form1: TForm1;
  myt1,myt2:tmythread ;implementation{$R *.dfm}{ tmythread }constructor tmythread.create(sus: boolean; s: tdatasource);
begin
  inherited create(false);
  mycon:=TDCOMConnection.Create(nil);
  myclientdataset :=TClientDataSet.Create(nil);
  self.FreeOnTerminate :=false;
  mycon.ServerName :='Project2.xxx';
  myclientdataset.RemoteServer :=self.mycon ;
  myclientdataset.ProviderName :='datasetprovider1';
  myclientdataset.PacketRecords :=3;
  myclientdataset.FetchOnDemand :=false;
  shouldupdate :=false;
  shoultgetnextpacket :=false;
  source:=s;
end;destructor tmythread.Destroy;
begin
  if myclientdataset.Active then myclientdataset.Active :=false;
  freeandnil(myclientdataset);
  freeandnil(mycon);
  inherited;
end;procedure tmythread.Execute;
begin
  inherited;
  CoInitialize(nil);
  mycon.Connected :=true;
  myclientdataset.Active :=true;
  source.DataSet :=myclientdataset ;
   while not Terminated do
   begin
      if shouldupdate then
      begin
         myclientdataset.ApplyUpdates(0);
         shouldupdate:=false;
      end;
      if shoultgetnextpacket then
      begin
         myclientdataset.GetNextPacket;
         shoultgetnextpacket:=false;
      end;
   end;
  CoUninitialize;end;procedure TForm1.Button1Click(Sender: TObject);
begin
  myt1:=tmythread.create(false,datasource1);end;procedure TForm1.Button2Click(Sender: TObject);
begin
  myt2:=tmythread.create(false,datasource2);
end;procedure TForm1.Button3Click(Sender: TObject);
begin   myt1.shouldupdate :=true;end;procedure TForm1.Button4Click(Sender: TObject);
begin
   myt2.shoultgetnextpacket :=true;
end;

Answer 1

什么时候csdn变得这么没有人气了？

Answer 2

呵，你在线程里创建这么多组件太麻烦了吧。我的做法是新建一个DATAMODULE，把控件属性都设置好，然后在线程中创建这个DATAMODULE来用，都可以的。

Answer 3

CSDN的人都被FD吓跑了，所以比较没人气:)

Answer 4

呵呵，谢谢猛禽兄提醒～～   不过，这是个小问题，我主要是觉得，对midas接口级的操作必须放入execute里面
很不方便，不知道猛禽兄，对applyupdate之类的方法是如何调用的，线程里创建的midas
组件，如何在主线程中访问？如何设置调用时的context～

Answer 5

我不知道MOTO兄为什么会认为“对midas接口级的操作必须放入execute里面很不方便”
因为各个线程Apartment是各自独立的，当然应该在相应线程的Execute里执行，因为这里才是真正的线程内。
跨线程访问不是不行，对于COM应用来说，跨线程必须进行Marshall，麻烦不是一点两点了。

Answer 6

跨线程的com对象也必须重新编组？
只知道进程，看来真是应该好好学习，不知道的东西太多了感谢猛禽兄～

Answer 7

是跨Apartment，不过对于STA来说，就是跨线程:)