Unidac连接嵌入版Firebird



with localcon1 do
  begin
     ProviderName := ‘interbase’;
     Password := ‘masterkey’;
     Username := ‘sysdba’;
     Server := ”;
     Database := ‘.\data\Testdb.fdb’; //current dir
     SpecificOptions.Clear;
     SpecificOptions.Add(‘InterBase.ClientLibrary=fbembed.dll’);//set embed dll
     SpecificOptions.Add(‘InterBase.CharLength=0′);//0 let unidac load firebird setting
     SpecificOptions.Add(‘SQLDialet=3′);
     SpecificOptions.Add(‘USEUnicode=true’);
      try
       Connect;
       ShowMessage(‘OK’);
      except
       ShowMessage(‘eer’);
      end;
  end;