請問先進要如何將影像資料庫裡的影像ASSIGN Graphics::TBitmap *Data_Img = new Graphics::TBitmap 若處理DATA_IMG...要如何將其影像放入指定的DBImage理..謝謝各位先進

bee0606您好：    以下是針對您所提問題的一個參考解法：    (一) 將Graphic欄位的內容讀入Image中 Image1->Picture->Assign(Table1->FieldByName("Photo"));     (二) 任意讀入bmp或jpg檔，並將其存入Graphic欄位中

void __fastcall TForm1::btn2DBImageClick(TObject *Sender)
{ OpenDialog1->Filter = "*.jpg;*.jpeg;*.bmp|*.jpg;*.jpeg;*.bmp";      if ( OpenDialog1->Execute() )
    { Graphics::TBitmap *bmp= new Graphics::TBitmap;
      try { Image1->Picture->LoadFromFile(OpenDialog1->FileName);
            bmp->Height=Image1->Picture->Height;
            bmp->Width =Image1->Picture->Width;
            bmp->Canvas->Draw(0, 0, Image1->Picture->Graphic); // Graphic for JPEG format.
            Image1->Height=bmp->Height;
            Image1->Width =bmp->Width;
            Image1->Picture->Assign((Graphics::TBitmap*)bmp);  // transfering to JPEG format
            Table1->Edit();
            Table1->FieldByName("Photo")->Assign(Image1->Picture);
            Table1->Post();
          }
      __finally
          { delete bmp;
          }
    }    } 

P.S. 1. Photo是我假設的Graphic欄位。 2. Graphic欄位似乎只能存入bmp格式的圖形資料(我不完全確定)。 3. 將DBImage連向Graphic欄位即可顯示該資料的圖形。 Enjoy it !!

真讚....感謝先進提供方法....