关于TWebBrowser问题(100分)

  • 主题发起人 主题发起人 w_j_y
  • 开始时间 开始时间
W

w_j_y

Unregistered / Unconfirmed
GUEST, unregistred user!
可否将以下C#编码转化为DELPHI
C#:
string url="http://www.yn-home.com";
this.webBrowser.Url = new System.Uri(url);
System.IO.StreamReader strm = new System.IO.StreamReader(this.webBrowser.DocumentStream, Encoding.GetEncoding("gb2312"));
string docment = strm.ReadToEnd();
MessageBox.Show(strm.ReadToEnd());
 
var
url:olevariant;
stream:TStringStream;
str:string;
psi: IPersistStreamInit;//----
begin
url:='http://www.yn-home.com;
webBrowser.Navigate2(url);
stream:TStringStream.create('');
try
OleCheck(WebBrowser.Document. QueryInterface(IPersistStreamInit, psi));
OleCheck(psi.InitNew);
OleCheck(psi.save(stream));
str:=stream.DataString;
showmessage(str);
...
finally
stream.free;
psi:=nil;
end;
end;

大概如此,没有验证!
 
多谢yeskert1关注,你的思路是可行的(代码有些需修改),我已经抓取到数据,但不能解决转化为中文的问题,还请多指教
 
例如:
Arr[0] = '9BALL%5FASIA';
Arr[1] = '#FFFFFF';
Arr[2] = '#000000';
Arr[3] = '亚洲生力九号球巡回赛';
Arr[4] = '200617694';
Arr[5] = '-120';
Arr[6] = '15/09';
Arr[7] = '10:30PM';
Arr[8] = 'False';
Arr[9] = '蘇菲克里 (印尼) (主)';
Arr[10] = '盧雅 (菲律宾)';
 
再次感谢YESKERT1的帮助!
 

Similar threads

S
回复
0
查看
915
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
520
import
I
后退
顶部