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

2003-04-03 05:45:13 268 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

禾赛XT16 vs XT32激光雷达实测对比：选16线还是32线？看完这篇不纠结本文深度评测禾赛XT16与XT32激光雷达的性能差异与应用选择。通过实测数据对比，分析16线与32线激光雷达在点云密度、动态场景适应性及与IMU协同工作等方面的表现，帮助用户根据自动驾驶、机器人等不同应用场景做出最优选型决策。阅读详情

创建一远程数据模块，添加组件并联接到一个数据库中，该数据库有一个大型二进制的字段（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类型的字段？

...全文

Unity Spine 3.8 （URP）踩坑(Shader报错修改) 提供了新思路，打算尝试一下URP。但美术使用的spine版本是3.8，项目用的Unity2021.3.11f1c2，直接导入spine URP包，shader报错：half4 不能转成 SurfaceData2D；Spine-Sprite-StandardPass-URP-2D.hlsl 也报这个错，也是同样的改法即可。今天搜索spine优化，看到一篇文章。阅读详情

adventurezl

网络及通讯开发 1,317 成员 8,874 内容

+ 关注 + 加入社区

切换为时间正序

adventurezl 2003-04-11

打赏
举报

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

BCB 2003-04-10

打赏
举报

下面是我“人事档案”中的程序，我刚在三层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();

}

myy 2003-04-10

打赏
举报

(回楼主短消息)

Sorry , 俺也不知道啊。。。

BCB 2003-04-10

打赏
举报

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

adventurezl 2003-04-10

打赏
举报

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

BCB 2003-04-08

打赏
举报

稍修改一下就成了

BCB 2003-04-08

打赏
举报

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

linlexing 2003-04-08

打赏
举报

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次了，包好

myy 2003-04-08

打赏
举报

俺也不知道啊。。

adventurezl 2003-04-04

打赏
举报

难道没人遇到过么？

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

相关推荐