为什么我建的两个多线程,只能进一个?谢谢!!!在线等待,急!!!!

Question

hthread:=CreateThread(nil,0,@MyThreadFunc,nil,0,ThreadID);
  if hThread=0 then
    messagebox(Handle,'接收线程创建失败!',nil,MB_OK);  hThreadSend:=CreateThread(nil,0,@MyThreadSend,nil,0,ThreadIDSend);
  if hThreadSend=0 then
    messagebox(Handle,'发送线程创建失败!',nil,MB_OK);进入MyThreadFunc后就没有退出来,不能进入到MyThreadSend;同样进入到MyThreadSend后就不能进入到MyThreadFunc,请问是什么原因呢????

Answer 1

直接用TThread类吧。TGetThread=class(TThread)
  private
    { Private declarations }
    procedure DoSomeString;
  protected
    procedure Execute;override;
  public
    { Public declarations }
  end;TSendThread=class(TThread)
  private
    { Private declarations }
    procedure DoSomeString;
  protected
    procedure Execute;override;
  public
    { Public declarations }
  end;

Answer 2

procedure TSendThread.DoSomeString;
begin
  //DoSomeString
end;procedure TSendThread.Execute;
begin
  inherited;
  DoSomeString;
end;{ TGetThread }procedure TGetThread.DoSomeString;
begin
  //DoSomeString
end;procedure TGetThread.Execute;
begin
  inherited;
  DoSomeString;
end;

Answer 3

是啊，delphi的线程类也很好用的阿

Answer 4

UP    sxtdxvb(Delphi被卖，何去何从？C#转型中......)  这样写是最好的......