void __fastcall TForm2::CppWebBrowser1DocumentComplete(TObject *Sender,
      LPDISPATCH pDisp, Variant *URL)
{
    Variant disp, dh1, dh2, dh3, de1, de2, de3;
    disp = CppWebBrowser1->Document;        dh1 = disp.OleFunction("getElementById","bb1"); //取得網頁物件ID按鈕
    dh2 = disp.OleFunction("getElementById","bb2"); //取得網頁物件ID按鈕
    dh3 = disp.OleFunction("getElementById","bb3"); //取得網頁物件ID按鈕        if(! dh1.IsEmpty()) //如果有找到物件
    {
       de1 = dh1.OlePropertyGet("value"); //取得value的值
       de2 = dh2.OlePropertyGet("value"); //取得value的值
       de3 = dh3.OlePropertyGet("value"); //取得value的值
    }
}    

這是我動態建立出來的 Form2 我在Form2建立的CppWebBrowser1元件 如果我一直重復呼叫Form2 disp = CppWebBrowser1->Document; <---這一行會導致記憶體一直增加,我在xp觀察到的 如果沒有上述語法則 form2 (開啟)(關閉)記憶體也正常的釋放 一直找不到原因煩請前輩幫忙

a007: 直接用CppWebBrowser1->Document的interface來達到功能。 如果用Variant去接他時，他會複製自已一份，但不會釋放自已。 像類似這種包裝好的delphi interface，最好不要做轉資料型....

pwipwi 前輩你好 請問你說的 (直接用CppWebBrowser1->Document的interface來達到功能) interface 我不知道它的使用方法找不到介紹使方法,他的意思是甚麼作用呢 可以請 pwipwi 給一段簡短範例嗎 感謝 pwipwi

 
void __fastcall TForm2::CppWebBrowser1DocumentComplete(TObject *Sender,
      LPDISPATCH pDisp, Variant *URL)
{
    CppWebBrowser1->Document;    }    

經過再一次長時間測試 CppWebBrowser1->Document; 只要加入這一語法就會無法釋放記憶體 但如果我改為 form2 不用動態建立 觀察記憶體即正常狀態 請大大們解釋一下讓小第了解這個迷