usampledm.~pas

多线程调用的范例

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;
//  Log.CreateLog('TST-0001', -1, 376, 1223, 1, '', 'This is a test', FLogKey);
  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(200)+20);
      end;
  finally
//    Log.CloseLog(FLogKey, 'TEST NOTES', C_CLOSE_APPEND);
  end;
end;

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

initialization
  RegisterDataModule(TdmTestDataModule);
end.