OCILogon

function OCILogon(

  envhp: OCIEnv;

  errhp: OCIError;

  var svchp: OCISvcCtx;

  username: PChar;

  uname_len: Cardinal;

  password: PChar;

  passwd_len: Cardinal;

  dbname: PChar;

  dbname_len: Cardinal

):sword;