環境：DELPHI7
IE6 IE8 IE9
問題描述：
在WebBrowser1里面 增加自定義 HTML語言，然后把鏈接地址記錄后發現問題。
同樣一程式
在裝有IE6的XP里面，text值 是：about:blankTFXXXXXXXXXXX
在裝 有IE8,9XP里面，text值 是：about:TFXXXXXXXXXXX
兩者相差：blank
怎么會出現如下情況呢？
procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject;
const Text: WideString);
begin
memo2.Lines.Add(text);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
WebBrowser1.Navigate('about:blank');
sethtml(WebBrowser1,memo1.Text)
end;
procedure TForm1.sethtml(const WebBrowser: TWebBrowser;
const Html: string);
var
Document1: IHtmlDocument2;
v:oleVariant;
begin
Document1 := WebBrowser.Document as IHtmlDocument2;
if (Assigned(Document1)) then begin
v := VarArrayCreate([0, 0], varVariant);
v[0] := Html;
//Document1.Writeln(PSafeArray(TVarData(v).VArray));
Document1.Writeln(PSafeArray(TVarData(v).VArray));
Document1.close;
end;
end;
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
怎么都沒人來的轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/137846.html
標籤：數據庫相關