Delphi与网页的交互问题！！！！！

jxqn_liu 2013-01-22 04:27:48

难道Delphi与网页的交互只能通过WebBrowser控件吗？
WebBrowser控件中加载网页不是和浏览器中不同了吗，WebBrowser不也是算一个浏览器了。
在WebBrowser打开的网页和浏览器中打开的网页完全都是两码事了。

说下事情原委吧：
这边需要将系统中的费用数据传递到税务网站中实现自己填制票据数据的功能，然后客户只要通过点击确认打印就行。
所以这里涉及到向浏览器中指定的网页填充数据的操作！

有那么大哥做过类似的功能，麻烦指点下小弟哈！

...全文

1398 24 打赏收藏转发到动态举报

写回复

用AI写文章

24 条回复

切换为时间正序

请发表友善的回复…

发表回复

c6372830 2014-09-23

打赏
举报

没有分数提问,你的不是我想要的~

wy610739572 2013-08-08

打赏
举报

好像还是没有解决问题

jxqn_liu 2013-01-30

打赏
举报


var
  IE: Variant;
  Doc:IHTMLDocument2;
  InputEle: IHTMLInputElement;

begin
  IE := CreateOleObject('InternetExplorer.Application');
  IE.Visible := True;
  IE.Navigate('C:\Test.html');

  Doc := (IDispatch(IE.document) as IHTMLDocument2); 
  if Doc=nil then exit;
  InputEle:=(Doc.all.item('A204098',0) as IHTMLInputElement);
  InputEle.Value := 'TestText';
end;

最后实现处理

jxqn_liu 2013-01-30

打赏
举报

引用 19 楼 stmal 的回复:

怎么没有人提到IHTMLDocument2呢？虽然执行效率比idhttp低，但很实用。

现在就是用的IHTMLDocument2，先是通过CreateOleObject创建一个对象实现的！

fbiboss 2013-01-30

打赏
举报

就用WEBBROWSER就好啊

stmal 2013-01-27

打赏
举报

怎么没有人提到IHTMLDocument2呢？虽然执行效率比idhttp低，但很实用。

YshuuiNew 2013-01-25

打赏
举报

自己写很难哦，你能自己写浏览器内核了。你找不到需要填写数据的地方，或者是一个textbox或者是一个combbox. WebBrowser使用的是IE的内核，你看看源代码，只引用写了多少行？自动网页填充数据也必须是在网页已经打开的情况下完成的。

jxqn_liu 2013-01-23

打赏
举报

引用 13 楼 zhangw198636 的回复:

你不会是搞财务软件的吧。我倒是做过自动申报地税申报的功能。实现税局申报的自动登录自动申报填数功能。不是很麻烦的。

不是这只是一个辅助工具，省去了客户手动填单的过程

jxqn_liu 2013-01-23

打赏
举报

引用 12 楼 kiboisme 的回复:

不是非用WebBrowser才得到内容。可以从IE中直接获取窗口Handle，然后获取Com+ Shell.Application获取IWebBrowser接口，就可以直接操作，js执行后的结果同样能得到。

多谢！稍后试试看

jxqn_liu 2013-01-23

打赏
举报

引用 11 楼 foxyy8888 的回复:

function TfrmMain.GetXXXXXXXXXStatus(const xh: string; out xx, zylb, qdh, zysj, ch, hph, fz, dz, zt: string): Boolean; var PostParams :TStrings; s ,Html:string; Match :TMatch……

谢谢哥们！今天试试看

zhangw198636 2013-01-23

打赏
举报

你不会是搞财务软件的吧。我倒是做过自动申报地税申报的功能。实现税局申报的自动登录自动申报填数功能。不是很麻烦的。

yayongm 2013-01-23

打赏
举报

相对于其它方法,网页填写貌似是最简单最有效的方法鸟... 当然,还有就是,地税提供接口...这个,这个,还是省了吧...

蓝色光芒 2013-01-22

打赏
举报

