用DBMAGINGE怎么存取ACCESS里的图片（BMP，JPG），急，几天没解决的问题

Question

用DBMAGINGE怎么存取ACCESS里的图片（BMP，JPG），急，几天没解决的问题

Answer 1

loadformfile(fieldbyname("image").value);

Answer 2

我给你一段C++builder的代码
void __fastcall TForm2::BitBtn2Click(TObject *Sender)
{
   OpenPictureDialog1->FileName="";
     if (OpenPictureDialog1->Execute())
        {
           String f=OpenPictureDialog1->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;
                           }
                                              TField *zd = DataModule3->USRIFTable->FieldByName("PHOTO");
                    //  TField *zd=DataModule1->ADODataSet1->FieldByName("照片图像");
                        zd->Clear();  // 先清字段
                        TStream *bs=DataModule3->USRIFTable->CreateBlobStream(zd,bmWrite);
                        bs->Position=0;
                        j->SaveToStream(bs);
                        delete j;
                        delete bs;
                        DispJpg();
                     }
              }
        }
}

Answer 3

用imageen控件很简单，还可以设置JPEG的压缩率。
www.playicq.com有下。