怎样保存大量的图片字段？？？

[clf198209]

我的这个数据库中有20个图片字段，我用access2000，请问我有什么好的解决方案，可以实现大数据量。还有较好的速度。

[chensy0626]

存图片路径，当需要存取图片数据时建议用文件传输方式

[chensy0626]

存图片路径，存取图片数据时用文件传输的方式

[pengdali]

存图片存放在服务器上的路径，这样你检索起来速度又快，access性能不会应为图片字段而影响性能。

[MikeWKL]

恐怕你的这个想法实现起来比较困难。

建议换数据库。

[wuxking]

1、换SCSI 磁盘阵列，提取存储速度，同时也可以起到数据保护的作用。
2、增加内存
3、将图片单独存储，数据库里面只是存放图片的路径。不过这样有很多麻烦事情。
4、对于大图片尽量不要太大，比如用JPG格式的，或者降低分辨率，小图片（小于4K）用BMP存放
5、最好还是换一个数据库。20个图片的字段好恐怖。呵呵。
另外，你是用来提供Web服务还是怎么？你最好说清楚，才能给一个好的解决方案。

[clf198209]

多谢大家的回答，我这个数据库是用来做医疗图片保存的，有1万条记录，每个记录有100个字段（包含20个图片字段），是单机版的，最好用什么数据库呢？？

[VHDLcn]

替你u p一下。

[真如实观]

同意pengdali(大力 V2.0)，用Access可以了。

[clf198209]

但是，数据库是单机版的，不用服务器
上次我的access表中含600M数据时，就慢的不得了
所以，我想请问各位高手，我这次怎么办？

[xizhouhawk]

单机版的不就更好说了.
楼上的也说了,就存放图片的路径.

[goldflute]

我认为放到数据库里除了增加数据库负担外没有另的意义，所以存路径是个很好的办法。

[natasha]

如果硬盘里东西不经常改动，存路径就好了，既方便又快捷。

[IT-司马青衫]

BCB数据库图像保存技术
加上头文件#include<jpeg.hpp>
1
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
OpenDialog2->FileName="";
if (OpenDialog2->Execute())
{
String f=OpenDialog2->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;
}
DataModule1->ADODataSet1->Edit();
DBEdit2->Text=jpg;
TStream *bs=DataModule1->ADODataSet1->CreateBlobStream(
DataModule1->ADODataSet1->FieldByName("照片图像"),bmReadWrite);
bs->Position=0;
j->SaveToStream(bs);
delete j;
delete bs;
DispJpg();
}
}
}
}


2
记住一定要在post前delete TADOBlobStream对象。
//读
TBlobField * pField=(TBlobField *)pQuery->FieldByName("Image");
TADOBlobStream* pmem=new TADOBlobStream (pField,bmRead);
pmem->Seek(0,soFromBeginning);
Graphics::TBitmap * pBitmap=new Graphics::TBitmap();
pBitmap->LoadFromStream(pmem);
Image1->Picture->Assign(pBitmap);
delete pBitmap;
delete pmem;
//写
pQuery->Edit();
TBlobField * pField=(TBlobField *)pQuery->FieldByName("Image");
TADOBlobStream * pmem=new TADOBlobStream (pField,bmWrite);
pmem->Seek(0,soFromBeginning);
Graphics::TBitmap * pBitmap=new Graphics::TBitmap();
pBitmap->Assign(Image1->Picture->Graphic);
pBitmap->SaveToStream(pmem);
delete pBitmap;
delete pmem;
pQuery->Post();

如果你在ttable中用了固定字段，就更简单了，以下的ADOTable1pic字段就是
读取access中的blob数据
TMemoryStream *s = new TMemoryStream();
ADOTable1pic->SaveToStream(s);
s->Position=0; //****流首位置必须为零***
TJPEGImage *jp = new TJPEGImage();
jp->LoadFromStream(s);
Image1->Picture->Bitmap->Assign(jp);
delete jp;
delete s;
写数据到access的blob字段
if (OpenDialog1->Execute())
{ADOTable1->DisableControls();
ADOTable1->Append();
ADOTable1pic->LoadFromFile(OpenDialog1->FileName);
ADOTable1name->Value=OpenDialog1->FileName;
ADOTable1->Post();
ADOTable1->EnableControls();
}


3
void __fastcall TForm2::DBImage2Click(TObject *Sender)
{
try
{
if(OpenPictureDialog1->Execute());
{
AnsiString MyFilesExtension = UpperCase(ExtractFileExt(OpenPictureDialog1->FileName));
if(MyFilesExtension==".JPG")
{
TJPEGImage *jpg=new TJPEGImage();
jpg->LoadFromFile(OpenPictureDialog1->FileName);
Clipboard()->Assign(jpg);
DBImage1->DataSource->DataSet->Edit();
DBImage1->PasteFromClipboard();
DBImage1->DataSource->DataSet->Post();
delete jpg;
}
if(MyFilesExtension==".BMP")
{
EditDataSource1->DataSet->Edit();
DataModule1->FindADODataSetDSDesigner7->LoadFromFile(OpenPictureDialog1->FileName);
}
}
}
catch(...)
{
StatusBar1->Panels->Items[1]->Text="保存图像发生异常";
}
}

4
在BCB中采用下术方法存入图片,不过显示代码不用写了,DBImage自动显示.

if(OpenPictureDialog1->Execute());
{
AnsiString MyFilesExtension = UpperCase(ExtractFileExt(OpenPictureDialog1->FileName));
if(MyFilesExtension==".JPG")
{
TJPEGImage *jpg=new TJPEGImage();
jpg->LoadFromFile(OpenPictureDialog1->FileName);
Clipboard()->Assign(jpg);
DBImage1->DataSource->DataSet->Edit();
DBImage1->PasteFromClipboard();
DBImage1->DataSource->DataSet->Post();
delete jpg;
}

[binbin]

ADOQuery1->SQL->Text = "insert into table values('abc', :BlobField)";
ADOQuery1->Parameters->Items[0]->LoadFromFile("文件名", ftBlob);
ADOQuery1->ExecSQL();