unidac连接firebird的embed版

unit Unit1;interfaceuses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Grids, DBGrids, DB, DBAccess, Uni, MemDS, UniProvider,   InterBaseUniProvider;type   TForm1 = class(TForm)     UniConnTest: TUniConnection;//用于数据库的连接     InterBaseUniProTest: TInterBaseUniProvider;//ib/FB的数据提供     UniQryTest: TUniQuery;     UniDataSrTest: TUniDataSource;     DBGrid1: TDBGrid;     Button1: TButton;     Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var   Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin  with UniConnTest do  begin     ProviderName := 'interbase';//这里确定为interbase 但是可以支持firebird     Password := 'masterkey';//数据库密码     Username := 'sysdba';//数据库密码     Server := '';     Database := 'TD_HOUSE.FDB';//数据库文件的位置，这里在当前目录     SpecificOptions.Clear;     SpecificOptions.Add('InterBase.ClientLibrary=fbembed.dll');//设置embeddll驱动位置     SpecificOptions.Add('InterBase.CharLength=0');//设置为0让，unidac自动读取fb设置     SpecificOptions.Add('SQLDialet=3');//设置为3     SpecificOptions.Add('USEUnicode=true');//迟滞unicode 有人说有问题 我没有发现    try       Connect;       ShowMessage('OK');    except       ShowMessage('eer');    end;  end;end;procedure TForm1.Button2Click(Sender: TObject);begin   UniQryTest.Close;   UniQryTest.SQL.Text := 'select * from TB_SYS_LOG';// UniQryTest.FetchingAll;   UniQryTest.DisableControls;   UniQryTest.Open;   UniQryTest.EnableControls;end;end.