webbrowser

發文回覆瀏覽次數：770

推到 Plurk!

推到 Facebook!

尚未結案

mchakuna
一般會員

發表：41
回覆：45
積分：17
註冊：2004-01-07

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-03-02 19:32:16

IP:211.147.xxx.xxx 未訂閱

我按论坛上的贴子直接对twebbrowser元件加入HTML码，能显示出来。这段代码太约是

 procedure TForm1.SetHtml(const Html: string);
var
    hr: HRESULT;
    pUnkBrowser, pUnkDisp: IUnknown;
    pStream: IStream;
    hHTMLText: HGLOBAL;
    pHtmlDoc: IDispatch;
    pPersistStreamInit: IPersistStreamInit;
const
    IID_IPersistStreamInit: TGUID = (
        D1:$7FD52380;D2:$4E07;D3:$101B;D4:($AE,$2D,$08,$00,$2B,$2E,$C7,$13));
begin
    hHTMLText := GlobalAlloc(GPTR, StrLen(Pchar(html))   1);
    if (hHTMLText = NULL) then Exit;
    lstrcpy(pchar(hHTMLText), PChar(html));
    hr := CreateStreamOnHGlobal(hHTMLText, TRUE, pStream);        pHtmlDoc := Self.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;

但每当我refresh页面后，再调用这个sethtml就是不能再显示，变成空白了。请问如何解决

系統時間：2024-11-23 2:12:32

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！