Hallo,
hier mal ein Stück aus meinem Code.
Delphi-Quellcode:
sOldCaption:= Caption;
Caption:= 'Backup läuft !';
try
with IBBackupService1 do
begin
ServerName:= Edit_Server.Text;
Params.Add('user_name='+sUserName);
Params.Add('password='+sPassword);
Active:= True;
try
Verbose:= False;
Options:= [];
DataBaseName:= Edit_DataBaseName.Text;
BackupFile.Clear;
BackupFile.Add(Edit_BackupFile.Text);
ServiceStart;
finally
Active:= False;
end;
end;
finally
Caption:= sOldCaption;
end;
Heiko