--- In [email protected], "vedatpala" <vedatpala@...> wrote:
>
> How the local computer on the network backup server machine I get the
> firebird database?
> You send the sample code in delphi.?
> IBDAC containing component.
> OR
> FIBPLUS containing component.
>
> gbak -v -t -user SYSDBA -password "masterkey" -y C:\backup.log
> 192.168.1.2:D:\DATA\2007\muhasebe.fdb c:\MUHASEBEnet.fbk
>
>
> server machina IP:192.168.1.2
> local machine IP:192.168.1.4
>
> GBak local computer with the command on the host computer can receive a
> backup firebird.
>
> But I can not use the same fibplus with delphi.
> But I can not use the same IBDAC with delphi.
>
------------------------------------------------------------
pFIBBackupService1.Active:=False;
pFIBBackupService1.LoginPrompt:=False;
pFIBBackupService1.Params.Clear;
pFIBBackupService1.Params.Add('user_name=' +Edituser_name.Text);
//SYSDBA=kullanıcı adı
pFIBBackupService1.Params.Add('password=' +EditPassword.Text);
//masterkey=Åifre
pFIBBackupService1.Verbose:=True;
pFIBBackupService1.Protocol := TCP;
pFIBBackupService1.ServerName := EditServerName.Text;
pFIBBackupService1.DatabaseName := EditDatabaseName.Text;
//pFIBBackupService1.BackupFile.Text := ChangeFileExt(sDatabaseName, '.FBK');
pFIBBackupService1.BackupFile.Text := EditBackupFile.Text;
pFIBBackupService1.Attach;
try
pFIBBackupService1.ServiceStart;
Memo1.Lines.Add(
'==================== Backup stared ====================');
Memo1.Clear;
Memo1.Lines.Add('*** Database file: ***');
Memo1.Lines.Add(pFIBBackupService1.DatabaseName);
Memo1.Lines.Add(' ');
Memo1.Lines.Add('*** Backup file(s): ***');
Memo1.Lines.Add(pFIBBackupService1.BackupFile.Text);
Memo1.Lines.Add(' ');
while not (pFIBBackupService1.Eof) do
Memo1.Lines.Add(pFIBBackupService1.GetNextLine);
Memo1.Lines.Add(
'==================== Backup Completed====================');
while pFIBBackupService1.IsServiceRunning do
Sleep(500);
finally
pFIBBackupService1.Detach;
end;
-----------------------------------------------------------------
