delphi ftBlob二进制字段读取存储

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 );