如何用TWebBrowser 開一Html 檔 |
|
|
|
Panda
一般會員   發表：11 回覆：22 積分：6 註冊：2002-03-11 發送簡訊給我 |
|
|
領航天使
站長   發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
|
|
Panda
一般會員 發表：11 回覆：22 積分：6 註冊：2002-03-11 發送簡訊給我 |
|
|
領航天使
站長 發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
|
|
Panda
一般會員 發表：11 回覆：22 積分：6 註冊：2002-03-11 發送簡訊給我 |
|
|
Panda
一般會員 發表：11 回覆：22 積分：6 註冊：2002-03-11 發送簡訊給我 |
找到一些資訊,可以呈現一String 資料, 但仍不知如何呈現 stream or varintole 資料 引用來源 :http://forum.vclxx.org/topic.php?TOPIC_ID=3888&FORUM_ID=54&CAT_ID=3&Topic_Title=½аݦp¦µ²£¥Íhtml page ¨ìbrowser&Forum_Title=Internet (1)
n¦huses ActiveX (2)
procedure TForm1.Button1Click(Sender: TObject);
var
hr: HRESULT;
pUnkBrowser, pUnkDisp: IUnknown;
pStream: IStream;
hHTMLText: HGLOBAL;
pHtmlDoc: IDispatch;
pPersistStreamInit: IPersistStreamInit;
const
szHTMLText: PChar = 'This HTML content is being loaded from a stream';
IID_IPersistStreamInit: TGUID = (
D1:$7FD52380;D2:$4E07;D3:$101B;D4:($AE,$2D,$08,$00,$2B,$2E,$C7,$13));
begin
hHTMLText := GlobalAlloc(GPTR, StrLen(szHTMLText) 1);
if (hHTMLText = NULL) then Exit;
lstrcpy(pchar(hHTMLText), szHTMLText);
hr := CreateStreamOnHGlobal(hHTMLText, TRUE, pStream); pHtmlDoc := WebBrowser1.Document;
hr := pHtmlDoc.QueryInterface(IID_IPersistStreamInit, pPersistStreamInit);
if (SUCCEEDED(hr)) then
begin
hr := pPersistStreamInit.InitNew;
if (SUCCEEDED(hr)) then
begin
hr := pPersistStreamInit.Load(pStream);
end;
pPersistStreamInit := nil;
end;
end; (3)
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('about:blank');
end;
|
|
Panda
一般會員 發表：11 回覆：22 積分：6 註冊：2002-03-11 發送簡訊給我 |
解決了. var
hr: HRESULT;
pUnkBrowser, pUnkDisp: IUnknown;
pStream: IStream;
hHTMLText: HGLOBAL;
pHtmlDoc: IDispatch;
pPersistStreamInit: IPersistStreamInit;
szHTMLText: PChar;
const
IID_IPersistStreamInit: TGUID = (
D1:$7FD52380;D2:$4E07;D3:$101B;D4:($AE,$2D,$08,$00,$2B,$2E,$C7,$13));
begin
szHTMLText:=Pchar(memo1.Text);
hHTMLText := GlobalAlloc(GPTR, StrLen(szHTMLText) 1);
|
|
babyfish0226
一般會員 發表：9 回覆：82 積分：23 註冊：2002-06-14 發送簡訊給我 |
發表時間：2002-04-29 21:50:52
IP:61.223.xxx.xxx 未訂閱
系統時間：2024-04-24 13:00:49
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |