In "procedure TIBCRestoreService.SetServiceStartOptions;"
Code: Select all
p := Pos('=', FDatabase[i]);
if p 0 then begin
AddServiceStartParam(SPBConstantValues[isc_spb_dbname], Copy(FDatabase[i], 1, p - 1));
AddServiceStartParam(isc_spb_res_length, StrToInt(Copy(FDatabase[i], p + 1, MaxInt)));
end
Code: Select all
AddServiceStartParam32(isc_spb_res_length, StrToInt(Copy(FDatabase[i], p + 1, MaxInt)));
Code: Select all
p := Pos('=', FBackupFile[i]);
if p 0 then begin
AddServiceStartParam(isc_spb_bkp_file, Copy(FBackupFile[i], 1, p - 1));
AddServiceStartParam(isc_spb_bkp_length, StrToInt(Copy(FBackupFile[i], p + 1, MaxInt)));
end