[firebase-br] Firebaselib

[Anticlei Scheid]

Bom dia pessoal.

    Estou tentando utilizar a Firebaselib.dll da área de downloads da Firebase, mas não estou conseguindo sequer "atachar" o service manager do Firebird.
    Alguém pode me dar alguma dica de onde estou errando?
    Segue abaixo parte da aplicação de teste que escrevi para testar.

Obrigado e abraço


...


function AddFBUser(const user_name,password,group_name:String):LongInt;stdcall;external 'firebaselib.dll';
function DeleteFBUser(const user_name,password:String):LongInt;stdcall;external 'firebaselib.dll';
function ModifyFBUser(const user_name,password:String):LongInt;stdcall;external 'firebaselib.dll';
function ServiceAttach(const user_name,password,hostname:String;ServiceType:ShortInt):LongInt;stdcall;external 'firebaselib.dll';
function ServiceDetach():LongInt;stdcall;external 'firebaselib.dll';

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnAddUserClick(Sender: TObject);
var
  Atachado: boolean;
  Retorno: integer;
begin
  Atachado:= False;
  try
    Retorno:= ServiceAttach('SYSDBA','masterkey','servidor',0);
    if (Retorno >= 0) then
    begin
      Atachado:= True;
      Retorno:= AddFBUser(edtUserName.Text,edtPassword.Text,edtGroupName.Text);
      if (Retorno < 0) then
        MessageDlg('Erro ao adicionar usuário',mtWarning,[mbOk],0);
    end
    else
      MessageDlg('Não foi possível conectar o gerenciador de serviços do Firebird.',
                 mtWarning,[mbOk],0);
  finally
    if Atachado then
      ServiceDetach;
  end;
end;

...