在表單上特定區域，載入PPT檔案顯示 |
|
尚未結案
|
|
g9221712
高階會員   發表：145 回覆：344 積分：162 註冊：2006-07-06 發送簡訊給我 |
各位前輩：
最近想用一個介面，就是在表單上，放上一個Panel，然後一個「關閉按鈕」，然後在表單下方崁入一個PowerPoint提供播放， 且可以利用滑鼠，點選下方的PowerPoint切換下頁，或者由上方加上「首頁」「上一頁」「下一頁」「尾頁」，因為想做多媒體 展示用，想說這樣可以透過Form，然後篩選特定需要展示的PPT檔案，不不會有每次都開啟PowerPoint的感覺，不知道要怎麼達成， 我目前有使用，方式直接開啟ppt檔案，但是會直接開啟，無法在表單上操作，最理想的方式是，顯示在Form上特定的區塊，如OleContainer 但是，我OleContainer元件拉放好了，卻找不到OleContainer以Delphi語法操作的實例，找到的都是BCB範例，不知道要怎麼改成Delphi ，不知道有哪些作法可以達成，請前輩們，給予提示。 萬分感謝！ var PowerPointApp: Variant; begin // ComObj COM utilities try PowerPointApp := CreateOleObject('PowerPoint.Application'); except PowerPointApp.quit; end; PowerPointApp.Visible := true; PowerPointApp.Presentations.Open(ExtractFilePath(Application.ExeName) '測試畫面.ppt', False, False, True); PowerPointApp.ActivePresentation.SlideShowSettings.Run; PowerPointApp.ActivePresentation.SlideShowWindow.View.Next; // PowerPointApp.ActivePresentation.SlideShowWindow.View.GoToSlide(2); PowerPointApp.ActivePresentation.SlideShowWindow.View.Previous; PowerPointApp.ActivePresentation.SlideShowWindow.View.Last; // PowerPointApp.quit;
------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」 程式寫的越久，卻發現自己越來越不會寫程式！ 編輯記錄
g9221712 重新編輯於 2007-06-14 02:03:25， 註解 無‧
|
|
wameng
版主 發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
>不不會有每次都開啟PowerPoint的感覺
這點您有所誤解。OleContainer 可提供不需載入PP預覽。 但是如果需展示執行結果並瀏覽下一頁。這仍然需載入PowerPoint。 這是OLE機制。無法改變。 這是OleContainer用法： <textarea class="delphi" rows="10" cols="60" name="code">var Pres: _Presentation; begin OleContainer1.CreateObjectFromFile('c:\AA.PPT',False); OleContainer1.Run; Pres := OleContainer1.OleObjectInterface as _Presentation; Pres.SlideShowSettings.Run; Pres.SlideShowWindow.View.Next; end; </textarea> 實作建議寫一個自動將瀏覽結果匯出圖片。 在利用圖片作展示上一頁下一頁。
編輯記錄
wameng 重新編輯於 2007-06-14 11:00:56， 註解 無‧
|
|
g9221712
高階會員 發表：145 回覆：344 積分：162 註冊：2006-07-06 發送簡訊給我 |
版主大人及各位前輩：
感謝版主的回應，您的作法是可以執行，但是我在Office2003環境下，還是會開啟PowerPoint的程式介面，也就是會看到PowerPoint的選單， 但是我最主要的構想是，讓Delphi弄一個From然後裡面有一個區域，類似Panel一樣的區域，顯示全螢幕的PPT，目前的我的找到的可行 作法是，利用WebBrowser這個物件來，類似Browser瀏覽PPT檔案，但是又產生了另外一個問題，就是PowerPoint，在點選切換到下一頁時 需要用到滑鼠滾軸的捲動，不知道是否能以Form上面的按鈕，達到捲動的功能，因為我是用於觸控螢幕上的資訊展示，觸控螢幕上，只能 模擬滑鼠的左鍵點選動作，並無法模擬捲動的效果，不知道是否各位前輩可以提供作法。
------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」 程式寫的越久，卻發現自己越來越不會寫程式！ |
|
wameng
版主 發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
發表時間：2007-06-14 02:02:42
IP:220.134.xxx.xxx 訂閱
系統時間：2024-05-02 21:32:41
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |