关于在客户端利用TClientDataSet保存blob类型的字段问题

[adventurezl]

创建一远程数据模块，添加组件并联接到一个数据库中，该数据库有一个大型二进制的字段（blob）FILE.客户端利用TClientDataSet进行更新，但是无法更新数据库，代码如下：
if (Edit2->Text.IsEmpty() )
return;
TMemoryStream *tmpStream = new TMemoryStream();
TBlobField *tmpField;
tmpStream->LoadFromFile(OpenDialog1->FileName);
client_DM->cdsFile_test->Close() ;
client_DM->cdsFile_test->Open() ;
client_DM->cdsFile_test->Edit();
client_DM->cdsFile_test->Append();
client_DM->cdsFile_test->Edit();
client_DM->cdsFile_test->FieldByName("ID")->AsString=Edit3->Text;
client_DM->cdsFile_test->FieldByName("NAME")->AsString=ExtractFileName(OpenDialog1->FileName);
tmpField = (TBlobField *)client_DM->cdsFile_test->FieldByName("FILE");
tmpField->LoadFromStream(tmpStream);
client_DM->cdsFile_test->Post() ;
client_DM->cdsFile_test->ApplyUpdates(-1);
tmpField = NULL;
delete tmpStream;

运行之后，只是在本地内存中修改，而无法保存到远程数据库中，请问原因何在？是不是ApplyUpdates函数不能保存blob类型的字段？

[adventurezl]

难道没人遇到过么？

[myy]

俺也不知道啊。。

[linlexing]

TBlobStream *ABlobStream = client_DM->CreateBlobStream(client_DM->cdsFile_test->FieldByName("FILE"),bmWrite) ;
ABlobStream->CopyFrom(tmpStream,0) ;
delete ABlobStream ; //一定要在Post之前删除
client_DM->cdsFile_test->Post() ;
client_DM->cdsFile_test->ApplyUpdates(-1);
tmpField = NULL;
delete tmpStream;
///以上的代码我用了N次了，包好

[BCB]

你有两个错误：
1。没见你创建BlobStream;而只有TMemoryStream,
这是最大的错误！
TStream *tmpStream =DataSet1->CreateBlobStream(
zd,bmWrite);
2。流指针要重新回0；
tmpStream ->Position=0;

[BCB]

稍修改一下就成了

[adventurezl]

楼上两位老大，还是不行啊！！to linlexing(拉拉叉) ：你在post之前把ABlobStream 给delete了，那它被保存了么？我试了几次，程序在客户端是保存了，但是仍然没有提交到服务器端的数据库中。老大们，在想想办法。还有一个问题，就是保存时，为什么要用TBlobStream ？其它类型的Stream不行么？

[BCB]

Post()后再删,TBlobSream一定要用。

[myy]

(回楼主短消息)

Sorry , 俺也不知道啊。。。

[BCB]

下面是我“人事档案”中的程序，我刚在三层DCOMConnection中试了完全成功!
.jpg或.bmp一律转换成.jpg存入字段，并能显示出！第二次打开，照片仍在！
再弄不明白就不应该了！

#include "jpeg.hpp"
void DispJpg() // 将字段中的.jpg图像--> Image1显示
{
TStream *bs=Form1->ClientDataSet1->CreateBlobStream(
Form1->ClientDataSet1->FieldByName("照片图像"),bmRead);
if(bs->Size>0)
{
TJPEGImage *j=new TJPEGImage;
bs->Position=0;
j->LoadFromStream(bs);
Form1->Image1->Picture->Bitmap->Assign(j);
delete j;
}
else
Form1->Image1->Picture=NULL;
delete bs;
}

void __fastcall TForm1::Button6Click(TObject *Sender)
{ // 将文件.bmp或.jpg以jpg 格式存入字段照片中
OpenDialog1->FileName="";
if (OpenDialog1->Execute())
{
String f=OpenDialog1->FileName;
if (FileExists(f))
{
String ext=ExtractFileExt(f).LowerCase();
if (ext==".bmp" || ext==".jpg"|| ext==".jpeg")
{
String jpg=ChangeFileExt(ExtractFileName(f),".jpg");
TJPEGImage *j=new TJPEGImage;
if (ext==".bmp")
{
Graphics::TBitmap *b=new Graphics::TBitmap;
b->LoadFromFile(f);
j->Assign(b);
j->CompressionQuality=90;
j->Compress();
delete b;
}
else
{
TFileStream *fs=new TFileStream(f,fmOpenRead);
j->LoadFromStream(fs);
delete fs;
}
ClientDataSet1->Edit();
TField *zd=ClientDataSet1->FieldByName("照片图像");
zd->Clear(); // 先清字段
TStream *bs=ClientDataSet1->CreateBlobStream(
zd,bmWrite);
bs->Position=0;
j->SaveToStream(bs);
delete j;
delete bs;
DispJpg();
}
}
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button7Click(TObject *Sender)
{
DispJpg();
}
void __fastcall TForm1::Button5Click(TObject *Sender)
{
if (ClientDataSet1->ChangeCount > 0)
ClientDataSet1->ApplyUpdates(-1); // 更新
ClientDataSet1->Close();

}

[adventurezl]

问题终于解决了，多谢BCB(天下三分明月夜,二分无赖是扬州) ；马上结贴