usampledm.pas

来自「多线程调用的范例」· PAS 代码 · 共 59 行

unit uSampleDM;

interface

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

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

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

var
  dmTestDataModule: TdmTestDataModule;

implementation

{$R *.dfm}

{ TdmTestDataModule }

procedure TdmTestDataModule.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)+' Percent Completed';
        Progress:=i;
        Sleep(Random(50)+20);
      end;
  finally
  end;
end;

class function TdmTestDataModule.ModuleName: string;
begin
  Result:='TEST MODULE';
end;

initialization
  RegisterDataModule(TdmTestDataModule);
end.