delphi ftBlob二进制字段读取存储

最新推荐文章于 2021-03-20 11:21:31 发布

weixin_30458043

最新推荐文章于 2021-03-20 11:21:31 发布

阅读量625

点赞数

文章标签：数据库

原文链接：http://www.cnblogs.com/cb168/p/5978895.html

版权

aStream:TMemoryStream;

aStream:=TMemoryStream.Create;

字段保存到stream

qrypub.ParamByName('Data').LoadFromStream(aStream, ftBlob);

从字段读取到Stream里

TBlobField(dm.qrypub.FieldByName('FILE_TEXT')).SaveToStream(aStream);

aStream.position:=0;

用完后释放

aStream.Free;

TBlobField *BlobField=(TBlobField *) DataMod->InsertTable->FieldByName("ff");

//文件到字段
TBlobField *blob_pic=(TBlobField *)UserMod->TInsert->FieldByName("IMAGE");
        blob_pic->LoadFromFile(app_path+"//temp//temp.jpg");

//字段到文件
TBlobField *blob_pic=(TBlobField *)DBGrid4->DataSource->DataSet->FieldByName("IMAGE");
    try
    {
        blob_pic->SaveToFile(app_path+"//temp//temp1.jpg");
        Image9->Picture->LoadFromFile(app_path+"//temp//temp1.jpg");

    TMemoryStream * aStream = new TMemoryStream;
                  ((TBlobField*) ADOQuery4->FieldByName("ff"))->SaveToStream(aStream);
               aStream->SaveToFile(SaveDialog1->FileName );

转载于:https://www.cnblogs.com/cb168/p/5978895.html