ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

[RESOLVIDO]Delphi XE 4 FireDAC Backup FireBird 2.5 ERRO

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
nelys
Novato
Novato


Registrado: Quinta-Feira, 11 de Abril de 2013
Mensagens: 2

MensagemEnviada: Sex Mai 10, 2013 11:51 am    Assunto: [RESOLVIDO]Delphi XE 4 FireDAC Backup FireBird 2.5 ERRO Responder com Citação

Bom dia galera.

Alguém que está usando o FireDAC e usando componente TADIBBackup para fazer backup do banco que possa me ajudar, pois usando o exemplo do FireDAC quando mando fazer o backup dar o seguinte erro:

Invalid dumplet buffer structure

Sendo que o mesmo banco usando componetes IBO consigo fazer o backup normal.

Alguém já passou por isso?

Segue o exemplo:

procedure TformBackupRestore.btnIniciarClick(Sender: TObject);
var
temp : string;
begin
inherited;
DriverLinkBackup.DriverID := 'IB';
DriverLinkBackup.VendorLib := diretorio + 'fbclient.dll';
case op of
1: // backup
begin
btnIniciar.Enabled := False;
DM.banco.Connected := false;
try
Backup.UserName := 'sysdba';
Backup.Password := 'masterkey';
Backup.Database := UpperCase(DM.banco.Params.Values['database']);
Backup.Protocol := ipLocal;
Backup.Verbose := True;
Backup.Host := 'localhost';


backup.BackupFiles.Clear;
Backup.BackupFiles.Add(UpperCase(diretorio + '\bd\banco.backup'));
Backup.Backup;
except
proAviso('erro backup');
end;

btnIniciar.Enabled := True;
end;

end;


Editado pela última vez por nelys em Sex Mai 10, 2013 3:17 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
sindicley
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 14 de Junho de 2010
Mensagens: 100

MensagemEnviada: Sex Mai 10, 2013 1:44 pm    Assunto: Responder com Citação

AniDac Não Tinha isso agora ja vem FireDac + Gambiarra
Isto foi feito para dar portabilidade para NextGen (iOS).
Localiza a Unit UADPhysIBWrapper.pas
Localize o metodo
TIBPBWriter.AddLongString(const AString: String);

SizeOf (Byte)
Substitua-as por
SizeOf (Word)

Faça isso e seja felizzzzzz.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
nelys
Novato
Novato


Registrado: Quinta-Feira, 11 de Abril de 2013
Mensagens: 2

MensagemEnviada: Sex Mai 10, 2013 3:11 pm    Assunto: Responder com Citação

sindicley escreveu:
AniDac Não Tinha isso agora ja vem FireDac + Gambiarra
Isto foi feito para dar portabilidade para NextGen (iOS).
Localiza a Unit UADPhysIBWrapper.pas
Localize o metodo
TIBPBWriter.AddLongString(const AString: String);

SizeOf (Byte)
Substitua-as por
SizeOf (Word)

Faça isso e seja felizzzzzz.


Funcionou . Valew
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB