Code: Select all
{$IF (Uni.UniDACVersion = '9.0.1') }
{$DEFINE Issue#40 }
{$IFEND}
Code: Select all
Error: EVariantTypeCastError: Could not convert variant of type (UnicodeString) into type (Integer)
Code: Select all
UniProvider.TEnumeratorOption.GetAsString($D02F6C8)
Code: Select all
Name Value Self ('Protocol', 1024, (TClass($2C8B7A8), TClass($2CCABB8)), 0, (nil,nil),(nil,nil), $2C89D70, 0, 3, True)
Value 'TCP' Result ''
Code: Select all
if AConnectString.IsEmpty then Connect // Huh, different behavior if you pass in an Empty Str.. What?
else Connect(AConnectString);
Code: Select all
'Provider Name=InterBase;Data Source=LOCALHOST;Database=pa.fdb;Client Library=C:\ProgramData\Firebird\fb4_(64)\fbclient.dll;Character Set=UTF8;Protocol=3;Role=RDB$ADMIN;Use Unicode=True;Login Prompt=False;Pooling=True;Min Pool Size=4'