OCILogon

function OCILogon(

  envhp: OCIEnv;

  errhp: OCIError;

  var svchp: OCISvcCtx;

  username: PAnsiChar;

  uname_len: Cardinal;

  password: PAnsiChar;

  passwd_len: Cardinal;

  dbname: PAnsiChar;

  dbname_len: Cardinal

):sword;