Delphi Thread

Ö÷´°Ìå:
Delphi(Pascal) code:

procedure TfrmMain.btnResumeClick(Sender: TObject);
begin
myThread := TClientThread.Create(LeftPart(cbbServer.Text, ':'), StrToInt(RightPart(cbbServer.Text, ':')));
myThread.Resume;
mmoLog.Lines.Add('Ïß³ÌÒѼ¤»î');
end;

procedure TfrmMain.btnSuspendClick(Sender: TObject);
begin
if myThread = nil then
begin
ShowMessage('Ïß³Ìδ´´½¨!');
Exit;
end;
myThread.Suspend;
mmoLog.Lines.Add('Ïß³ÌÒѹÒÆð');
end;

procedure TfrmMain.btnStopClick(Sender: TObject);
begin
if myThread = nil then
begin
ShowMessage('Ïß³Ìδ´´½¨!');
Exit;
end;
myThread.Terminate;
myThread.WaitFor;
mmoLog.Lines.Add('Ïß³ÌÒÑÍ£Ö¹');
end;



Ï̵߳¥Ôª:
Delphi(Pascal) code:

unit uClientThread;

interface

uses
Windows, Classes, SysUtils, IdTCPClient, uString, Main, uCommon, Messages, Dialogs;

const
CM_DIAL = WM_USER + $100;
CM_HUNGUP = WM_USER + $101;

type
TClientThread = class(TThread)
private
FClient: TIdTCPClient;
FRequest: TStrings;
FResponse: TStrings;
FNotifyHandle: HWND;
// FPioneerCtrl: HWND;

procedure DoDial;
procedure DoDrop;
procedure DoUpload;
procedure DoSave;
protected
procedur