Delphi通过WebService开发Web服务端和手机客户端.docx
- 文档编号:4828811
- 上传时间:2022-12-10
- 格式:DOCX
- 页数:15
- 大小:700.76KB
Delphi通过WebService开发Web服务端和手机客户端.docx
《Delphi通过WebService开发Web服务端和手机客户端.docx》由会员分享,可在线阅读,更多相关《Delphi通过WebService开发Web服务端和手机客户端.docx(15页珍藏版)》请在冰豆网上搜索。
Delphi通过WebService开发Web服务端和手机客户端
Delphi通过WebService开发Web服务端和手机客户端
介绍
本文章介绍了DelphiXE5通过WebService开发Web服务端和手机客户端,下面是操作的详细过程。
我们开发一个三层的android程序
建立一个webservices stand-alonevclapplication作为手机访问的服务端
1、new->other->webservices
2、选择stand-alonevclapplication
3、这里使用默认端口8080
6、点ok后保存工程,保存为目录如下:
7、至此为止,什么代码都不写,点击运行,我们看到
8、启动并点击openbrowser按钮在浏览器里看到
一个web服务就创建完成了。
接下来创建一个返回数据集的过程,用webservices发布,供手机端调用。
这里我使用firedac
1、打开上一篇自动创建的WebModule
然后分别拖放以下数据连接控件
FDConnection1:
firedac连接数据库的
FDPhysMSSQLDriverLink1:
数据驱动选的是sqlserver,另外还有db2,oracle,acess,excel,sqllite,mysql等
FDQuery1:
相当于adoquery
DataSetProvider1:
delphi的provider
ClientDataSet1:
delphi的我最喜欢的cds
2、数据库的连接
首先用 FDConnection1连接sqlserver服务器,在控件上邮件设置一下信息
3、其他数据控件连接
FDquery1已经自动连上了connection,我们在sql里写以下语句
接下来DataSetProvider1连好fdquery1,clientdataset1的providername选择DataSetProvider1
4、在WebModule中的public中实现以下代码
functionTAndroidWM.GetEmployee_Mi:
widestring;
begin
withclientdataset1do
begin
close;
open;
result:
=xmldata;
close;
end;
end;
5、在AdroidServicesImpl.pas引用WebModule的接口实现的public单元实现以下代码
functionGetEmployee_mi:
widestring;stdcall;
functionTAdroidServices.GetEmployee_mi:
string;
var
dm:
TAndroidWM;
begin
dm:
=TAndroidWM.Create(nil);
result:
=dm.GetEmployee_Mi;
dm.Free;
end;
6、在AdroidServicesIntf.pas单元实现以下代码
type
IAdroidServices=interface(IInvokable) ['{9B1596C5-AD43-4849-830E-0B82D8BAA043}']
functionGetEmployee_mi:
widestring;stdcall;
end;
6、运行server查看webservice是否实现了GetEmployee_mi服务
服务端至此完成,实现了用clientdataset的xmldata返回数据集的过程,当然您可以对返回的xml进行压缩和解压缩的操作,减小网络传输压力。
我们把供手机端调用的web服务完成,接下来实现手机端调用webservices获取数据
1、新建firemonkeymobileapplication
2、选择blankapplication
3、这里选择分辨率,我用的手机是三星的p3100,没别的优点就是大,7寸的屏,我女儿管这个叫平板手机 O(∩_∩)O~
4、界面布局摆放如下:
5、绑定数据集
xe5中使用livebingding来绑定数据集,没有datasource熟悉了,理论上所有的控件都可以绑定数据集。
先在clintdataset中添加字段
依次添加code,name,py_code三个字段,然后选中grid,点击
,然后将dataset拖拉到grid中:
如图
当然,您要选择clientdataset1下的这个*号再拖拽,,这就完成了绑定。
。
。
然后调整列宽等选项。
界面就这样吧,继续。
。
。
,先启动咱们上几片文章建立的手机服务端
导入webservices单元,file->new->other->webservices->选择wsdlimporter
输入wsdl地址 http:
//localhost:
8080/wsdl/IAdroidServices
之后施展一路回车大法,只到生成一个单元文件保存并在手机窗体单元中引用。
在窗体上的按钮的click事件中实现以下代码:
procedureTForm1.button1Click(Sender:
TObject);
var
ws:
IAdroidServices;
s:
string;
begin
ws:
=GetIAdroidServices(true,'http:
//10.110.0.56:
8080/soap/IAdroidServices',nil); //参数中可以使用配置的url
s:
=ws.GetEmployee_mi;
iflength(s)<>0then
clientdataset1.xmldata:
=s;
end;
可以在win32平台上先测试一下,如图:
win32平台上没问题ok,接下来target选择我的大平板手机O(∩_∩)O~,p3100
运行如下:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Delphi 通过 WebService 开发 Web 服务端 手机 客户端