線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1111
推到 Plurk!
推到 Facebook!

如何顯示.doc文件??

 
kecc
一般會員


發表:1
回覆:4
積分:1
註冊:2002-07-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-07-31 10:30:38 IP:211.20.xxx.xxx 未訂閱
站長:      請問E-BOOK中是如何顯示不同的文件格式(.doc,.rtf,.htm....)      是用什麼元件.....      OleContainer 可以嗎?該如何用?         使用TWebBrowser      WebBrowser1.Navigate(檔案);      如何不會出現詢問視窗,直接在WebBrowser中顯示.doc檔?        如用Memory Stream 
 
      S:=TMemoryStream.Create;
      s.LoadFromFile('c:\test.doc');
      s.Position := 0;
      vi.Navigate('about:blank');
     (vi.Document as IPersistStreamInit).Load(TStreamAdapter.Create(s,soReference));
     S.Free;
則出現下面錯誤訊息 ..."Access violation at address 004CB254 in module 'TWebBrowser.exe', Read of address 00000000" 這是什麼意思ㄚ? 不懂?
delphiwww
資深會員


發表:145
回覆:363
積分:368
註冊:2002-03-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-08-01 08:29:57 IP:210.243.xxx.xxx 未訂閱
直接用webbrowser1.Navigate('c:\test.doc'); 即可
kecc
一般會員


發表:1
回覆:4
積分:1
註冊:2002-07-05

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-08-01 08:49:35 IP:211.20.xxx.xxx 未訂閱
引言: 直接用webbrowser1.Navigate('c:\test.doc'); 即可
感謝delphiwww大大回應...... 那如何不讓WORD的工具列顯示出來.... 想要唯讀狀態...該如何做....
kecc
一般會員


發表:1
回覆:4
積分:1
註冊:2002-07-05

發送簡訊給我
#4 引用回覆 回覆 發表時間:2002-08-01 16:38:29 IP:211.20.xxx.xxx 未訂閱
如用TWebbrowser讀入Memory Stream 該如何做.... 仿照http://www.delphi3000.com/redirect.asp?Link=../article/1934/LoadWBContent.zip寫法.... S:=TMemoryStream.Create; s.LoadFromFile('c:\test.doc'); s.Position := 0; Twebbrowser.Navigate('about:blank'); (Twebbrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(s,soReference)); S.Free; 則出現下面錯誤訊息 ..."Access violation at address 004CB254 in module 'TWebBrowser.exe', Read of address 00000000" 請問各位大大該如何解?!
kecc
一般會員


發表:1
回覆:4
積分:1
註冊:2002-07-05

發送簡訊給我
#5 引用回覆 回覆 發表時間:2002-08-03 11:48:44 IP:211.20.xxx.xxx 未訂閱
引言: 則出現下面錯誤訊息 ..."Access violation at address 004CB254 in module 'TWebBrowser.exe', Read of address 00000000"
這個訊息是QueryInterface錯誤.... 查help看一下.... function QueryInterface(const IID: TGUID; out Obj): HResult; reintroduce; stdcall; 可是不知該如何用... 另外下面的語法是什麼意思? IID_IPersistStreamInit: TGUID = ( D1:$7FD52380;D2:$4E07;D3:$101B;D4:($AE,$2D,$08,$00,$2B,$2E,$C7,$13));
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#6 引用回覆 回覆 發表時間:2002-08-16 09:22:26 IP:211.22.xxx.xxx 未訂閱
引言: 另外下面的語法是什麼意思? IID_IPersistStreamInit: TGUID = ( D1:$7FD52380;D2:$4E07;D3:$101B;D4:($AE,$2D,$08,$00,$2B,$2E,$C7,$13));
GUID 意指 Globally Unique Indentifier. GUID 是一個 16 Byte unique number. 所有的 COM interfaces, 都需要一個唯一的 GUID. TGUID 的結構在 Delphi 定義如下:
  TGUID = record
    D1: LongWord;
    D2: Word;
    D3: Word;
    D4: array[0..7] of Byte;
  end;
TGUID 在 Delphi 內有兩種表示方法, 一種是:
  IID_IPersistStreamInit: TGUID = (D1: $7FD52380; D2: $4E07; D3: $101B; D4: ($AE,$2D,$08,$00,$2B,$2E,$C7,$13));
另外一種就是:
  IID_IpersistStreamInit := ['{7FD52380-4E07-101B-AE2D-08002B2EC713}'];
系統時間:2024-06-02 2:21:44
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!