Форум: "Базы";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];
ВнизИспользование API Найти похожие ветки
← →
iKS1 (2002-11-02 11:25) [0]Уважаемые мастера!
Пытаюсь зарегистрировать нового пользователя используя функцию API ISC_ADD_USER():
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IBIntf, IBExternals, IBHeader;
var
status : PISC_STATUS;
sec : PUserSecData;
begin
New(sec);
New(status);
sec^.sec_flags := sec_dba_user_name_spec or
sec_dba_password_spec or
sec_password_spec;
sec^.uid := 0;
sec^.gid := 0;
sec^.protocol := 4;
sec^.server := "";
sec^.user_name := PAnsiChar(edtUser.Text);
sec^.password := PAnsiChar(edtPassword.Text);
sec^.group_name := "";
sec^.first_name := "";
sec^.middle_name := "";
sec^.last_name := "";
sec^.dba_user_name := "SYSDBA";
sec^.dba_password := "masterkey";
isc_add_user(status, sec); // здесь ошибка Access Violation
Dispose(sec);
Dispose(status);
end;
Подскажите, что делаю не так.
← →
Alexsys (2002-11-02 18:07) [1]Могу выслать рабочий исходник. Пиши на alex_likh@mail.ru
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c