不是非用WebBrowser才得到内容。可以从IE中直接获取窗口Handle，然后获取Com+ Shell.Application获取IWebBrowser接口，就可以直接操作，js执行后的结果同样能得到。

OO_is_just_P 2013-01-22

打赏
举报

function TfrmMain.GetXXXXXXXXXStatus(const xh: string; out xx, zylb, qdh, zysj, ch, hph, fz, dz, zt: string): Boolean; var PostParams :TStrings; s ,Html:string; Match :TMatch; IndyHttp :TIdHttp; IndyCookieManager :TIdCookieManager; IndyZlib: TIdCompressorZLib; begin xx :=''; zylb :=''; qdh :=''; zysj :=''; ch :=''; hph :=''; fz :=''; dz :=''; zt :=''; Randomize; Result :=True; PostParams :=TStringList.Create; IndyHttp :=TIdhttp.Create(nil); IndyCookieManager :=TIdCookieManager.Create(nil); IndyZlib :=TIdCompressorZLib.Create(nil); try try //配置参数 IndyHttp.CookieManager :=IndyCookieManager; IndyHttp.Compressor :=IndyZlib; IndyHttp.Disconnect; IndyHttp.HandleRedirects :=False; IndyHttp.AllowCookies :=True; IndyHttp.Request.CustomHeaders.Clear; IndyHttp.HTTPOptions :=[hoForceEncodeParams]; IndyHttp.Request.Accept :='text/html, application/xhtml+xml, */*'; IndyHttp.Request.AcceptEncoding :=''; IndyHttp.Request.AcceptLanguage :='zh-CN'; IndyHttp.Request.CacheControl :='no-cache'; IndyHttp.Request.Connection :='Keep-Alive'; IndyHttp.Request.UserAgent :='Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0)'; IndyHttp.Request.Host :='XXXXXXXXXXXXXXXXXX'; IndyHttp.Request.Referer :='XXXXXXXXXXXXXXXXXXXXXXXX.jsp'; IndyHttp.Request.ContentType :='application/x-www-form-urlencoded'; PostParams.Add('number1='+xh); PostParams.Add('number2='); PostParams.Add('number3='); PostParams.Add('number4='); PostParams.Add('number5='); PostParams.Add('Submit=确定'); Html :=IndyHttp.Post('http://XXXXXXXXXXXXXXXXXX.jsp',PostParams); //sl.SaveToFile('D:\111.html'); //sl.LoadFromFile('D:\111.html'); s :=Copy(xh,1,4); s :=s + ' ' +Copy(xh,5,7); s := s+ '(?:.*\r?\n){4}.*?>(.*?) *\r?\n'; s := s+ '(?:.*\r?\n){5} *(.*?) *\r?\n'; s := s+ '(?:.*\r?\n){4}.*?>(.*?) *\r?\n'; s := s+ '(?:.*\r?\n){5} *(.*?) *\r?\n'; s := s+ '(?:.*\r?\n){3}.*?>(.*?) *\r?\n'; s := s+ '(?:.*\r?\n){3}.*?>(.*?) *\r?\n'; s := s+ '(?:.*\r?\n){5} *(.*?) *\r?\n'; s := s+ '(?:.*\r?\n){4} *(.*?) *\r?\n'; s := s+ '(?:.*\r?\n){4}.*?>(.*?) *\r?\n'; Match :=TRegEx.Match(Html,s,[roMultiLine]); if Match.Success then begin xx :=Match.Groups[1].Value; zylb :=Match.Groups[2].Value; qdh :=Match.Groups[3].Value; zysj :=Match.Groups[4].Value; ch :=Match.Groups[5].Value; hph :=Match.Groups[6].Value; fz :=Match.Groups[7].Value; dz :=Match.Groups[8].Value; zt :=Match.Groups[9].Value; end; Delay(Random(2000)+1000); except Result :=False; end; finally PostParams.Free; IndyHttp.Disconnect; IndyHttp.Free; IndyCookieManager.Free; IndyZlib.Free; end; end;