一个很简单的多线程问题，呵呵。

Question

我用多线程做了个串口通讯的东东，用tccom做的。不知怎么搞的，运行的时候特慢，好象很耗内存，高手请指点指点啊。
主form代码：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, TComm1,Unit2;type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    rdcom: TRadioGroup;
    Button2: TButton;
    Memo2: TMemo;
    Button3: TButton;
    Comm1: TComm;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
implementation{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
case rdcom.ItemIndex of   
  0: comm1.CommPort:=pncom1;
  1: comm1.CommPort:=pncom2;end;    
comm1.portopen:=true;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
comm1.OutputString(memo1.text);
end;procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
readthread:=treadthread.create(false);
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
readthread.Free;
end;end.线程的代码：
unit Unit2;interfaceuses
  Classes;type
  treadthread = class(TThread)
  private
    { Private declarations }
    procedure readport;
  protected
    procedure Execute; override;
  end;
var
  readthread:treadthread;implementationuses unit1;procedure treadthread.Execute;
begin
  while not terminated do
  begin
  synchronize(readport);
  end;    
end;procedure treadthread.readport;
var
temp:string;
begin
temp:=form1.Comm1.Input;
form1.Memo2.Text:=temp;
end;
end.

Answer 1

你应该把readport和writeport写到线程 去而不是用同步让主线程处理。串口通讯主要就是等待读写，这会让线程进过假死锁状况。

Answer 2

你应该把form1.Comm1的TComm在线程中创建。

Answer 3

unit Unit2;interfaceuses
  Classes, TComm1;type
  treadthread = class(TThread)
  private
    { Private declarations }
    procedure readport;
    temp:string;
    Comm1 : TComm;
  protected
    procedure Execute; override;
  end;
var
  readthread:treadthread;implementationuses unit1;procedure treadthread.Execute;
begin
  Comm1 := TComm.Create(nil);
  try
    while not terminated do
    begin
      temp := Comm1.Input;  
      synchronize(readport);
    end;   
  finally
    Comm1.Free;
  end;
end;procedure treadthread.readport;
begin
form1.Memo2.Text:=temp;
end;
end.

Answer 4

那在主form里要不要再加tcomm组件？

Answer 5

我是efeng（桑桑），请问在主form里要不要加入tcomm组件，如果加入的话，我试了一下，好象不能通讯啊。如果不加入的话，那在线程(unit2)里，肯定要设置comm1了，比如：选择通讯端口，打开通讯端口。请指点一下，我刚学线程，很多不懂啊。

Answer 6

我就用的一般优先级，而且我要在第一时间得到com口的信息。