急！！怎样将JPG格式的图片存入SQL 2000数据库

[hxp989898]

求助！在C/S三层结构中，怎样将JPG格式的图片存入SQL 2000数据库。请高手指点！！

[sandrafei]

我也关注！！！

[xjq2003]

有点复杂，俺只会单机保存！！

[NicholasTsai]

俺也只会单机保存

[eTide]

网上找到的
//以下是存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;
}

[eTide]

#include <jpeg.hpp>
...
{
..//保存
TJPEGImage * jpg = new TJPEGImage;
jpg->LoadFromFile("C:\\pic.jpg");
TMemoryStream * mem = new TMemoryStream;
jpg->SaveToStream(mem);
mem->Position = 0;
qyData->Close();
qyData->SQL->Clear();
qyData->SQL->Add("insert 图像表 (..,Image)Values(..,:img)");
qyData->Params->ParamByName("imx")->LoadFromStream(mem);
//此处也可不用流,直接从文件读取
qyData->ExecSQL();
qyData->Close();
delete mem;
delete jpg;
}