Проблема с Резервированием и восстановлением базы InterBase\FireBird

[ХАнК]

Люди помогите, курсовой горит!!!
Для архивации базы данных firebird\InterBase использую компоненты
TIBBackupService и TIBRestoreService.
Какой пароль к базе нужен, когда эта программа находится на одном компе, а сервер на другом?
Пароль пользователя базы, пароль адитна сервера или вообще какой другой подскажите.
Проблема в том что архивация при локальном соединении проходит нормально, а когда я пытаюсь архивировать
базу при локальном соединении я указываю пароль пользовательский и архивация не происходит
генерируется ошбка. может я в коде ошибся посмотрите пожалуйста.
имеются данные:
//BDP-запись где хранятся настройки подключения БД
// ее полоя:
// nUser-имя пользователя
// adrBD-путь к базе данных
// pass-пароль
// vid-вид базы данных(локальная\сетевая)
// Prtl-номер индекса в всплывающем списке(указывает протокол)
//bakcf-имя файла архива.
procedure TForm1.arhivations(sender: Tobject);
var
bakcf: string;
begin
memo1.Clear;
bakcf:=arhP.adrRK+'\'+ChangeFileExt (ExtractFileName(BDP.adrBD),'')+' '+
FormatDateTime('dd.mm.yyyy hh-nn-ss',Now)+'.bck'; //формируем имя резервной копии
with TIBBackupService.Create(Self) do
try
Params.Text:=
Format('user_name=%s%spassword=%s',
[BDP.nUser, #13#10, BDP.pass]);
DatabaseName:=BDP.adrBD;
BackupFile.Text:=bakcf;
if BDP.vid then
Protocol:=Local
else
begin
ServerName:=BDP.nServ;
case BDP.Prtl of
0: Protocol:=TCP;
1: Protocol:=NamedPipe;
2: Protocol:=SPX;
end;
end;
LoginPrompt:=false;
Active:=True;
memo1.Lines.Add(' *** Время: '+datetostr(date)+' \ '+timetostr(time));
memo1.Lines.Add(' *** Файл архива: '+ExtractFileName(bakcf));
memo1.Lines.Add(' *** Файл базы данных: '+ExtractFileName(BDP.adrBD));
memo1.Lines.Add(' *** Начат процесс архивирования');
ServiceStart;
label7.Caption:=dateToStr(date)+' \ '+TimeToStr(Time);
while not Eof do
memo1.Lines.Add(' '+GetNextLine);
Active:=False;
filnam2:=bakcf;
finally
Free;
end;
end;

//данные все такие же как в процедуре архивации, кроме
//RK-имя файла архива.
procedure TForm1.vosstan(RK: string; sender: Tobject);
begin
with TIBRestoreService.Create(Self) do
try
Params.Text:=
Format('user_name=%s%spassword=%s',
[BDP.nUser, #13#10, BDP.pass]);
DatabaseName.Text:=BDP.adrBD;
BackupFile.Text:=RK;
if BDP.vid then
Protocol:=Local
else
begin
ServerName:=BDP.nServ;
case BDP.Prtl of
0: Protocol:=TCP;
1: Protocol:=NamedPipe;
2: Protocol:=SPX;
end;
end;
Options := [Replace, CreateNewDB];
LoginPrompt:=false;
Active:= True;
ServiceStart;
memo1.Lines.Add(' *** Время: '+datetostr(date)+' \ '+timetostr(time));
memo1.Lines.Add(' *** Файл архива: '+ExtractFileName(RK));
memo1.Lines.Add(' *** Файл базы данных: '+ExtractFileName(BDP.adrBD));
memo1.Lines.Add(' *** Начат процесс восстановления');
while not Eof do
memo1.Lines.Add(' '+GetNextLine);
Active := False;
finally
Free;
end;
end;

[DrAku1a]

А стандартные не проходят?

user_name=SYSDBA
password=masterkey

[Mishrek]

Скинь прогу плиз на mishrek@mail.ru очень нада!!

[Serge_Bliznykov]

Mishrek, не забывайте смотреть на дату сообщений в теме, куда пишете!!! Прошло полтора года!