[firebase-br] Erro no Restore utilizando o MDORestoreService

[Luiz Henrique Severo d Oliveira]

Pessoal,

Tem alguém usando a MDO para acessar o Firebird?
Estou tentando fazer um Restore utilizando o componente MDORestoreService mas toda vez que executo um MDORestoreService.Active dá erro de List Out of Bounds(0).

Protocol = TCP
ServerName = localhost

O código é esse:
    mmoLog.Lines.Clear;
    mmoLog.Lines.Add('Start');

    MDORestoreService1.Options := [Replace];

    MDORestoreService1.BackupFile.Clear;
    MDORestoreService1.BackupFile.Add(edtBkFile.Text);

    MDORestoreService1.DatabaseName.Clear;
    MDORestoreService1.DatabaseName.Add(edtDbFile.Text);

    MDORestoreService1.Active := True;

    try
        MDORestoreService1.ServiceStart;

        while not MDORestoreService1.Eof do
            mmoLog.Lines.Add(MDORestoreService1.GetNextLine);
    finally
        MDORestoreService1.Active := False;
        mmoLog.Lines.Add('Finish');
    end;


Obrigado 
Luiz Henrique Severo d Oliveira
RPG Soluções



Luiz Henrique Severo d Oliveira
RPG Soluções
www.rpgsolucoes.com.br
(21) 9103-8802