如何用webbrowser得到网页中表的一个单元格中字体、字号等? 如题!多谢!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果在表单中定义的字体字号属性,可通过分析网页源代码获得.而现在一般都使用CSS定义,想获取到就麻烦了. Function GetWebPage(const Url: string):string; {获取网页源代码}var Session, HttpFile:HINTERNET; szSizeBuffer:Pointer; dwLengthSizeBuffer:DWord; dwReserved:DWord; dwFileSize:DWord; dwBytesRead:DWord; Contents:PChar;begin Session:=InternetOpen('',0,niL,niL,0); HttpFile:=InternetOpenUrl(Session,PChar(Url),niL,0,0,0); dwLengthSizeBuffer:=1024; HttpQueryInfo(HttpFile,5,szSizeBuffer,dwLengthSizeBuffer,dwReserved); GetMem(Contents,dwFileSize); InternetReadFile(HttpFile,Contents,dwFileSize,dwBytesRead); InternetCloseHandle(HttpFile); InternetCloseHandle(Session); Result:=StrPas(Contents); FreeMem(Contents);end;获取代码后不就看到了Memo1.Text := GetWebPage('http://www.baidu.com/index.asp'); DELphi+SQL----对数据库进行查询等操作 当接上设备的串口后,再启动软件,软件能自动识别属于自己的串口? Excel 如何调用 Delphi 编译的 Dll 中的函数? Delphi 7 用odbc 连接mysql问题 重画窗口的标题栏问题??? ###DX,请教关于窗口隐藏的问题!### 都在做什么? 我的数据是用listview 显示的 ,如何把listview里的数据用Qreport 打印出来, DBgrid中的棘手问题 问一个问题 一个关于递归的程序请教 自定义组件怎么不显示caption
而现在一般都使用CSS定义,想获取到就麻烦了.
var
Session,
HttpFile:HINTERNET;
szSizeBuffer:Pointer;
dwLengthSizeBuffer:DWord;
dwReserved:DWord;
dwFileSize:DWord;
dwBytesRead:DWord;
Contents:PChar;
begin
Session:=InternetOpen('',0,niL,niL,0);
HttpFile:=InternetOpenUrl(Session,PChar(Url),niL,0,0,0);
dwLengthSizeBuffer:=1024;
HttpQueryInfo(HttpFile,5,szSizeBuffer,dwLengthSizeBuffer,dwReserved);
GetMem(Contents,dwFileSize);
InternetReadFile(HttpFile,Contents,dwFileSize,dwBytesRead);
InternetCloseHandle(HttpFile);
InternetCloseHandle(Session);
Result:=StrPas(Contents);
FreeMem(Contents);
end;
获取代码后不就看到了
Memo1.Text := GetWebPage('http://www.baidu.com/index.asp');