今天把以前做的项目带过来了,上午就看了一下我的项目的功能,以及细节性的东西,从中发现在还有很多不合理的地方,以及很多技术点用的不是怎么熟练。不过也有从中可以值的学习的。看了一下源吗?又看了一下其它方面的东西,是啊,我还有很多东西要学。
中午休息了一会,到了下午,看了一下注册表的有关操作, 很久时间不有了,有点忘了。了解了一下有关文件的操作。关于如何得到操作数据库的进度,也许这对于我来说今天是一个没有解决的问题。看了一下别人写的源码,是乎并不怎么理解。测试。。。。失败!哎。又过去了,回家再解决吧。以下是解决方案的源码,
先导入SQLDMO生成SQLDMO_TLB.pas文件
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,SQLDMO_TLB, StdCtrls, ComCtrls,comobj;
type
TForm3 = class(TForm)
Button1: TButton;
ProgressBar1: TProgressBar;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
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;
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
function TBackupSink.PercentComplete(const Message: WideString; Percent: Integer):HResult;
begin
Form3.ProgressBar1.Position:=percent;
result:=0;
end;
function TBackupSink.NextMedia(const Message: WideString):HResult;
begin
result:=-1;
end;
function TBackupSink.Complete(const Message: WideString):HResult;
begin
result:=1;
end;
procedure TForm3.Button1Click(Sender: TObject);
var
MySQLServer:SQLServer;
MyBackUp:BackUp2;
MyBackSink:TBackupSink;
FInterfaceConnection:integer;
BS:TBackupSink;
begin
BS:=TBackupSink.Create;
MySQLServer:=coSQLServer.Create;
MyBackUp:=coBackUp2.Create;
MySQLServer.Connect('192.169.1.10','sa','password');;
MyBackUp.Database:='DBA';
MyBackUp.Initialize:=true;
MyBackUp.PercentCompleteNotification:=1;
MyBackUp.Action:=0;//0完整备份,1差异备份,2文件组备份,3日志备份
MyBackUp.Files:='d:/dba.bak';
InterfaceConnect(MyBackUp, IID_BackupSink, BS, FInterfaceConnection);//关键是这里
MyBackUp.SQLBackup (MySQLServer);
InterfaceDisconnect(MyBackUp, IID_BackupSink,FInterfaceConnection);//
end;
end.