这是代码:
放了5个Edit用来输入数据库信息。
procedure TForm1.Button3Click(Sender: TObject);
begin
try
   OraSession.Options.Net := True;   OraSession.UserName := Edit4.Text;
   OraSession.PassWord := Edit5.Text;
   OraSession.Server := Edit1.Text+':'+Edit2.Text+'/'+Edit3.Text;   OraSession.Connect;
   Memo1.Lines.Add('连接数据库成功');
   except
     on E: Exception do begin
       Memo1.Lines.Add('读件连接失败!'+ E.Message);
     end;
   end;
end;报错ORA-12571

解决方案 »

  1.   

       OraSession.Server := Edit1.Text+':'+Edit2.Text+'/'+Edit3.Text;
       OraSession.Options.Direct := True;
       OraSession.connectprompt := false 
       OraSession.Connect;
    这样试试
      

  2.   


    OraSession.Options.Direct := True;  这个属性
    没有加上   OraSession.connectprompt := false   还是没用。
      

  3.   


    OraSession1.Server:= '192.168.2.173:1521:orcl';
    OraSession1.Username := 'test' ;
    OraSession1.Password := 'test' ;
    OraSession1.Options.Direct := True;
    OraSession1.Options.Net := True;
    OraSession1.connectprompt := false;
    OraSession1.Connected := True;
      

  4.   

    var
      Session: TOraSession;
    . . .
    Session.Options.Direct := True;
    Session.Username := 'Scott';
    Session.Password := 'tiger';
    Session.Server := '205.227.44.44:1521:orcl'; 
    Session.Connect;
    For connection using SID:
    ...
    Session.Server := '205.227.44.44:1521:sid=orcl';
    ...For connection using Service Name:
    ...
    Session.Server := '205.227.44.44:1521:sn=orcl';
      

  5.   

    TOraSession 是个啥鸟控件?
      

  6.   

    配置odbc, ADOConnection就可以连接啊
      

  7.   

    确实没见过OraSession
      

  8.   

    本机的odbc有问题吧