资源描述：
《《快递查询》word版》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、unituSercExpress;//http://122.224.96.3/donet/query.aspx?wen=130002817412&4lyq{本程序。作者:束继涛，QQ:32240972，公司网址:HTTP:\www.vifachina.com}interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,XPMan,PerlRegEx,ComObj,
2、ComCtrls,OleCtrls,SHDocVw,MSHTML,IdBaseComponent,IdComponent,IdTCPConnection,IdTCPClient,IdHTTP,IdCookieManager,ExtCtrls,jpeg,Math,IdCoder,IdCoder3to4,IdCoderMIME,Menus,AppEvnts,ShellAPI,Grids;typeTArray=array[1..10]ofstring;TfSercExpress=class(TForm)
3、edtSercExpress:TEdit;lbl1:TLabel;btnSercExpress:TButton;edtCode:TEdit;lbl2:TLabel;IdHTTST:TIdHTTP;IdHTTPSTGet:TIdHTTP;idckmngrST:TIdCookieManager;grp1:TGroupBox;img1:TImage;btn1:TButton;IdHTTPPIC:TIdHTTP;cbbSercExpress:TComboBox;lbl3:TLabel;tmr1:TTime
4、r;lbl4:TLabel;wb2:TWebBrowser;ApplicationEvents1:TApplicationEvents;strngrd1:TStringGrid;procedurebtnSercExpressClick(Sender:TObject);procedureFormCreate(Sender:TObject);procedurerb1Click(Sender:TObject);procedurebtn1Click(Sender:TObject);procedurerb4
5、Click(Sender:TObject);procedurecbbSercExpressClick(Sender:TObject);procedurewb2NewWindow2(Sender:TObject;varppDisp:IDispatch;varCancel:WordBool);procedureN1Click(Sender:TObject);procedurewb2DocumentComplete(Sender:TObject;constpDisp:IDispatch;varURL:O
6、leVariant);procedureApplicationEvents1Message(varMsg:tagMSG;varHandled:Boolean);privatefunctionGetStr(StrSource,StrBegin,StrEnd:string):string;functionGetsliptStr(varstr:String;falg:String):string;proceduretrimchar(varS:string;ch:string);procedureTC(v
7、ars:string;varsRet:TArray);//存储进数组{Privatedeclarations}public{Publicdeclarations}end;varfSercExpress:TfSercExpress;Data_LR:array[1..100,1..10]ofString;bSF,bYt,bST,bYZXB,bTT:Boolean;implementation{$R*.dfm}procedureSG_clear(SG:TStringGrid);vari,j:intege
8、r;beginfori:=0toSG.ColCount-1doforj:=0toSG.RowCount-1doSG.Cells[i,j]:='';SG.ColCount:=5;SG.RowCount:=1000;SG.Cells[0,0]:='序';SG.Cells[1,0]:='日期';SG.Cells[2,0]:='时间';SG.Cells[3,0]:='当前状态';SG.Cells[4,0]:='地点';SG.ColWidths[0]:=20;SG.ColWidths[1]:
