BDP.net 判断某个列是不是BLOB

1. var
2.   sBlobFieldList : TStringList;
3.   sTableName : string;
4.   aCommand : BDPCommand;
5.   aConnection : BDPConnection;
6.   aDataReader : BDPDataReader;
7.   i : integer;
8. begin
9.   aConnection := BDPConnection.Create('assembly=Borland.Data.Oracle'
10.     +', Version=2.5.0.0, Culture=neutral, PublicKeyToken=91d62ebb5b0d1b1b;'
11.     +'vendorclient=oci.dll;pooling=True;grow on demand=True;'
12.     +'database=DBNAME;username=USERNAME;max pool size=100;'
13.     +'password=PASSWORD;provider=Oracle');
14.   aConnection.Open();
15.   sBlobFieldList := TStringlist.Create();
16.   sTableName :=  UpperCase(Edit1.Text);
17.   aCommand := BDPCommand.Create(Format('SELECT * FROM %s WHERE 1=0',[sTableName]),aConnection);
18.   aDataReader := aCommand.ExecuteReader();
19.   //找出BLOB字段
20.   for I := 0 to aDataReader.FieldCount - 1 do
21.   begin
22.     if aDataReader.GetDataType(i) = BdpType.Blob then
23.     begin
24.       sBlobFieldList.Add(aDataReader.GetName(i));
25.     end;
26.   end;
28.   aDataReader.Close();
29.   aDataReader.Dispose();
30.   aCommand.Close();
31.   aCommand.Dispose();
32.   aConnection.Close();
33.   aConnection.Dispose();
36. end;