| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
 Publicado: Mar 13 Sep, 2016 10:00 am Asunto: Controlar TIBBackupService |
 |
|
Estoy haciendo la copia de seguridad de una BB.DD. en Firebird con este código:
| Código: | Backup->LoginPrompt = false;
Backup->Params->Add("user_name=sysdba");
Backup->Params->Add("password=masterkey");
Backup->Verbose = true;
Backup->Active = true;
try
{
Backup->DatabaseName = fPersona->Afiliados->DatabaseName;
Backup->BackupFile->Add(cInicio + "\\" + Now().FormatString("yyyymmdhhnnss") + ".gbk");
Query->Transaction->Active = true;
Query->Transaction->Commit();
Backup->ServiceStart();
while (!Backup->Eof)
cAux = Backup->GetNextLine();
}
__finally
{
Backup->Active = false;
} |
La pregunta tal vez sea una tontería pero: ¿Cómo puedo saber cuantos elementos tienen que copiarse? Lo digo por poner una barra de progreso para que no parezca que el sistema se ha quedado muerto.
_________________
Un saludo
Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA) |
|
| Volver arriba |
|
 |
JesúsGandia
Master
Registrado: 17 Jul 2004Mensajes: 403Ubicación: Gandia, Valencia
|
| Publicado: Mie 12 Oct, 2016 1:46 pm Asunto: |
|
|
| Código: |
//PBCopia es un ProgressBar con un MaxValue de 6000
MDatos->IBDCopia->Attach();
MDatos->IBDCopia->Active = true;// activamos el servicio
MDatos->IBDCopia->ServiceStart();// iniciamos la copia de seguridad
while(MDatos->IBDCopia->IsServiceRunning)
{
MemoBackup->Lines->Add(MDatos->IBDCopia->GetNextLine());
PBCopia->UserValue+= 1;
Application->ProcessMessages();
}
PBCopia->UserValue = PBCopia->MaxValue;
|
_________________
Muchos hombres no se equivocan jamás porque no se proponen nada razonable. |
|
| Volver arriba |
|
|
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
