usampledm2.pas

多线程调用的范例

unit uSampleDM2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uThreadedDataModule;

type
  TdmTestDataModule1 = class(TdmThreadedDataModule)
  private
    { Private declarations }
  protected
    class function ModuleName: string; override;

  public
    { Public declarations }
    procedure ModuleExecute; override;
    
  end;

var
  dmTestDataModule1: TdmTestDataModule1;

implementation

{$R *.dfm}

{ TdmTestDataModule }

procedure TdmTestDataModule1.ModuleExecute;
var
  i, j, k: integer;
  FLogKey: integer;
begin
  inherited ModuleExecute;
  try
    Min:=0;
    Max:=100;
    for i:=0 to 100 do
      begin
        if Terminated then Exit;
        StatusMessage:=IntToStr(i)+' is '+GetParamByName('Color');
        Progress:=i;
        Sleep(Random(20)+20);
      end;
  finally
  end;
end;

class function TdmTestDataModule1.ModuleName: string;
begin
  Result:='TEST MODULE2';
end;

initialization
  RegisterDataModule(TdmTestDataModule1);
end.