Обрезание имен UTF-8 при добавлении юзера в IBSecurityService

← →
kaif © (2006-06-12 21:36) [0]

При попытке записать фамилии длиннее 8 символов происходит обрезание строки и какая-то закорюка в конце.
with IBSecurityService1 do begin ServerName := "localhost"; LoginPrompt := False; Params.Add("user_name=sysdba"); Params.Add("password=masterkey"); Active := True; try UserName := Edit1.Text; FirstName := AnsiToUTF8(Edit2.Text); MiddleName := AnsiToUTF8(Edit3.Text); LastName := AnsiToUTF8(Edit4.Text); Caption := LastName; UserID := StrToInt(Edit5.Text); GroupID := StrToInt(Edit6.Text); Password := Edit7.Text; AddUser; finally Active := False; end; end;

В то же время IBExpress работает верно - добавляет юзеров и позволяет на русском языке ввести их фамилии и имена.
Надо полагать баг не в Firebird, если только IBExpert не редактирует базу Security.fdb напрямую.

Кто решал эту проболему?
Что делать?
Прошу помощи.

← →
Johnmen © (2006-06-12 23:27) [1]

А где ты увидел это обрезание? Нужели в загадочном Caption? :)

← →
kaif © (2006-06-12 23:33) [2]

Johnmen © (12.06.06 23:27) [1] :)

Да нет, Caption - это я просто забыл убрать из текста. Выводил результат функции в заголовок окна, чтобы убедиться, что она сама не обрезает.
Обрезание видно в IBExpert, когда там смотришь список юзеров с их фамилиями.

← →
kaif © (2006-06-12 23:37) [3]

Любопытно, что если с помощью IBExpert ввести длинные фамилии (более 8 символов), то обратно они через этот компонент могут быть получены и получены без всякого обрезания.
:)
В общем я замучился. :(
Не буду хранить так имена юзеров.
Суну их в базу.
Заодно снабжу там их адресами и телефонами.

Обрезание имен UTF-8 при добавлении юзера в IBSecurityService Найти похожие ветки