菜鸟搞多线程遇到问题,求助啊...

Question

type
  TThread1 = class(TThread)
  private  protected
    procedure Execute; override;
  public
    constructor create;
end;
var
  Form1: TForm1;
  stri,surl,ak:string;
  startNum:integer;
  finishNum:integer;
  i:integer=0;var
  Th1,Th2:TThread1;implementation{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  IdHTTP1.HandleRedirects:=True;
  IdHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; Maxthon)';
  IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
end;constructor Tthread1.create;
begin
inherited Create(True);
FreeOnTerminate := False;
end;procedure TThread1.Execute;
var
  t:TstringList;
begin
      stri:=inttostr(i);
      t:=TStringList.Create;
      try
          t.Add('id='+stri);
          t.Add('body='+ansitoUTF8(form1.Memo1.Text));
          form1.IdHTTP1.Post(sUrl,t);
      finally
      t.Free;
      end;
form1.Edit_sID.Text:=inttostr(i+1);
i:=i+1;if i=finishNum+1 then
  begin
  Th1.Suspend;
  Th2.Suspend;
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
i:=strtoint(Edit_sID.Text);
finishNum:=strtoint(Edit_fID.Text);
sUrl:='http://XXXX.com/leaveMSG.do';
Th1.Resume;
Th2.Resume;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
Th1.Terminate; 
Th1.Destroy;
Th2.Terminate; 
Th2.Destroy;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
Th1.Suspend;
Th1.Suspend;
end;
----------------------
自动向ID连续的用户留言,Edit_sID.Text是开始ID,Edit_fID.Text是结束ID.finishNum是strtoint(Edit_fID.Text)..
对照一个多线程的例程自己做,点Button2错误~~

Answer 1

1. 没看到Th1和Th2创建实例的代码。2. 在线程类的Execute的操作可视化对象(比如form1.IdHTTP1),需要使用线程同步的方法。3. 在线程类的Execute的最后执行
    Th1.Suspend;
    Th2.Suspend;
   有些看不懂。

Answer 2

又看了一遍例程,1.我也没看到Th1和Th2创建实例的代码。2.我这样改是不是就可以解决同步的问题了?procedure TThread1.leaveMSG;
var
  t:TstringList;
begin
      stri:=inttostr(i);
      t:=TStringList.Create;
      try
          t.Add('curpage=');
          t.Add('from=main');
          t.Add('id='+stri);
          t.Add('cc='+stri);
          t.Add('ak='+ak);
          t.Add('body='+ansitoUTF8(form1.Memo1.Text));
          form1.IdHTTP1.Post(sUrl,t);
      finally
      t.Free;
      end;
form1.Edit_sID.Text:=inttostr(i+1);
i:=i+1;
if i=finishNum+1 then
  begin
  Th1.Suspend;
  Th2.Suspend;
  end;
end;procedure TThread1.Execute;
begin
Synchronize(leaveMSG);
end;3.我是想让它在那个if条件下中止....菜鸟学程序真辛苦....~~~

Answer 3

问题1那是不是少了这个?
th1:=tThread1.Create(true);
th2:=tThread1.Create(true);