如何在ACCESS中存取图片

[sasa_sasa]

我要用ACCESS保存图片.并进行查询读取..请各路高手指点>>>>

[lining_cumt985]

//以下是存jpeg到数据库;数据类型一定要是image
#include <clipbrd.hpp>

TStream *Stream1;
TJPEGImage *Pjp;

Pjp=new TJPEGImage();
Image2->Picture->LoadFromFile("test.jpg");//Image2是TDBImage组件
Image2->CopyToClipboard();
Image2->Picture->Bitmap->Assign(Clipboard());
Pjp->Assign(Image2->Picture->Bitmap);
Stream1=NULL;
dmNext->treeviewADOTable->Open();
dmNext->treeviewADOTable->Edit();
try
{
Stream1=dmNext->treeviewADOTable->CreateBlobStream(dmNext->treeviewADOTable->FieldByName("treenodes"), bmWrite);//treenodes是存放jpeg内容的字段
Pjp->SaveToStream(Stream1);
delete Stream1;
}
__finally
{
dmNext->treeviewADOTable->Post();
dmNext->treeviewADOTable->Close();
delete Pjp;
}

//以下是从数据库读jpeg
#include <clipbrd.hpp>

TStream *Stream1;
TJPEGImage *Pjp;

Pjp=new TJPEGImage();

dmNext->treeviewADOTable->Open();
try
{
Stream1=dmNext->treeviewADOTable->CreateBlobStream(dmNext->treeviewADOTable->FieldByName("treenodes"), bmRead);
Pjp->LoadFromStream(Stream1);
Image2->Picture->Bitmap->Assign(Pjp);
delete Stream1;
}
__finally
{
dmNext->treeviewADOTable->Close();
delete Pjp;
}

[猎人66]

字段"pic_ole"设为OLE类型，
写入:
ADOTable1->Edit();
TBlobField *Blob=(TBlobField *)ADOTable1->FieldByName("pic_ole");
Blob->LoadFromFile("C:\\WINNT\\splash.bmp");
ADOTable1->Post();

读出:
TBlobField *Blob=(TBlobField *)ADOTable1->FieldByName("pic_ole");
Blob->SaveToFile("C:\\splash.bmp");


如果要用JPEG图片，请：#include <jpeg.hpp>