Delphi用SQLDMO实现带进度条的SQL Server数据库备份

   1.首先，要导入对象库定义：

    打开Delphi,Project菜单->Import Type Library...,在列表框中找到"Microsoft SQLDMO Object
Library”,然后生成一个Unit单元文件，默认为SQLDMO_TLB,然后在备份窗体中加入引用：SQLDMO_TLB,还有ComObj。

   2.在窗体中加入一个进度条，将总进度设置为100（或在代码中设置）。

   3.定义接口：

 

type
  TBackupSink=class(TInterfacedobject,backupsink)//实现接口
  function PercentComplete(const Message: WideString; Percent: Integer): HResult; stdcall;
  function NextMedia(const Message: WideString): HResult; stdcall;
  function Complete(const Message: WideString): HResult; stdcall;

 

 4.实现

 

function TBackupSink.PercentComplete(const Message: WideString; Percent: Integer):HResult;
begin
  frmBackupDatabase.prgCompress.PartsComplete:=percent;
  result:=0;
  frmBackupDatabase.Refresh;
  Forms.Application.ProcessMessages;
end;

function TBackupSink.NextMedia(const Message: WideString):HResult;
begin
  result:=-1;
end;

function TBackupSink.Complete(const Message: WideString):HResult;
begin
  result:=1;
  messageBox(Forms.Application.handle,'成功备份数据！','提示信息',MB_ICONINFORMATION);
end;

 

5.下面是备份按钮的操作

 

注意，引入的SQLDMO_TLB单元有许多类型定义和Delpgi冲突，如Application，建议在原Delphi的类型前加上限定，如Forms.Application。

procedure TfrmBackupDatabase.BackupDatabaseBySQLDMO;
var
  MySQLServer:SQLServer;
  MyBackUp:BackUp2;
  MyBackSink:TBackupSink;
  FInterfaceConnection:integer;
  BS:TBackupSink;
begin
  prgCompress.TotalParts:=100;
  BS:=TBackupSink.Create;
  MySQLServer:=coSQLServer.Create;
  MyBackUp:=coBackUp2.Create;
  MySQLServer.Connect(DBServer,DBUser,DBPassword);
  MyBackUp.Database:=edtDatabaseName.Text;
  MyBackUp.Initialize:=true;
  MyBackUp.PercentCompleteNotification:=1;
  MyBackUp.Action:=0;//0完整备份，1差异备份，2文件组备份，3日志备份
  MyBackUp.Files:=edtFileName.Text;
  InterfaceConnect(MyBackUp, IID_BackupSink, BS, FInterfaceConnection);//关键是这里
  MyBackUp.SQLBackup (MySQLServer);
  InterfaceDisconnect(MyBackUp, IID_BackupSink,FInterfaceConnection);//
end;

 

function TBackupSink.PercentComplete(const Message: WideString; Percent: Integer):HResult;
begin
  frmBackupDatabase.prgCompress.PartsComplete:=percent;
  result:=0;
  frmBackupDatabase.Refresh;
  Forms.Application.ProcessMessages;
end;

function TBackupSink.NextMedia(const Message: WideString):HResult;
begin
  result:=-1;
end;

function TBackupSink.Complete(const Message: WideString):HResult;
begin
  result:=1;
  messageBox(Forms.Application.handle,'成功备份数据！','提示信息',MB_ICONINFORMATION);
end;