unidac连接FireBird数据库

dbconn: TUniConnection;

with dbconn do
    begin
      if not Connected then
         begin
            ProviderName := 'interbase';//这里确定为interbase 但是可以支持firebird
            Username := 'sysdba';//数据库密码
            Password := 'masterkey';//数据库密码
            //Server := 'localhost';
            //port:=3050;
            Database := 'DBUSERDATABASE.FDB';//数据库文件的位置，这里在当前目录
            SpecificOptions.Clear;
            SpecificOptions.Add('InterBase.ClientLibrary=gds32.dll');//设置embeddll驱动位置
            SpecificOptions.Add('InterBase.CharLength=0');//设置为0让，unidac自动读取fb设置
            SpecificOptions.Add('SQLDialet=3');//设置为3
            //SpecificOptions.Add('USEUnicode=true');//迟滞unicode 有人说有问题 我没有发现
            try
              Connect;
              writelog('打开数据库成功！');
              Result:=True;
            except
              result:=False;
              writelog('打开数据库失败！');
            end;
         end
      else
         begin
           Result:=True;
         end;
    end;