BDP

使用Delphi2006.net 编写Webservice

某个项目使用的是Sybase 11 版本，,程序里面用到了Sybase 12版本以上带的OLEDB 驱动，本来这个驱动挺方便的，不需要Sybase客户段就能链接服务端，但是存在问题，

在低版本上的Sybase上面使用，没法更新BLOB字段。没办法只好使用BDP 来更新。

以前没用过BDP，先测试了功能，测试的时候用Oracle来测试，结果用下面的代码更新了半天发现BLOB字段都是空的。

1. uses Borland.Data.Provider,Borland.Data.Common,System.IO;
3. procedure TForm2.Button1Click(Sender: TObject);
4. var
5.   aBDPConnection : BDPConnection;
6.   aBDPCommand    : BDPCommand;
7.   aBDPParameter : BDPParameter;
8.   aBytes : TBytes;
9.   aFileStream : TFileStream;
12. begin
13.   aBDPConnection := BDPConnection.Create('assembly=Borland.Data.Oracle'
14.     +', Version=2.5.0.0, Culture=neutral, PublicKeyToken=91d62ebb5b0d1b1b;'
15.     +'vendorclient=oci.dll;pooling=True;grow on demand=True;'
16.     +'database=DBNAME;username=USERNAME;max pool size=100;'
17.     +'password=PASSWORD;provider=Oracle');
18.   aBDPConnection.Open();
19.   aBDPCommand := BDPCommand.Create('INSERT INTO T_BDPTEST(IDFIELD,ABLOB) VALUES(''1'',:ABLOB)',aBDPConnection);
20.   
21.   aFileStream := TFileStream.Create('c:/KFC.doc',fmOpenRead);
22.   Setlength(aBytes,aFileStream.Size);
23.   try
24.     aFileStream.Read(aBytes,aFileStream.Size);
25.   finally
26.     aFileStream.Free();
27.   end;
30.   aBDPparameter := BDPParameter.Create(':ABLOB'
31.     ,bdpType.Blob,bdpType.stBinary,Length(aBytes)   );
32.   aBDPParameter.Value := ABytes;
34.   aBDPCommand.Parameters.Add(aBDPParameter);
35.   aBDPCommand.ExecuteNonQuery();
36.   aBDPCommand.Dispose();
37.   aBDPConnection.Close();
38.   aBDPCommand.Dispose();
40. end;

后来检查了半天，发现，BDP比较土的，不支持命名参数，就是 BDPParameter.Create(':ABLOB',...) 写了ABLOB 也是没用的，BDP不知道你更新哪个字段 必须改为

  aBDPparameter := BDPParameter.Create(':ABLOB'
    ,bdpType.Blob,bdpType.stBinary,Length(aBytes),'ABLOB'    );才行。

 

BDP比Ado.net 方便的地方就是 可以通过DataReader来判断一个列的类型，而在Ado.net 中是无法判断一个列是不是BLOB