Subject | IBO Admin locks up |
---|---|
Author | eddressel |
Post date | 2009-01-07T12:41:35Z |
FB 1.5 Embedded, IBO 4.8.6, D2007, Various Windows OS
I am trying to track the details down on this, but thought I would ask
to see if anyone else is seeing this.
I automatically backup the DB on closing every week/month/etc
depending on how often the user requests. The backup gets written to a
temp directory first, after which I compress the file.
Occasionally IBO Admin locks up my application when preforming a
backup of a database. My backup code (below) is pretty simple.
The problem occurs either on the '.StartService' or '.GetNextLine'
methods (I am researching this).
Any comments on what I might look for?
Ed Dressel
lBackup := TIBOBackupService.Create(nil);
try
lBackup.DatabaseName := FSourceFileName;
lBackup.LoginPrompt := False;
lBackup.Params.Add('User_Name=' + FDBUserName);
lBackup.Params.Add('Password=' + FDBPassword);
lBackup.Protocol := cpLocal;
lBackup.ServerName := FDBServerName;
lDBBackupFileName := ExtractFileName(FSourceFileName);
lDBBackupFileName := ChangeFileExt(lDBBackupFileName, '.FBK');
//GetTemporaryPath wraps the Windows GetTempPath function
lDBBackupFileName := GetTemporaryPath + lDBBackupFileName;
lBackup.BackupFile.Add(lDBBackupFileName);
lBackup.Active := True;
lBackup.Verbose := False;
lBackup.ServiceStart;
while not lBackup.eof do
lBackup.GetNextLine;
finally // wrap up
lBackup.Free;
end; // try/finally
I am trying to track the details down on this, but thought I would ask
to see if anyone else is seeing this.
I automatically backup the DB on closing every week/month/etc
depending on how often the user requests. The backup gets written to a
temp directory first, after which I compress the file.
Occasionally IBO Admin locks up my application when preforming a
backup of a database. My backup code (below) is pretty simple.
The problem occurs either on the '.StartService' or '.GetNextLine'
methods (I am researching this).
Any comments on what I might look for?
Ed Dressel
lBackup := TIBOBackupService.Create(nil);
try
lBackup.DatabaseName := FSourceFileName;
lBackup.LoginPrompt := False;
lBackup.Params.Add('User_Name=' + FDBUserName);
lBackup.Params.Add('Password=' + FDBPassword);
lBackup.Protocol := cpLocal;
lBackup.ServerName := FDBServerName;
lDBBackupFileName := ExtractFileName(FSourceFileName);
lDBBackupFileName := ChangeFileExt(lDBBackupFileName, '.FBK');
//GetTemporaryPath wraps the Windows GetTempPath function
lDBBackupFileName := GetTemporaryPath + lDBBackupFileName;
lBackup.BackupFile.Add(lDBBackupFileName);
lBackup.Active := True;
lBackup.Verbose := False;
lBackup.ServiceStart;
while not lBackup.eof do
lBackup.GetNextLine;
finally // wrap up
lBackup.Free;
end; // try/finally