請較一下各位：有辦法讓DBGrid中的[Graphic]顯示於Timage嗎？    

http://delphi.ktop.com.tw/topic.php?topic_id=58273 http://delphi.ktop.com.tw/topic.php?topic_id=38503

[quote] http://delphi.ktop.com.tw/topic.php?topic_id=58273 http://delphi.ktop.com.tw/topic.php?topic_id=38503 請問一下有沒有BCB的可以參考阿！那兩個都是Delphi寫的， 我都有看了也試了，因為語法還是有些出入，我改了一些之後 ，還有一堆錯。 拜託大家幫忙一下囉

請PO程式碼上來,好讓前輩們幫您看看問題在哪邊

這是我參看http://delphi.ktop.com.tw/topic.php?topic_id=38503 版主的第一個版本(不存入資料庫)，錯錯錯好多喔！ "valentine"是Database Desktop---->Table----->valentine.db 以下是我的程式，拜託諸位前輩看看囉！ void __fastcall TForm1::Button1Click(TObject *Sender) { OpenPictureDialog1->Execute(); Table->valentine->Insert; Table->FieldByName('Picture')->AsString:=ExtractFileName(OpenPictureDialog1->filename); Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName); Table->valentine->post; } //--------------------------------------------------------------------------- void __fastcall TForm1::DataSource1DataChange(TObject *Sender, TField *Field) { if FileExists(DBEdit->Text) Image1->Picture->LoadFromFile(DBEdit->Text); else Image1->Picture := nil; }

請問一下, 可以用 TDBImage 取代 TImage 可以嗎? 也比較方便吧...    

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (OpenPictureDialog1->Execute()) 
  {
    Table->Insert;
    Table->FieldByName("Status").AsString = "test";
    Table->FieldByName("Space").AsString = "test";
    ((TBlobField *)(Table->FieldByName("Photo")))->LoadFromFile(OpenPictureDialog1->filename);
    Table->post;
  }
}

至於 圖案顯示就交給 DBImage 去做吧...

malanlk您好：我有測了一下，可是它會顯示一個錯誤，"Undefined symbol 'Table'"，這可怎麼辦阿？

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (OpenPictureDialog1->Execute()) 
  {
    Table->Insert;
    Table->FieldByName("Status").AsString = "test";
    Table->FieldByName("Space").AsString = "test";
    ((TBlobField *)(Table->FieldByName("Photo")))->LoadFromFile(OpenPictureDialog1->filename);
    Table->post;
  }
}

請將 紅色的 Table 換成你 Form1 上面的 TTable 元件的名字

malanlk您好：     我還是有以下這些錯誤耶，幫忙看看囉謝謝！      

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (OpenPictureDialog1->Execute()) 
  {
    Table1->Insert();
    Table1->FieldByName("Status")->AsString = "test";
    Table1->FieldByName("Space")->AsString = "test";
    ((TBlobField *)(Table1->FieldByName("Photo")))->LoadFromFile(OpenPictureDialog1->filename);
    Table1->post();
  }
}

Sorry.... 發表人 - malanlk 於 2005/09/15 15:44:40

malanlk 您好：還是謝謝你的幫忙，我在試試其他的吧！                希望有其他的救星出現囉！

Good luck!

用不同的元件 用非BCB 內提供的元件即可! 在本站中可以找到! MY MSN:atein@ms50.url.com.tw DHM

------
ATEIN

ATEIN您好： 不好意思我看不懂您要表達的意思，而且那個連結好像是mail， 不是網頁的耶！可以麻煩您在解釋一遍嗎？

這是我的msn帳號啦 -------------------- 我是說,您可以使用第三方元件 比如 ,infopower 3.0版 即可以dbgrid 上show 圖 或者本站上也可找到類似可以顯示圖形的元件 DHM

------
ATEIN

ATEIN您好： 可以請問您可以跟我指示一下網頁在哪兒？如果可以的話， 麻煩您了。謝謝

yitcaroll 妳好：    不知道妳的問題解決了沒有？以下是看完本篇所有討論後所整理出來的資料，第一個部分是修改插入圖檔的程式碼，第二個部份是顯示圖像於 Form 上，妳參考一下吧。    第一個部分：

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if (OpenPictureDialog1->Execute()) {
        Table1->Insert();
        Table1->FieldByName("Status")->AsString = "Status" IntToStr(Table1->RecordCount);
        Table1->FieldByName("Space")->AsString = "Space" IntToStr(Table1->RecordCount);
        ((TBlobField *)(Table1->FieldByName("Photo")))->LoadFromFile(OpenPictureDialog1->FileName);
        Table1->Post();
    }
}

第二個部份：

1. 由妳開題篇的貼圖來看，妳應該已經設了 DBGrid 元件於 Form 上，這個部份就不再做說明了。
2. 在 Form 上面放一個 DBImage。
3. 用滑鼠點選 DataSource 屬性，在點選該屬性欄位右邊的向下箭頭，選擇妳的 DataSource，例如：DataSource1。
4. 用滑鼠點選 DataField 屬性，在點選該屬性欄位右邊的向下箭頭，選擇 Photo 項目。

7 天天敲鍵盤 v 時時按滑鼠 8