Delphi通过WebService开发Web服务端和手机客户端

1、Delphi通过WebService开发Web服务端和手机客户端介绍本文早介绍了DelphiXE5通过WebService开发Web服务端和手机客户端，下面是操作的详细过程。我们开发一个三层的android程序建立一个webservicesstand-alonevclapplication作为手机访问的服务端1、new->other->webservices<Delpki115Fii*EditVi*wRi威*M妙Trij+ctRuhWifdewMtlpII1吕JCLF*r*ihpplidtiotl-StlpfiiJIlUSp,n-'昭VCL低Ifl揶理丄“*194-f

2、tlphk1f*JOpenFr.Ctrl+FllFZ4JireHoiik*yDtsktopAppliic&lion-DelphiOp»nfhV-trsidnC-vntr«1pen.FirtKIcnk*MobItkp-plictlion-DelphiFxreM<jrJkeyMetr&polisHIAufplication-DelphiZ«ckt(«-Dtlphiart事2a>s:rrfrjectAi.>.AllSlift+Ctrl+£CloseJTt兀LH餐-H*lphiJireUDnktyFor«-D

3、tlpihiFtrtMajjkiyIoll1fFor*-DlpKi彳T七-D«lphiCl«iwAll+Exi<2、选择stand-alonevclapplication3、这里使用默认端口80804、选择创建接口OEieii&CMer；mJ；剧：5、给服务起个名字匚odeg匕仃urdtionI?Generatecomments'GeneratesamplemethodsServiceactivationmodel:|pr陽q"乩Cancel6、点ok后保存工程，保存为目录如下:SffProiettroupl-Androidrver.ewe4

4、-/BuildConfigurations(Debug)阡TargetPlatformsCWin3£)工AdraidServIcesJmpl.-扫/klroidSrviceslntf.pas-宣Mainform,pas匚首MariFoKin.dFmSBQ匡wm,dfm7、至此为止，什么代码都不写，点击运行，我们看到8、启动并点击openbrowser按钮在浏览器里看到<J4mJr疡ptvpt交件CT)舟总IE：N昌ocHhft-Gi)r=1(11JilAndroidServer-ServiceInfoPageAndroidServer-PortTypcs:lAdlroldSii

5、prvicesnsdi*XWSDLPublLsIlWSCLIListsallthePortlypespublishedbvthisServiceGrttPortTypeLfrst3QetWSDflLForlPortTypcAGetTfpc!>¥ins£ibIWSILJInktg-VSFi'h-.pmtk!u1nIi111«11'ivk-,h"L一个web服务就创建完成了。I,接下来创建一个返回数据集的过程，用webservices发布，供手机端调用。这里我使用firedac1、打开上一篇自动创建的WebModule然后分别拖放以下数

6、据连接控件FDConnection1:firedac连接数据库的FDPhysMSSQLDriverLink1:数据驱动选的是sqlserver，另外还有db2,oracle,acess,excel,sqllite,mysql等FDQuery1:相当于adoqueryDataSetProvider1:delphi的providerClientDataSet1:delphi的我最喜欢的cds2、数据库的连接首先用FDConnection1连接sqlserver服务器，在控件上邮件设置一下信息3、其他数据控件连接FDqueryl已经自动连上了connection，我们在sql里写以下语句SOAP&#

7、39;j1Vr*=«-HTTPSoapOlspatcher1即-HTTPSoapPascallnvcikftrl»n=a:TER二；二；:;:FDOiisrvIWSDLHTMLPuNishb：；FDPhysMSS接下来DataSetProviderl连好:工二二：二工二FDCannerhnnl的providernamefdqueryl,clientdatasetl选择DataSetProviderl4、在WebModule中的public中实现以下代码functionTAndroidWM.GetEmployee_Mi:widestring;beginwithclientda

8、taset1dobeginclose;open;result:=xmldata;close;end;end;5、在AdroidServicesImpl.pas引用WebModule的接口实现的public单元实现以下代码functionGetEmployee_mi:widestring;stdcall;functionTAdroidServices.GetEmployee_mi:string;vardm:TAndroidWM;begindm:=TAndroidWM.Create(nil);result:=dm.GetEmployee_Mi;dm.Free;end;单元实现以下6、在Adroid

9、ServicesIntf.pas代码typelAdroidServices=interface(llnvokable)'9B1596C5-AD43-4849-830E-0B82D8BAA043'functionGetEmployee_mi:widestring;stdcall;end;6、运行server查看webservice是否实现了GetEmployee_mi月服务服务端至此完成，实现了用clientdataset的xmldata返回数据集的过程，当然您可以对返回的xml进行压缩和解压缩的操作，减小网络传输压力。我们把供手机端调用的web服务完成，接下来实现手机端调用we

10、bservices获取数据L1、新建firemonkeymobileapplication2、选择blankapplicationRreMonkiEiyMobilizApplicatiorii5dwt4FincMwtey帧piwtiQntyp?-3DApmIilsLui1BPhoiwNhsty恥曲7jibbedIIbsJtoJruutdHcadcr/TuclcrittlllhElTQfcbactsW-iMegatonTotlotMtorOctalOKCarolH即3、这里选择分辨率，我用的手机是三星的P3100，没别的优点就是大，7寸的屏，我女儿管这个叫平板手机0(n_n)0MO4、界面布局摆

11、放如下:5、绑定数据集xe5中使用livebingding来绑定数据集，没有datasource熟悉了，理论上所有的控件都可以绑定数据集。依次添力口code,name,py_code三个字段，然后选中grid，点击sLlveBrdrgs.iveEindingsjHElLiveBindlingsDesign(BridVisual”.，'后将dataset拖拉到grid中：如图iiUhl划<CT*T-5rt3-&卜ddl*:耳电阳-QQW和*BTtRttS典sstfel弓N-rn.ierMr«5t.£：Brtrirr£严中-Efe英"1

12、0««6?1.】”AM*业样上jd1r?Ctktpw-芦“曲2注跆.cwJa3m打ml弓LMrriTP:jwIjijIjYEtiSF电i«号WBLK*ipfi5t*j*«：LTg洛i*db亡f片:hiWFiAiCr如Mframrsa5w-TagTrgFtai就$rtrlfe站1iwBinribivf*rwjwr:x-stor.ddIein上FlI当然，您要选择clientdatasetl下的这个*号再拖拽，这就完成了绑定。然后调整列宽等选项。界面就这样吧，继续。，先启动咱们上几片文章建立的手机服务端AndroidServer-PortTypes;

13、1;wsdl0GetEmplAY«_nniIWSDLP|I1I邸WSDLListsallthePortTypespublishedbythiaServiceQGe-tPcrtTypeList0Ge(WSDLForPortTvpeaGetlvPSvtinsListoGetXSDForTypeSystemWSIL：LinktoWS-InspectiondocumentofServiceshre导入webservices单元，file->new->other->webservices->选择wsdlimporterSP一Opv_、_ps/vvo8084solj_eo

14、ow43却frWS阿:一回卜*;J一一口世-itsKoqo童o更二一5-L£E1-En_.muQiUQFaqci贯n-.;匚-:rs-.rq:w?-UJ一'q-_RU-2這无=爼一±£占一更J&Mr7mu:AHG&t-t-暑-Hna=r工弘AIU.>±HP5可LFIDUPUIHt.ix'R'fHiAbup匚虫TQgpdl-F勺1PNJ百円gtwd!hIHr吋rl»EdcIibiuri丹45sov-n.RPUMOKrasoqgoijpu里口警!&fs-呀卩*Jj_ncl=i.Puj4sluda

15、p.14As4-PE盂宀髯gpnJIlsiilpfnuaT.4UPUtm-aH或冃毙ZIEW&t1£1|:?上老-$3蛊咅-§話袒卅兰雷口应snEmnnTBnssznTBH菱工T5VLWSDLLocationInputLocationinformationfortheW5DLyoui/vodldliketoimport*4V5CLSource-AuthenticationUserName：Passvwrd;Proxy:<<p.sckLowtionofWSDLFileLRU|http:/Jiixalhoste(KO/wsci|fIAdroidServicss_11丄eztAjnish匚artelHelp之后施展一路回车大法，只到生成一个单元文件保存并在手机窗体单元中引用。在窗体上的按钮的click事件中实现以下代码：procedureTForml.button1Click(Sender:TObject);varws:IAdroidServices;s:string;beg