BDP

最新推荐文章于 2024-08-15 17:43:43 发布

原创最新推荐文章于 2024-08-15 17:43:43 发布 · 401 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#sybase #webservice #assembly #delphi #oracle #测试

编程序专栏收录该内容

12 篇文章

订阅专栏

本文介绍了一个使用BDP在Oracle数据库中更新BLOB字段的问题及解决方案。作者最初尝试使用命名参数进行更新操作，但发现这种方法并不奏效。最终通过调整参数设置成功解决了问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

使用Delphi2006.net 编写Webservice

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

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

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

uses Borland.Data.Provider,Borland.Data.Common,System.IO;
procedure TForm2.Button1Click(Sender: TObject);
var
  aBDPConnection : BDPConnection;
  aBDPCommand    : BDPCommand;
  aBDPParameter : BDPParameter;
  aBytes : TBytes;
  aFileStream : TFileStream;
begin
  aBDPConnection := BDPConnection.Create('assembly=Borland.Data.Oracle'
    +', Version=2.5.0.0, Culture=neutral, PublicKeyToken=91d62ebb5b0d1b1b;'
    +'vendorclient=oci.dll;pooling=True;grow on demand=True;'
    +'database=DBNAME;username=USERNAME;max pool size=100;'
    +'password=PASSWORD;provider=Oracle');
  aBDPConnection.Open();
  aBDPCommand := BDPCommand.Create('INSERT INTO T_BDPTEST(IDFIELD,ABLOB) VALUES(''1'',:ABLOB)',aBDPConnection);
  
  aFileStream := TFileStream.Create('c:/KFC.doc',fmOpenRead);
  Setlength(aBytes,aFileStream.Size);
  try
    aFileStream.Read(aBytes,aFileStream.Size);
  finally
    aFileStream.Free();
  end;
  aBDPparameter := BDPParameter.Create(':ABLOB'
    ,bdpType.Blob,bdpType.stBinary,Length(aBytes)   );
  aBDPParameter.Value := ABytes;
  aBDPCommand.Parameters.Add(aBDPParameter);
  aBDPCommand.ExecuteNonQuery();
  aBDPCommand.Dispose();
  aBDPConnection.Close();
  aBDPCommand.Dispose();
end;