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;