Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 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.007 c
3-69109
dim-
2002-11-03 15:44
2002.11.21
ошибка при дообавлении


1-69226
The_Vizit0r!
2002-11-09 16:51
2002.11.21
Подскажите где найти?


3-69210
vl_17
2002-11-01 15:29
2002.11.21
То ли лыжи не едут то ли я ...


1-69302
kex86
2002-11-12 14:12
2002.11.21
срочно


1-69345
hunter84
2002-11-12 22:55
2002.11.21
дистанционное обучение





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский