DELPHI 美团验票

一、整体流程说明
1、DELPHI +Chromium 控件。因为美团网站不支持webbrowser
2、采用模拟人工操作方式与美团互动(高级方法也有,但学习一下去感觉不值得,还是以解决问题为主)
3、采用Chromium的缓存功能保持长时间连接
4、功能完成后适当的优化验票流程
二、Chromium控件
1、谷歌浏览器的控件。
2、安装控件后,自带的有demo。用里面的minbrowser的作基础模板
3、Chromium1LoadEnd事件是加载完网站的一部分后响应,框架一类的都有反应。
关键代码
frame.GetSourceProc(CallbackGetSource);
4、函数
procedure CallbackGetSource(const src: ustring);
var
source: ustring;
i: integer;
begin
//src 就是html
source := src;
//MiniBrowserFrm.Memo1.Text:=source;
//MiniBrowserFrm.Memo1.Lines.Add(’--------------------’);
//MiniBrowserFrm.Memo1.Lines.Add(’--------------------’);
//MiniBrowserFrm.Memo1.Lines.Add(source);
if MiniBrowserFrm.Edit1.Text = ‘切换美团模式’ then
begin
if meituan_check_type = ‘’ then
begin
if Pos(‘html http-equiv=“proma”’, source) > 5 then
begin

// MiniBrowserFrm.Edit1.Text := ‘美团页面刷新完成,等待输入’;
MiniBrowserFrm.Edit1.Text := ‘等待验票’
// i := GetTickCount;

  end;
end;

end;

end;
三、交互过程
1、打开等待验票界面
2、输入票号
3、回车等验票操作
4、获取结果
5、判断结果


版权声明:本文为weixin_44387646原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接和本声明。