DS6JIEFENG/t_main/u_mymailThread.pas

unit u_mymailThread;

interface
 
uses
  Classes;
 
type
  TMyThread = class(TThread)
    private
    FOptype: string;
    FMailQueNo: string;
    FFlag: Boolean;
    procedure SetOptype(const Value: string);
    procedure SetMailQueNo(const Value: string);
 
    procedure Myfun; // ԭ<><D4AD><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݽ<EFBFBD><DDBD><EFBFBD> TMyThread<61><64>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD>
  protected
    procedure Execute; override;
  public
    property Optype: string read FOptype write SetOptype;
    property MailQueNo: string read FMailQueNo write SetMailQueNo;
    property MyFunRetVal: Boolean read FFlag default False;
    constructor Create(b: Boolean = True);
  end;

implementation

procedure TMyThread.Myfun;
begin
  // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˲<EFBFBD><CBB2><EFBFBD>UI<55>Ĺ<EFBFBD><C4B9><EFBFBD>
  FFlag := True;
end;

constructor TMyThread.Create(b: Boolean = True);
begin
  inherited Create(b);
  Self.FreeOnTerminate := True;
end;

procedure TMyThread.Execute;
begin
  // <20>ò<EFBFBD><C3B2><EFBFBD>UI<55>Ĵ<EFBFBD><C4B4><EFBFBD><EFBFBD>Ż<EFBFBD><C5BB><EFBFBD><EFBFBD>߳<EFBFBD><DFB3><EFBFBD>ִ<EFBFBD><D6B4><EFBFBD>ѱ<EFBFBD>֤ͬ<D6A4><CDAC>
  Synchronize(Myfun);
end;

procedure TMyThread.SetMailQueNo(const Value: string);
begin
  FMailQueNo := Value;
end;

procedure TMyThread.SetOptype(const Value: string);
begin
  FOptype := Value;
end;
end.