delphi 细节总汇

    今天把以前做的项目带过来了，上午就看了一下我的项目的功能，以及细节性的东西，从中发现在还有很多不合理的地方，以及很多技术点用的不是怎么熟练。不过也有从中可以值的学习的。看了一下源吗？又看了一下其它方面的东西，是啊，我还有很多东西要学。

    中午休息了一会，到了下午，看了一下注册表的有关操作， 很久时间不有了，有点忘了。了解了一下有关文件的操作。关于如何得到操作数据库的进度，也许这对于我来说今天是一个没有解决的问题。看了一下别人写的源码，是乎并不怎么理解。测试。。。。失败！哎。又过去了，回家再解决吧。以下是解决方案的源码，

先导入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.