Максимальная длина значений TSQLConnection.Params

Обновить

Я нашел два способа открыть копию Employee.Gdb в папке со 160-символьным именем ('abcdefghij0123456789' x 8).

Сначала я отредактировал файл DBXConnections.Ini и изменил параметр базы данных в разделе [IBConnection] на чтение

Database=localhost:D:\abcdefghij01234567890abcdefghij01234567890abcdefghij01234567890abcdefghij01234567890abcdefghij01234567890abcdefghij01234567890abcdefghij01234567890abcdefghij01234567890\employee.gdb

Затем я могу успешно подключиться к нему, открыть Employee.Gdb и внести изменения в таблицу Customer. Я проверил изменения в IBConsole на случай, если копия Employee.Gdb окажется не той, что я предполагал.

Впоследствии я обнаружил, что могу создавать и открывать базу данных в коде с помощью Delphi Seattle и Interbase XE7 следующим образом:

function LongPath : String;
begin
  Result := 'D:\' + DupeString('abcdefghij0123456789', 8);
end;

function LongDBName : String;
begin
  Result := LongPath + '\Employee.Gdb';
end;

procedure TForm1.OpenDB;
var
  Ini : TMemIniFile;
const
  scDBXConIni = 'C:\Users\Public\Documents\Embarcadero\Studio\dbExpress\17.0\dbxconnections.ini';
  scSourceDB = 'D:\Delphi\Databases\Interbase\Employee.Gdb';
begin
  Ini := TMemIniFile.Create(scDBXConIni);
  try
    // First, blank out the Database value in the IBConnection section
    //  of DBXConnections.Ini
    Ini.WriteString('IBConnection', 'Database', '');
    Ini.UpdateFile;

    //  Next, create the long-named directory and copy Employee.Gdb to it
    if not DirectoryExists(LongPath) then
      MkDir(LongPath);
     Assert(CopyFile(PChar(scSourceDB), PChar(LongDBName), False));

     //  Set LoadParamsOnConnect to False so that the SqlConnection uses
     //  the value of the Database we are about to give it
     SqlConnection1.LoadParamsOnConnect := False;
     SqlConnection1.Params.Values['Database'] := LongDBName;
     SqlConnection1.Connected := True;

     //  Open the CDS to view the data
     CDS1.Open;

  finally
    Ini.Free;
  end;

end;

Важным шагом в этом способе является установка LoadParamsOnConnect на False, что, признаюсь, я упустил из виду в предыдущих попытках заставить этот код работать.

У меня есть более ранние версии Delphi на этом компьютере, поэтому, если вы не используете Сиэтл и приведенный выше код не работает, сообщите мне, какую из них вы используете, и я посмотрим, смогу ли я попробовать это.

**[Исходный ответ]

procedure TForm1.Button1Click(Sender: TObject);
begin
  SqlConnection1.Params.Values['database'] := 'D:\abcdefghij01234567890abcdefghij01234567890abcdefghij01234567890abcdefghij01234567890abcdefghij01234567890abcdefghij01234567890abcdefghij01234567890abcdefghij01234567890\employee.gdb';
  SqlConnection1.Connected := True;
end;

procedure TDBXDynalinkConnection.DerivedOpen;
var
  Count:          TInt32;
  Names:          TWideStringArray;
  Values:         TWideStringArray;
  IsolationLevel: Longint;
  DBXError:       TDBXErrorCode;
begin
  Count := FConnectionProperties.Properties.Count;
  FConnectionProperties.GetLists(Names, Values);

  CheckResult(FMethodTable.FDBXConnection_Connect(FConnectionHandle, Count, Names, Values));
  DBXError := FMethodTable.FDBXConnection_GetIsolation(FConnectionHandle, IsolationLevel);

Я думаю, вам нужен более короткий физический путь!**

Это связано с сервером MSSql:

Как правило, длинные имена путей, превышающие 160 символов, могут вызвать проблемы.

из Microsoft TechNet — https://technet.microsoft.com/en-us/library/ms165768(v=sql.105).aspx