怎样用ClientDataSet存取Oracle的BLOB字段?请各位大侠救命!!!
我的程序是:
if(DataModule1->ClientDataSet1->Active)
DataModule1->ClientDataSet1->Close();
DataModule1->ClientDataSet1->CommandText="";
DataModule1->ClientDataSet1->CommandText="insert into iconslib(id,libname,iconname,icon) values(icon_seq.nextval,:varlibname,:variconname,EMPTY_BLOB())";
DataModule1->ClientDataSet1->Params->Items[0]->AsString =LName;
DataModule1->ClientDataSet1->Params->Items[1]->AsString =IName;
DataModule1->ClientDataSet1->Params->Items[2]->LoadFromStream(IconStream,ftBlob);
DataModule1->ClientDataSet1->Execute();
if(DataModule1->ClientDataSet1->Active)
DataModule1->ClientDataSet1->Close();
DataModule1->ClientDataSet1->CommandText="";
DataModule1->ClientDataSet1->CommandText ="Select ICON from ICONSLIB where iconname=:iname for UPDATE";
//DataModule1->ClientDataSet1->Params->Items[0]->LoadFromStream(IconStream,ftBlob) ;
DataModule1->ClientDataSet1->Params->Items[0]->AsString=IName;
DataModule1->ClientDataSet1->Open();
TBlobStream *Stream=(TBlobStream *)DataModule1->ClientDataSet1->CreateBlobStream(DataModule1->ClientDataSet1->FieldByName("ICON"),bmRead);
if(MyCAD1->GetShapesCount())
MyCAD1->SaveToStream(Stream);
DataModule1->ClientDataSet1->Post();
DataModule1->ClientDataSet1->Close();
错误提示:数据类型不被支持